What Twitter followers bot does?
1. Login.
2. Make tweet.
3. Reset all previous followers in order to prevent twitter spaming.
4. Generate Unique Text for Search.
5. Make search by random string.
6. Get new lists for following and follow them.
7. Once limit (920 users) of followers reached, program does sign out.
8. Moves to another account and does the same as described above.
Twitter followers bot advantages.
1. Handle the whole list of accounts in loop. This way you may get followers for unlimited accounts and followers will be able to get thousand followings from you.2. Best Marketing and Promotion way in social using twitter.
Now a days more then 40% gets to your page from twitter so we did everything to help your business to grow up absolutely for free.
#include <IE.au3>3. THis bot was specifically developed for www.sportsprognoz.com Corp.
#include <Array.au3>
#include <Date.au3>
;Requirements.
; - Internet Explorer 10.
; - Twitter Accounts should be an English.
;spec
Global $host = "https://twitter.com";
Global $oIE = _IECreate($host)
Global $followCounter = 0;
Global $unFollowCounter = 1;
Global $password = "strange!"
Global $tLogin[2]
$tLogin[0] = "serfcompany3@mail.ru"
$tLogin[1] = "sportsprognoz.com@gmail.com"
Global $currentAccountId = 0;
Func randStr()
$pwd = ""
Dim $aSpace[3]
$digits = 2
For $i = 1 To $digits
$aSpace[0] = Chr(Random(97, 122, 1)) ;a-z
$aSpace[1] = Chr(Random(97, 122, 1)) ;a-z
$pwd &= $aSpace[Random(0, 2)]
Next
Return $pwd
EndFunc
Func curentDateTime()
Local $DATE = _DateTimeFormat(_NowCalc(), 0)
$SPLIT = StringSplit($DATE," ")
$YYYY = StringRight($SPLIT[1],4)
$MM = StringLeft($SPLIT[1],2)
$DD = StringMid($SPLIT[1],4,2)
Return $YYYY & "-" & $DD & "-" & $MM
EndFunc
Func robotStart()
If $currentAccountId + 1 > Ubound($tLogin) Then
MsgBox(1, "Thank you for using Twiiter Bot", "All your account has been passed. Thank you for using Twiiter Bot")
Exit
EndIf
Local $args[2]
$args[0] = $tLogin[$currentAccountId]
$args[1] = $password
$currentAccountId = $currentAccountId + 1;
Call("login", $args)
EndFunc
Func makeTweet($funcName)
sleep(2000)
Local $button = _IEGetObjById($oIE, "global-new-tweet-button")
Local $hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction($button, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
sleep(1000)
Local $message = "Sportsprognoz.com - Are you making money on sports betting as professionals make?" & randStr();
Send($message)
Send("{TAB}")
sleep(1000)
Send("{ENTER}")
sleep(1000)
Call($funcName)
EndFunc
Func login($args)
;reset followers for new account
$followCounter = 0;
Local $wait = _IELoadWait($oIE)
_IENavigate($oIE, $host & '/login')
;Maximize
$hIE = _IEPropertyGet($oIE, "hwnd")
WinSetState($hIE, "", @SW_MAXIMIZE)
;Complete state adding
Local $loader = _IELoadWait($oIE)
If $loader = 1 Then
Sleep(3000)
Local $oForm = _IEFormGetCollection($oIE, 1)
Local $login = _IEFormElementGetCollection($oForm, 1)
Local $pass = _IEFormElementGetCollection($oForm, 2)
_IEFormElementSetValue($login, $args[0])
_IEFormElementSetValue($pass, $args[1])
;make login
sleep(2000)
_IEFormSubmit($oForm, 0)
_IELoadWait($oIE)
Local $load = _IELoadWait($oIE)
if $load = 1 Then
_IELoadWait($oIE)
$oIE = _IEAttach("Twitter")
;MsgBox(3, "The URL", _IEPropertyGet($oIE, "locationurl"))
$tags = _IETagNameGetCollection($oIE, "div")
For $tag in $tags
;find not following button
;Case when account suspended
If $tag.GetAttribute("id") == "account-suspended" Then
Call("signOut")
robotStart()
EndIf
Next
_IELoadWait($oIE)
Call("makeTweet", "unfollowersOld")
EndIf
EndIf
EndFunc
;work good enough
Func unfollowers()
_IELoadWait($oIE)
_IENavigate($oIE, $host & "/following")
Local $load = _IELoadWait($oIE)
if $load = 1 Then
;Attach object for operrating with Window
$oIE = _IEAttach("twitt")
;if window captured
If $oIE <> 0 Then
;Get Current Followers
Local $aTags = _IETagNameGetCollection($oIE, "a")
_IELoadWait($oIE)
Local $currentFollowers = 1;
For $aTag in $aTags
If $aTag.GetAttribute("href") == "/following" Then
Local $children = $aTag.innerText
$currentFollowers = StringReplace($children, 'Following', '')
$currentFollowers = StringReplace($currentFollowers, ',', '')
$currentFollowers = StringReplace($currentFollowers, '.', '')
EndIf
Next
Local $ajax = ''
If $currentFollowers = 1 Or $currentFollowers = 0 Then
Call("getFollowers") EndIf
For $z = 0 to $currentFollowers / 10
;wait while page completely loaded
$ajax = _IELoadWait($oIE)
If $ajax = 1 Then
Sleep(Random(500, 1500))
Send("{PGDN}");
EndIf
Next
$oIE = _IEAttach("twitt")
;MsgBox(3, "The URL", _IEPropertyGet($oIE, "locationurl"))
sleep(1000)
$tags = _IETagNameGetCollection($oIE, "button")
For $tag in $tags
;find not following button
If $tag.GetAttribute("class") = "user-actions-follow-button js-follow-btn follow-button btn small small-follow-btn" Then
;user-actions-follow-button js-follow-btn follow-button btn small small-follow-btn
Local $hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction($tag, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
sleep(200)
$unFollowCounter = $unFollowCounter + 1;
EndIf
Next
;Condition Important
If $currentFollowers <> $unFollowCounter Then
;MsgBox(1, "Total Read", "Total: Unread - " & $unFollowCounter & ", CurrentFollowers - " & $currentFollowers)
Call("unfollowers")
Else
;MsgBox(1, "Total Read", "Total: Unread - " & $unFollowCounter & ", CurrentFollowers - " & $currentFollowers)
Call("getFollowers")
EndIf
Else
MsgBox(1, "", "EAttach('twitter') has not been detected")
Endif
EndIf
EndFunc
; <<<<<<<<<<<<<<<<<<<<<<<<<< Unfollowing >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Func getFollowers()
Local $randString = randStr() ;a-z
_IENavigate($oIE, $host & "/search?q=" & $randString & "&mode=users")
Local $load = _IELoadWait($oIE)
if $load = 1 Then
sleep(5000)
For $z = 1 to 50
Send("{PGDN}");
sleep(Random(1000, 1500));
Next
sleep(5000);
$oIE = _IEAttach("Twitter")
;MsgBox(3, "The URL", _IEPropertyGet($oIE, "locationurl"))
If $oIE <> 0 Then
$tags = _IETagNameGetCollection($oIE, "div")
For $tag in $tags
;find not following button
;Case when account suspended
If $tag.GetAttribute("id") == "account-suspended" Then
Call("signOut")
robotStart()
EndIf
If $tag.GetAttribute("class") == "user-actions btn-group not-following " Then
Local $userId = $tag.GetAttribute("data-user-id")
;Condition if user exists then skip loop otherwise add new twitter user
;Database work
If ifUserExists($userId) Then
;MsgBox(1, "", "Found")
ContinueLoop
Else
If insertToDb($userId) Then
;MsgBox(1, "", "added")
Else
;MsgBox(1, "", "Not added")
EndIf
EndIf
Local $buttons = $tag.getElementsByTagName("button")
For $button in $buttons
If $button.GetAttribute("class") = "user-actions-follow-button js-follow-btn follow-button btn" Then
;MsgBox(1, "ssss", $button.innerHtml)
;MsgBox(1, "user", $userId)
If $followCounter > 10 Then
Call("signOut")
robotStart()
Endif
Local $hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction($button, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
$followCounter = $followCounter + 1;
sleep(1000)
EndIf
Next
EndIf
Next
;MsgBox(1, "Read ", $followCounter)
Else
MsgBox(1, "Object is not captured")
EndIf
;sign out should be here
If $followCounter > 10 Then
Call("signOut")
robotStart()
Else
Call("makeTweet", "getFollowers")
;Call("getFollowers")
EndIf
;_IEQuit($oIE)
EndIf
EndFunc
Func signOut()
$followCounter = 0;
_IENavigate($oIE, $host & "/logout")
_IELoadWait($oIE)
$buttons = _IETagNameGetCollection($oIE, "button")
_IELoadWait($oIE)
For $button in $buttons
If $button.GetAttribute("class") == "btn primary-btn js-submit" Then
Local $hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction($button, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
EndIf
Next
EndFunc
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< End Procees >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
robotStart()
Func unfollowersOld()
;local $oIE = _IECreate($host)
;$hIE = _IEPropertyGet($oIE, "hwnd")
;WinSetState($hIE, "", @SW_MAXIMIZE)
_IELoadWait($oIE)
_IENavigate($oIE, $host & "/following")
Local $load = _IELoadWait($oIE)
if $load = 1 Then
;Attach object for operrating with Window
$oIE = _IEAttach("twitt")
;if window captured
If $oIE <> 0 Then
;Get Current Followers
Local $aTags = _IETagNameGetCollection($oIE, "a")
_IELoadWait($oIE)
Local $currentFollowers = 1;
For $aTag in $aTags
If $aTag.GetAttribute("data-element-term") == "following_stats" Then
Local $children = $aTag.innerHTML
$match = StringRegExp($children, '(?i)>(.*?)</', 1)
$currentFollowers = $match[0];
$currentFollowers = StringReplace($currentFollowers, 'Following', '')
$currentFollowers = StringReplace($currentFollowers, ',', '')
$currentFollowers = StringReplace($currentFollowers, '.', '')
EndIf
Next
Local $ajax = ''
If $currentFollowers = 1 Or $currentFollowers = 0 Then
Call("unfollowers")
EndIf
sleep(2000)
For $z = 0 to $currentFollowers / 6
;wait while page completely loaded
$ajax = _IELoadWait($oIE)
If $ajax = 1 Then
Sleep(500)
Send("{PGDN}");
EndIf
Next
$oIE = _IEAttach("twitt")
;MsgBox(3, "The URL", _IEPropertyGet($oIE, "locationurl"))
$tags = _IETagNameGetCollection($oIE, "button")
For $tag in $tags
;find not following button
If $tag.GetAttribute("class") = "user-actions-follow-button js-follow-btn follow-button btn" Then
Local $hwnd = _IEPropertyGet($oIE, "hwnd")
_IEAction($tag, "focus")
ControlSend($hwnd, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
sleep(500)
$unFollowCounter = $unFollowCounter + 1;
EndIf
Next
;Condition Important
If $currentFollowers <> $unFollowCounter Then
;MsgBox(1, "Total Read", "Total: Unread - " & $unFollowCounter & ", CurrentFollowers - " & $currentFollowers)
Call("unfollowersOld")
Else
;MsgBox(1, "Total Read", "Total: Unread - " & $unFollowCounter & ", CurrentFollowers - " & $currentFollowers)
Call("getFollowers")
EndIf
Else
MsgBox(1, "", "EAttach('twitter') has not been detected")
Endif
EndIf
EndFunc
And we ready to share super folower with anyone just like us and follow.
4. Also if it helps to you see google advertisments on our website
If you like to know about sports and predictions you can visit us here
ReplyDeletehttps://rp777news.com/