Growth Hacking, web-marketing, Robotic Process Automation, Bots, Online Business, Affiliate Marketing, Entrepreneurship, Law of Attraction, Books, Artificial Intelligence, Trading, Work from home
#include TagIE.ahk #include TagIE_Social_sharing.ahk ;Social Media Sharer functions for TagIE Browser Automation ;Works withTagIE Editor and Functions, version 1.1.04 (and above) ;https://github.com/adegard/TagIE.ahk/ String := "growth hacking,autohotkey,automation,Robotic Process Automation" Cate := [] ; creates initialy empty OBJECT (simple array) Loop, parse, String, `, Cate.Insert(A_LoopField) ; inserts elements in object ;Randomize category to republish******************* Random, numcat, 1, 4 caturl :="https://simplestipsandtricks.blogspot.com/search/label/"Cate[numcat] tnav(caturl,"") Sleep, 3000 ; Shows posts number Max:=pwb.document.getElementsByClassName("post-title entry-title").length ;Randomize post to republish********************* Random, num, 3, Max selector =#Blog1 > div.blog-posts.hfeed > div:nth-child(%num%) > div > div > div > h3 > a tclick(selector, 0) Sleep, 3000 WinActivate ahk_class IEFrame ControlFocus, Internet Explorer_Server1, ahk_class IEFrame pwb := PWB_Init(WinTitle) ; replaces WinGetTitle and PWB_Get() Link:=pwb.LocationURL ;grab current url techo(Link) ;*************Post on LINKEDIN************** linkedinprof(Link) Sleep, 1000 ;*************Post on various FACEBOOK groups************** fbgroup(Link, "seo") Sleep, 1000 ;**************Post on various FACEBOOK page************************* fbpage(Link, "Pc-Dream") Sleep,1000 ExitApp Esc::ExitApp
#include TagIE.ahk ;Like and Follow for posts on Hashtags: ;launch it daily on 2-5 posts and for 5 to 10 hashtag ;(you must save password before) ;put hashtag list (one by row) in a file: \hashtags.txt ;(search correlate hashtag from https://www.all-hashtag.com) ;original idea from @talymo https://github.com/talymo/instaAutomate ;@adegard - Works with TagIE version 1.1.04 (please check yours) ; Get list of hashtags from hashtags text file hashtags := Object() Loop, read, % A_ScriptDir "\hashtags.txt" hashtags[A_Index] := A_LoopReadLine ; How many posts we want to like Posts = 3 ; How many posts we have liked LikedPosts = 0; ; Set Variables for Like action Interval (x100 millisec) low = 2 high = 40 For i in hashtags { ; The hashtag we want to like hash := hashtags[i] StringReplace , hash, hash, %A_Space%,,All HashTag := hash ; Stuff we need for the script to work myUrl = https://www.instagram.com/explore/tags/%HashTag%/ tnav(myUrl,"") Sleep 3000 ; Loop through n posts Loop, %Posts% { selector =#react-root > section > main > article > div.EZdmt > div > div > div:nth-child(2) > div:nth-child(%A_Index%) > a > div > div._9AhH0 tclick(selector, 0) Random, Time_To_Wait, low, high Time := Time_To_Wait * 500 techo(Time " millisec") Sleep, Time ;heart clicking tclick("glyphsSpriteHeart__outline__24__grey_9 u-__7", 0) Random, Time_To_Wait, low, high Time := Time_To_Wait * 500 techo(Time " millisec") Sleep, Time ;click on Follow tclick("oW_lN _0mzm- sqdOP yWX7d ", 0) ;cancel action to avoid unfollow tclick("aOOlW HoLwm ", 0) Random, Time_To_Wait, low, high Time := Time_To_Wait * 500 techo(Time " millisec") Sleep, Time ;close post tclick("ckWGn", 0) } } ;send yourself telegram msg when finish Sleep, 5000 pwb.Quit() ExitApp Esc::ExitApp
#include TagIE.ahk url := "https://finance.yahoo.com/quote/%5EDJI/history?p=%5EDJI" tnav(url,"") tscroll("table", 0) table2csv("DOW.csv") Sleep, 5000 pwb.Quit() ExitApp ;see demo, here: https://youtu.be/3At6jI1Ip1E
#include TagIE.ahk ;Kijiji autoresponder (respond to any ads for Job, Marketing...). Adapt it to any Ads/Post websites ;It avoid double-responses of job posting by saving urls file database file ;Last button SUBMIT is disabled, so you can try it safe ;-) ;parameters dbFileName= kijiji_urls.txt name = Paolo email = email@gmail.com message ="Buongiorno, ho trovato il suo annuncio e mi sono detto che potrebbe avere bisogno di assistenza domiciliare... se conosce qualcuno che ha bisogno di una badante, visita il nostro sito www.badante-noproblem.com Grazie Non rispondere a questo messaggio perche stato generato automaticamente." ;convert to array Array := [ name, email, message] ;check if Database fie exist, if not, create it ifnotexist,%dbFileName% { TestString := "This is url list.`r`n" Fileappend,%TestString%`r`n,%dbFileName% } ;go first to the correct category tnav("https://www.kijiji.it/offerte-di-lavoro/offerta/badante/?entryPoint=sb","") loop, 10 ;how many items { myurl:=pwb.document.getElementsByClassName("cta").item[A_Index].getAttribute("href") ;gets the value of an attribute FileRead, OutputVar, %dbFileName% IfInString, OutputVar , %myurl% { ;Url already exist in database } else { FileAppend, %myurl%`n, %dbFileName% ;Go to the url selector = body > div:nth-of-type(4) > div:nth-of-type(2) > div:nth-of-type(1) > ul > li:nth-of-type(%A_Index%) > div > h3 > a tclick(selector, 0) Sleep, 1000 ;insert data tscroll("name", 0) Sleep, 1000 tenter(Array[1], "name", 0) Sleep, 1000 tenter(Array[2], "email", 0) Sleep, 1000 tenter(Array[3], "message", 0) Sleep, 1000 tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > label:nth-of-type(1) > div", 0) tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > label:nth-of-type(2) > div", 0) ;SUBMIT DISABLED ;tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > footer > input", 0) Sleep, 3000 pwb.document.parentWindow.history.go(-2) ;Go Backward one page Sleep, 1000 } ; END , go next Sleep, 100 } ;LOOP Sleep, 1000 pwb.Quit() Esc::ExitApp ExitApp
#include TagIE.ahk ;Kijiji autoresponder (respond to any ads for Job, Marketing...). Adapt it to any Ads/Post websites ;It avoid double-responses of job posting by saving urls file database file ;Last button SUBMIT is disabled, so you can try it safe ;-) ;parameters dbFileName= kijiji_urls.txt name = Paolo email = email@gmail.com message ="Buongiorno, ho trovato il suo annuncio e mi sono detto che potrebbe avere bisogno di assistenza domiciliare... se conosce qualcuno che ha bisogno di una badante, visita il nostro sito www.badante-noproblem.com Grazie Non rispondere a questo messaggio perche stato generato automaticamente." ;convert to array Array := [ name, email, message] ;check if Database fie exist, if not, create it ifnotexist,%dbFileName% { TestString := "This is url list.`r`n" Fileappend,%TestString%`r`n,%dbFileName% } ;go first to the correct category tnav("https://www.kijiji.it/offerte-di-lavoro/offerta/badante/?entryPoint=sb","") loop, 10 ;how many items { myurl:=pwb.document.getElementsByClassName("cta").item[A_Index].getAttribute("href") ;gets the value of an attribute FileRead, OutputVar, %dbFileName% IfInString, OutputVar , %myurl% { ;Url already exist in database } else { FileAppend, %myurl%`n, %dbFileName% ;Go to the url selector = body > div:nth-of-type(4) > div:nth-of-type(2) > div:nth-of-type(1) > ul > li:nth-of-type(%A_Index%) > div > h3 > a tclick(selector, 0) Sleep, 1000 ;insert data tscroll("name", 0) Sleep, 1000 tenter(Array[1], "name", 0) Sleep, 1000 tenter(Array[2], "email", 0) Sleep, 1000 tenter(Array[3], "message", 0) Sleep, 1000 tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > label:nth-of-type(1) > div", 0) tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > label:nth-of-type(2) > div", 0) ;SUBMIT DISABLED ;tclick("body > main > section:nth-of-type(1) > div:nth-of-type(2) > aside > article:nth-of-type(3) > article > div > form > footer > input", 0) Sleep, 3000 pwb.document.parentWindow.history.go(-2) ;Go Backward one page Sleep, 1000 } ; END , go next Sleep, 100 } ;LOOP Sleep, 1000 pwb.Quit() Esc::ExitApp ExitApp
