• Intro to AutoHotkey HotStrings with AutoHotkey Intermediate AutoHotkey GUIs are Easy with AutoHotkey Intro to DOS & AutoHotkey

Direct Marketing 9 – How I got over 10,000 likes on my Facebook business page

In the below video I demonstrate how I was able to, quickly, got over 10,000 likes on my Facebook business page.

A couple things to keep in mind are:

  1. I paid for the likes
  2. The people that liked my page aren’t my target audience
  3. These likes are just for “social Approval” (so others think your page is cool)
  4. The likes will slowly slip away over time (I’m currently at 9,742.  I was at 10K around 2 years ago)
  5. You can use this spreadsheet to help make decisions on what countries to target

How I got over 10,000 likes on my Facebook business page

Automating Unfriending on Facebook

UnAutomating Unfriending on Facebook

About a year ago I got pretty interested in selling products on Amazon. I attended a convention and found a lot of other “sellers” which i ended up automating connecting to on Facebook.

Unfortunately Facebook really restricts a lot of what you can do with your “friends” so I decided to go through and “unfriend” them. Here is a quick review of how I did this with AutoHotkey.

Here is the script I wrote to Automating Unfriending on Facebook

#SingleInstance,Force
Browser_Forward::Reload
Browser_Back::
;**************************************
Count:=0
Start:
Loop, {
	If (Count>=3){
		Notify("No more friends") ;http://www.autohotkey.net/~gwarble/Notify/
		Break		
	}
	Text:="|<Friends>*164$71.00000000000000000000000000000000000000000000000000000000000000000000000000000000000000T0k00600000Uk0000A00003VVvDDXts000C3v6nNgqM00Es66BynNj001nUAAP1an7U01y0MMqPBan001s0klbaNww001U00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001"
	if  ok:=FindText(0,0,15000,15000,0,0,Text)
		findText_Left_Click(Ok,X_Adj:=0,Y_Adj:=0,MoveBack:=0)
	If !(OK){
		Count++
		SendPlay, {PgDn}
		Sleep, 2000
		Goto, Start
	}
	
	Sleep, 2000
	
	Text:="|<Unfriend>*136$47.240U000E4/nebD6U8IGNFFH0EcYWyWW0VF9515412WG+++M1t4YHYHF"
	if  ok:=FindText(0,0,15000,15000,0,0,Text)
		findText_Left_Click(Ok,X_Adj:=0,Y_Adj:=0,MoveBack:=0)
	
	Sleep,2000
}
return

Video walk through Automating Unfriending on Facebook

  • Intro to AutoHotkey HotStrings with AutoHotkey Intermediate AutoHotkey GUIs are Easy with AutoHotkey Intro to DOS & AutoHotkey