Instagram like bot

automatically like a certain number of instagram photos based on your feed,selected user or tag. If you are looking for something different, click here.

Get started

Demo

Demo

Ladyslipper Cottages website

Step 1

enter the minimum pause time (in seconds) between bot actions.


Tweetmap

Step 2

enter the maximum pause time (in seconds) between bot actions.


Tweetmap

Step 3

in this window, enter how many photos you want to like


Tweetmap

Step 4

choose what you want to like,enter the appropriate number (1-3)


Step 5

depending on what you chose in the previous step, 3 scenarios are possible. After that, your browser will start up. and the script will start working for you


Option 1

Tweetmap

Option 2



Bot will start


Option 3

Tweetmap

Script

dim whattolike
whattolike = whattolike & "Choose what you want to like:" & vbNewLine & vbNewLine & vbNewLine
whattolike = whattolike & "1:	hashtag" & vbNewLine
whattolike = whattolike & "2:	your feed" & vbNewLine
whattolike = whattolike & "3:	user" & vbNewLine

'-------------------------------HASHTAG / USER--------------------------------'
dim userpagehashtagpage
userpagehashtagpage = userpagehashtagpage & "URL GOTO={{link}}" & vbNewLine
userpagehashtagpage = userpagehashtagpage & "TAG POS=1 TYPE=DIV ATTR=CLASS:KL4Bh" & vbNewLine


dim likebutton
likebutton = likebutton & "SET !TIMEOUT_STEP 1" & vbNewLine
likebutton = likebutton & "TAG POS=1 TYPE=SVG ATTR=CLASS:_8-yf5&&aria-label:Like&&height:24" & vbNewLine

dim nextbutton
nextbutton = nextbutton & "TAG POS=1 TYPE=A ATTR=TXT:Next" & vbNewLine
nextbutton = nextbutton & "WAIT SECONDS=3" & vbNewLine


'------------------------------------FEED------------------------------------'
dim feedpage
feedpage = feedpage & "URL GOTO={{link}}" & vbNewLine

dim likefeed
likefeed = likefeed & "SET !TIMEOUT_STEP 1" & vbNewLine
likefeed = likefeed & "TAG POS=1 TYPE=SVG ATTR=CLASS:_8-yf5&&aria-label:Like&&height:24" & vbNewLine

dim scrolldown
scrolldown = scrolldown & "URL GOTO=javascript:window.scrollBy(0,1000)" & vbNewLine
scrolldown = scrolldown & "WAIT SECONDS=1" & vbNewLine



'------------------------------------DELAY-----------------------------------'
dim wait1
wait1 = wait1 & "WAIT SECONDS={{RandomNumber1}}" & vbNewLine


dim wait2
wait2 = wait2 & "WAIT SECONDS={{RandomNumber2}}" & vbNewLine



' Dim max,min '
' max=20 '
' min=10 '


Dim iim1, i, s
set iim1= CreateObject ("iMacros")

'i = iim1.iimOpen("-fx", false) 'Use open Firefox instance if available '
i = iim1.iimOpen("-fxPath ""C:\Program Files\Pale Moon\palemoon.exe""", true) 'Always open new instance

if i<0 then
	msgbox "Could not connect to a FIREFOX web browser."
end if

Dim max,min
min = InputBox("set the minimum delay value (in seconds)")
max = InputBox("set the maximum delay value (in seconds)")

MsgBox "you set a delay between: " & min & " - " & max & " seconds"


Dim likesnumber
likesnumber = InputBox("Enter how many photos you want to like")
MsgBox "You entered: " & likesnumber


liketype = InputBox(whattolike)





if liketype = 1 then
	
	hashtag = InputBox("enter the hashtag you want to like")
	MsgBox "You entered: " & hashtag
	
	link = "https://www.instagram.com/explore/tags/" & hashtag & "/"

	i = iim1.iimSet ("link", link)
	i = iim1.iimPlayCode(userpagehashtagpage)
	if i<0 then
		s = iim1.iimGetErrorText()
		msgbox "The Scripting Interface returned error code: "+cstr(i)
	end if


	for likes = 1 to likesnumber
		Randomize
		RandomNumber1 =(Int((max-min+1)*Rnd+min))
		
		Randomize
		RandomNumber2 =(Int((max-min+1)*Rnd+min))
		
		i = iim1.iimPlayCode(likebutton)
		do while i<0
			i = iim1.iimPlayCode(nextbutton)
			i = iim1.iimPlayCode(likebutton)
		loop
		i = iim1.iimSet ("RandomNumber1", RandomNumber1)
		i = iim1.iimPlayCode(wait1)
		i = iim1.iimPlayCode(nextbutton)
		i = iim1.iimSet ("RandomNumber2", RandomNumber2)
		i = iim1.iimPlayCode(wait2)
	next
	
elseif liketype = 2 then

	link = "https://www.instagram.com/"
	i = iim1.iimSet ("link", link)
	i = iim1.iimPlayCode(feedpage)
	
	for likes = 1 to likesnumber
		Randomize
		RandomNumber1 =(Int((max-min+1)*Rnd+min))
		
		i = iim1.iimPlayCode(likefeed)
		do while i<0
			i = iim1.iimPlayCode(scrolldown)
			i = iim1.iimPlayCode(likefeed)
		loop
		i = iim1.iimPlayCode(scrolldown)
		i = iim1.iimSet ("RandomNumber1", RandomNumber1)
		i = iim1.iimPlayCode(wait1)
	next
	
elseif liketype = 3 then
	username = InputBox("enter the username you want to like")
	MsgBox "You entered: " & username
	
	link = "https://www.instagram.com/" & username & "/"
	
	
	i = iim1.iimSet ("link", link)
	i = iim1.iimPlayCode(userpagehashtagpage)
	if i<0 then
		s = iim1.iimGetErrorText()
		msgbox "The Scripting Interface returned error code: "+cstr(i)
	end if


	for likes = 1 to likesnumber
		Randomize
		RandomNumber1 =(Int((max-min+1)*Rnd+min))
		
		Randomize
		RandomNumber2 =(Int((max-min+1)*Rnd+min))
		
		i = iim1.iimPlayCode(likebutton)
		do while i<0
			i = iim1.iimPlayCode(nextbutton)
			i = iim1.iimPlayCode(likebutton)
		loop
		i = iim1.iimSet ("RandomNumber1", RandomNumber1)
		i = iim1.iimPlayCode(wait1)
		i = iim1.iimPlayCode(nextbutton)
		i = iim1.iimSet ("RandomNumber2", RandomNumber2)
		i = iim1.iimPlayCode(wait2)
	next
end if





if i<0 then
	s = iim1.iimGetErrorText()
	msgbox "The Scripting Interface returned error code: "+cstr(i)
end if

msgbox "Press OK to close Firefox"

i = iim1.iimClose

WScript.Quit(i)

Download

Download Script



If you are looking for more scripts, be sure to check out my portfolio.

More Scripts Custom script

Pricing per script

Basic

  • Simple iim script
  • CSV datasource
  • Installation Guide

Standard

  • Simple vbs script
  • Installation Guide
  • Nested loops
  • if/else statements
  • Custom Variables
  • Complex Calculations
  • Error Handling

Premium

  • Complex vbs script
  • Installation Guide
  • Nested loops
  • if/else statements
  • Custom Variables
  • Complex Calculations
  • Error Handling
  • Excel integration
  • Email notifications
  • Scheduled execution
  • Solving Recaptcha
  • Image validation
Starts at $60
Prices listed in USD.