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)