Comi Posted October 6, 2004 Share Posted October 6, 2004 (edited) Interesting bot I made long ago, I figure it would be good to share it. Source code expandcollapse popup;************** read this ************ ; This software is provided 'as-is', without any express or implied ; warranty. In no event will the authors be held liable for any damages ; arising from the use of this software. ; Permission is granted to anyone to use this software for any purpose, ; including commercial applications, and to alter it and redistribute it ; freely, subject to the following restrictions: ; 1. The origin of this software must not be misrepresented; you must not ; claim that you wrote the original software. If you use this software ; in a product, an acknowledgment in the product documentation would be ; appreciated but is not required. ; 2. Altered source versions must be plainly marked as such, and must not be ; misrepresented as being the original software. ; 3. This notice may not be removed or altered from any source distribution. ; 4. Im in now way responsible of any forum damage this software causes. ;*****set autoit options************ opt("MustDeclareVars", 0) opt("WinTitleMatchMode", 1) Opt("SendKeyDelay", 0) ;********************set functions************** $activ=1 Func checkactiv() WinActive ("Gaia") $activ = WinWaitActive("Gaia", "", 9) While $activ=0 WinActivate ("No se") Sleep(1000) Send("{TAB}") Send(1500) Send("http://www.go-gaia.com/forum/index.php") Sleep(2000) Send("{ENTER}") Sleep(4000) WinActivate ("Gaia") $activ = WinWaitActive("Gaia", "", 9) ;checklives() WEnd EndFunc ;******************** ;Func checklives() ; $alive = WinExists ("Gaia") ; If $alive=0 then ; Run("IEXPORER.EXE", "", @SW_MAXIMIZE) ; checkactiv() ; Endif ;EndFunc ;********************** Func datetime() $min=string(@MIN) $hour=@HOUR $day=string(@MDAY) $mon=string(@MON) $year=string(@YEAR) If $hour=00 then $hour="24" Else $hour=string(@HOUR) Endif $time = $hour & ":" & $min $date= $day & "/" & $mon & "/" & $year $dt=$time & " -- " & $date Return ($dt) EndFunc ;******************** Func Esc1() $pau1="Paused " & datetime() FileWriteLine ( "gaiabot.log", $pau1 ) $pause=MsgBox ( 20, "Gaia bot by Comi BETA", "BOT paused, continue?" ) If $pause=7 then $pau2="Session End " & datetime() FileWriteLine ( "gaiabot.log", $pau2 ) Exit Else $pau3="Session Continued " & datetime() FileWriteLine ( "gaiabot.log", $pau3 ) checkactiv() HotKeySet("{Esc}", "Esc1") Endif EndFunc ;******************************************** ;*************READ THE INI FILE************** ;delays// $indexmin= IniRead("gaiabot.ini", "delays", "indexmin", "error") $indexmax= IniRead("gaiabot.ini", "delays", "indexmax", "error") $forummin= IniRead("gaiabot.ini", "delays", "forummin", "error") $forummax= IniRead("gaiabot.ini", "delays", "forummax", "error") $topicmin= IniRead("gaiabot.ini", "delays", "topicmin", "error") $topicmax= IniRead("gaiabot.ini", "delays", "topicmax", "error") $artmin= IniRead("gaiabot.ini", "delays", "artmin", "error") $artmax= IniRead("gaiabot.ini", "delays", "artmax", "error") $profmin= IniRead("gaiabot.ini", "delays", "profmin", "error") $profmax= IniRead("gaiabot.ini", "delays", "profmax", "error") $tabmin= IniRead("gaiabot.ini", "delays", "tabmin", "error") $tabmax= IniRead("gaiabot.ini", "delays", "tabmax", "error") ;settings// $IEname= IniRead("gaiabot.ini", "settings", "IEname", "error") $root= IniRead("gaiabot.ini", "settings", "root", "error") $server1= IniRead("gaiabot.ini", "settings", "server1", "error") $server2= IniRead("gaiabot.ini", "settings", "server2", "error") $server3= IniRead("gaiabot.ini", "settings", "server3", "error") $server4= IniRead("gaiabot.ini", "settings", "server4", "error") $server5= IniRead("gaiabot.ini", "settings", "server5", "error") $server6= IniRead("gaiabot.ini", "settings", "server6", "error") $server7= IniRead("gaiabot.ini", "settings", "server7", "error") $server8= IniRead("gaiabot.ini", "settings", "server8", "error") $server9= IniRead("gaiabot.ini", "settings", "server9", "error") $server10= IniRead("gaiabot.ini", "settings", "server10", "error") ;values// $topicini= IniRead("gaiabot.ini", "values", "topicini", "error") $topicend= IniRead("gaiabot.ini", "values", "topicend", "error") $artini= IniRead("gaiabot.ini", "values", "artini", "error") $artend= IniRead("gaiabot.ini", "values", "artend", "error") $profini= IniRead("gaiabot.ini", "values", "profini", "error") $profend= IniRead("gaiabot.ini", "values", "profend", "error") $tabnummax= IniRead("gaiabot.ini", "values", "tabnummax", "error") $subtabstimes= IniRead("gaiabot.ini", "values", "subtabstimes", "error") ;******check if readed them all correctly IF _ $indexmin= "error" OR _ $indexmax= "error" OR _ $forummin= "error" OR _ $forummax= "error" OR _ $topicmin= "error" OR _ $topicmax= "error" OR _ $artmin= "error" OR _ $artmax= "error" OR _ $profmin= "error" OR _ $profmax= "error" OR _ $tabmin= "error" OR _ $tabmax= "error" OR _ $IEname= "error" OR _ $root= "error" OR _ $server1= "error" OR _ $server2= "error" OR _ $server3= "error" OR _ $server4= "error" OR _ $server5= "error" OR _ $server6= "error" OR _ $server7= "error" OR _ $server8= "error" OR _ $server9= "error" OR _ $server10= "error" OR _ $topicini= "error" OR _ $topicend= "error" OR _ $artini= "error" OR _ $artend= "error" OR _ $profini= "error" OR _ $profend= "error" OR _ $tabnummax= "error" OR _ $subtabstimes= "error" _ Then MsgBox(48, "Gaiabot by Comi", "Error reading the ini file") Exit Endif ;********************** ;set hotkey HotKeySet("{Esc}", "Esc1") ;********************** ;************define urls, so this program works only for gaia $index=".gaiaonline.com/forum/index.php" $forum=".gaiaonline.com/forum/viewforum.php?f=" $topic=".gaiaonline.com/forum/viewtopic.php?t=" $art=".gaiaonline.com/arena/index.php?i=" $profile=".gaiaonline.com/forum/profile.php?mode=viewprofile&u=" ;***********define forum numbers ;gaia online $f1=10 $f2=57 $f3=2 $f4=26 $f5=5 $f6=23 ;gaia gaming $f7=9 $f8=17 $f9=21 $f10=22 $f11=79 ;entretainment $f12=11 $f13=3 $f14=4 $f15=55 $f16=43 $f17=62 ;artist corner $f18=6 $f19=7 $f20=15 ;Studio XD $f21=14 $f22=18 ;MISC Forums $f23=8 $f24=20 ;***********do the dirty work ;log start $start="Session start " & datetime() FileWriteLine ( "gaiabot.log", $start ) WinSetState ( "Gaia", "", @SW_MAXIMIZE ) Sleep (1000) WinActive ("Gaia") While 1;go on forver ;checks if the gaia IE window is ative & exists checkactiv() ;****************pick server***************** $servrand=Int ( Random (1, 10) ) Select Case $servrand=1 $serv=$server1 Case $servrand=2 $serv=$server2 Case $servrand=3 $serv=$server3 Case $servrand=4 $serv=$server4 Case $servrand=5 $serv=$server5 Case $servrand=6 $serv=$server6 Case $servrand=7 $serv=$server7 Case $servrand=8 $serv=$server8 Case $servrand=9 $serv=$server9 Case $servrand=10 $serv=$server10 Case Else MsgBox(48, "Gaiabot by Comi", "No valid servers enabled") $randserv="Error selecting random server " & datetime() FileWriteLine ( "gaiabot.log", $randserv ) Exit EndSelect ;***************PICK URL + number ( what page to view ) ************** ;5% to view index ;15% to view forum ;61% to view topic ;4% to view peofile ;15% to view art $urlchance=Int( Random (1, 90) );1% to 100% Select Case $urlchance > 0 AND $urlchance < 6; INDEX $urlcase=1 $url=$index Case $urlchance > 7 AND $urlchance < 22; FORUM $forumrand= Int ( Random (1, 24) );pick a forum ;**********pick the forum number************** Select Case $forumrand=1 $forumnum=$f1 Case $forumrand=2 $forumnum=$f2 Case $forumrand=3 $forumnum=$f3 Case $forumrand=4 $forumnum=$f4 Case $forumrand=5 $forumnum=$f5 Case $forumrand=6 $forumnum=$f6 Case $forumrand=7 $forumnum=$f7 Case $forumrand=8 $forumnum=$f8 Case $forumrand=9 $forumnum=$f9 Case $forumrand=10 $forumnum=$f10 Case $forumrand=11 $forumnum=$f11 Case $forumrand=12 $forumnum=$f12 Case $forumrand=13 $forumnum=$f13 Case $forumrand=14 $forumnum=$f14 Case $forumrand=15 $forumnum=$f15 Case $forumrand=16 $forumnum=$f16 Case $forumrand=17 $forumnum=$f17 Case $forumrand=18 $forumnum=$f18 Case $forumrand=19 $forumnum=$f19 Case $forumrand=20 $forumnum=$f20 Case $forumrand=21 $forumnum=$f21 Case $forumrand=22 $forumnum=$f22 Case $forumrand=23 $forumnum=$f23 Case $forumrand=24 $forumnum=$f24 EndSelect $forumnumb=String ($forumnum);converts to text $urlcase=2 $url=$forum & $forumnumb Case $urlchance > 23 AND $urlchance < 38; ART ;**********pick the art number************** $artnum=String ( Int ( Random ($artini, $artend) ) ) $urlcase=3 $url=$art & $artnum Case $urlchance > 39 AND $urlchance < 43; PROFILE $profnum=String ( Int ( Random($profini, $profend) ) ) $urlcase=4 $url=$profile & $profnum Case Else; TOPIC ;**********pick the forum number************** $topicnum=String ( Int ( Random($topicini, $topicend) ) ) $urlcase=5 $url=$topic & $topicnum EndSelect ;ok after server,url and number are selected ;time to stop blabla and ACT ;*************** ACTIVATING IE ADRESS BAR *************** Send("{TAB}") Sleep(100) ;*************** TIME TO WRITE ******************* $finalurl= $root & $serv & $url Send ($finalurl, 1) Sleep(120) Send("{ENTER}") ;**************** TIME TO SLEEP, OR "READ" WHATEVER YOU WENT TO... *************** Select Case $urlcase=1 $tsleep=Int ( Random($indexmin, $indexmax) ) Case $urlcase=2 $tsleep=Int ( Random($forummin, $forummax) ) Case $urlcase=3 $tsleep=Int ( Random($artmin, $artmax) ) Case $urlcase=4 $tsleep=Int ( Random($topicmin, $topicmax) ) Case $urlcase=5 $tsleep=Int ( Random($profmin, $profmax) ) EndSelect Sleep($tsleep);sleep the selected time ;****************time to random tab( go to a link ) random times !!! ************* $subtabtimez=Int( Random (0, $subtabstimes) );times to go to sublinks $subtabstime = 0 While $subtabstime < $subtabstimes $tabtimes=Int( Random (10, $tabnummax) );times to tab to select random link $tabtimz=0 While $tabtimz < $tabtimes Send("{TAB}") $tabtimz = $tabtimz + 1 Sleep(55) WEnd Sleep(200) Send("{ENTER}");goto the random link $subtabstime = $subtabstime + 1 ;calculate the random sleep time $tehsleep=Int ( Random($tabmin, $tabmax) ) Sleep($tehsleep) WEnd ;**************its done so, end the while...****************** WEnd ;END !! Ini file expandcollapse popup;gaiabot BETA 1.0 [delays] ;::delays:: ;set up delays to customize the random times the bot will wait after going to a specific link ;delay times are selected randomly so if min=100 and max=150 it will only select a random num from 100 to 150 , no more no less ;If you dont want reandom delays just do min=max and the time will be always the same. ;min=minimum delay, the bot wont wait less than this time. ;max=maximum delay, the bot wont wait more than this time. ;index delay:min/max random time the bot will wait at index indexmin=7000 indexmax=10000 ;forum delay:min/max random time the bot will wait at a forum forummin=8000 forummax=11000 ;topic delay:min/max random time the bot will wait at a topic topicmin=8000 topicmax=10000 ;art delay:min/max random time the bot will wait at an art pict artmin=7000 artmax=9000 ;prof delay:min/max random time the bot will wait at a personal profile profmin=6000 profmax=9000 ;tab delay:min/max random time the bot will wait after clickin a random link tabmin=10000 tabmax=15000 [settings] ;not used yet... IEname="IEXPORER.EXE" ;root, you dont need to touch this root="http://" ;servers, you dont need to touch this, unless you want to customize the server you want to use server1="www" server2="ian" server3="agatha" server4="rufus" server5="sasha" server6="josie" server7="moira" server8="ruby" server9="sasha" server10="gino" [values] ;the values the bot will randomly pick from, also min/max random select ;topic values topicini=1000000 topicend=1977689 ;art values artini=100000 artend=116080 ;profile values profini=3 profend=538904 ;the maximum times the bot will click tab to randomly select a link ;default min is 5 tabnummax=25 ;sub tab times is the times the bot will click on a random link ;its currently kinda buggy but works, 0= disabled, I wouldnt recoment setting a value higher than 4 here. subtabstimes=2 Readme is in the zip Just to share, make good use of it gaiabot1.zip Edited October 6, 2004 by Comi Link to comment Share on other sites More sharing options...
Guest BL@(K-R34P3R Posted October 6, 2004 Share Posted October 6, 2004 I'm a long time member of blizzhackers too. I don't know what Gia is though... Link to comment Share on other sites More sharing options...
Sederien Posted May 7, 2006 Share Posted May 7, 2006 Hello. I'm new to the forums and started using AutoIt about three hours ago. Love it! Anyway... I wanted to test it out on something and stumbled across this script. Thought I'd update it to the current version of Gaia Online (which no longer uses Go-Gaia.com or SERVERNAME.gaiaonline.com). Also included a downloadable version at the end of this post. All of it "useless" to most people, but it was a great test script. (P.S. For those of you unfamilliar with Gaia Online, browsing the site alone give you gold. Thus the reason for the automation.) Here you go: expandcollapse popup; UPDATED ON May 7th, 2006 ;************** read this ************ ; This software is provided 'as-is', without any express or implied ; warranty. In no event will the authors be held liable for any damages ; arising from the use of this software. ; Permission is granted to anyone to use this software for any purpose, ; including commercial applications, and to alter it and redistribute it ; freely, subject to the following restrictions: ; 1. The origin of this software must not be misrepresented; you must not ; claim that you wrote the original software. If you use this software ; in a product, an acknowledgment in the product documentation would be ; appreciated but is not required. ; 2. Altered source versions must be plainly marked as such, and must not be ; misrepresented as being the original software. ; 3. This notice may not be removed or altered from any source distribution. ; 4. Im in now way responsible of any forum damage this software causes. ;*****set autoit options************ opt("MustDeclareVars", 0) opt("WinTitleMatchMode", 1) Opt("SendKeyDelay", 0) ;********************set functions************** $activ=1 Func checkactiv() WinActive ("Gaia") $activ = WinWaitActive("Gaia", "", 9) While $activ=0 WinActivate ("No se") Sleep(1000) Send("{TAB}") ; Send(1500) Send("http://www.gaiaonline.com/forum/index.php") Sleep(2000) Send("{ENTER}") Sleep(4000) WinActivate ("Gaia") $activ = WinWaitActive("Gaia", "", 9) ;checklives() WEnd EndFunc ;******************** ;Func checklives() ; $alive = WinExists ("Gaia") ; If $alive=0 then ; Run("IEXPORER.EXE", "", @SW_MAXIMIZE) ; checkactiv() ; Endif ;EndFunc ;********************** Func datetime() $min=string(@MIN) $hour=@HOUR $day=string(@MDAY) $mon=string(@MON) $year=string(@YEAR) If $hour=00 then $hour="24" Else $hour=string(@HOUR) Endif $time = $hour & ":" & $min $date= $day & "/" & $mon & "/" & $year $dt=$time & " -- " & $date Return ($dt) EndFunc ;******************** Func Esc1() $pau1="Paused " & datetime() FileWriteLine ( "gaiabot.log", $pau1 ) $pause=MsgBox ( 20, "Gaia bot by Comi BETA", "BOT paused, continue?" ) If $pause=7 then $pau2="Session End " & datetime() FileWriteLine ( "gaiabot.log", $pau2 ) Exit Else $pau3="Session Continued " & datetime() FileWriteLine ( "gaiabot.log", $pau3 ) checkactiv() HotKeySet("{Esc}", "Esc1") Endif EndFunc ;******************************************** ;*************READ THE INI FILE************** ;delays// $indexmin= IniRead("gaiabot.ini", "delays", "indexmin", "error") $indexmax= IniRead("gaiabot.ini", "delays", "indexmax", "error") $forummin= IniRead("gaiabot.ini", "delays", "forummin", "error") $forummax= IniRead("gaiabot.ini", "delays", "forummax", "error") $topicmin= IniRead("gaiabot.ini", "delays", "topicmin", "error") $topicmax= IniRead("gaiabot.ini", "delays", "topicmax", "error") $artmin= IniRead("gaiabot.ini", "delays", "artmin", "error") $artmax= IniRead("gaiabot.ini", "delays", "artmax", "error") $profmin= IniRead("gaiabot.ini", "delays", "profmin", "error") $profmax= IniRead("gaiabot.ini", "delays", "profmax", "error") $tabmin= IniRead("gaiabot.ini", "delays", "tabmin", "error") $tabmax= IniRead("gaiabot.ini", "delays", "tabmax", "error") ;settings// $IEname= IniRead("gaiabot.ini", "settings", "IEname", "error") $root= IniRead("gaiabot.ini", "settings", "root", "error") $server1= IniRead("gaiabot.ini", "settings", "server1", "error") $server2= IniRead("gaiabot.ini", "settings", "server2", "error") $server3= IniRead("gaiabot.ini", "settings", "server3", "error") $server4= IniRead("gaiabot.ini", "settings", "server4", "error") $server5= IniRead("gaiabot.ini", "settings", "server5", "error") $server6= IniRead("gaiabot.ini", "settings", "server6", "error") $server7= IniRead("gaiabot.ini", "settings", "server7", "error") $server8= IniRead("gaiabot.ini", "settings", "server8", "error") $server9= IniRead("gaiabot.ini", "settings", "server9", "error") $server10= IniRead("gaiabot.ini", "settings", "server10", "error") ;values// $topicini= IniRead("gaiabot.ini", "values", "topicini", "error") $topicend= IniRead("gaiabot.ini", "values", "topicend", "error") $artini= IniRead("gaiabot.ini", "values", "artini", "error") $artend= IniRead("gaiabot.ini", "values", "artend", "error") $profini= IniRead("gaiabot.ini", "values", "profini", "error") $profend= IniRead("gaiabot.ini", "values", "profend", "error") $tabnummax= IniRead("gaiabot.ini", "values", "tabnummax", "error") $subtabstimes= IniRead("gaiabot.ini", "values", "subtabstimes", "error") ;******check if readed them all correctly IF _ $indexmin= "error" OR _ $indexmax= "error" OR _ $forummin= "error" OR _ $forummax= "error" OR _ $topicmin= "error" OR _ $topicmax= "error" OR _ $artmin= "error" OR _ $artmax= "error" OR _ $profmin= "error" OR _ $profmax= "error" OR _ $tabmin= "error" OR _ $tabmax= "error" OR _ $IEname= "error" OR _ $root= "error" OR _ $server1= "error" OR _ $server2= "error" OR _ $server3= "error" OR _ $server4= "error" OR _ $server5= "error" OR _ $server6= "error" OR _ $server7= "error" OR _ $server8= "error" OR _ $server9= "error" OR _ $server10= "error" OR _ $topicini= "error" OR _ $topicend= "error" OR _ $artini= "error" OR _ $artend= "error" OR _ $profini= "error" OR _ $profend= "error" OR _ $tabnummax= "error" OR _ $subtabstimes= "error" _ Then MsgBox(48, "Gaiabot by Comi", "Error reading the ini file") Exit Endif ;********************** ;set hotkey HotKeySet("{Esc}", "Esc1") ;********************** ;************define urls, so this program works only for gaia $index=".gaiaonline.com/forum/index.php" $forum=".gaiaonline.com/forum/viewforum.php?f=" $topic=".gaiaonline.com/forum/viewtopic.php?t=" $art=".gaiaonline.com/artarena/index.php?mode=vote&postid=" $profile=".gaiaonline.com/forum/profile.php?mode=viewprofile&u=" ;***********define forum numbers ;gaia online $f1=10 $f2=57 $f3=2 $f4=26 $f5=5 $f6=23 ;gaia gaming $f7=9 $f8=17 $f9=21 $f10=22 $f11=79 ;entretainment $f12=11 $f13=3 $f14=4 $f15=55 $f16=43 $f17=62 ;artist corner $f18=6 $f19=7 $f20=15 ;Studio XD $f21=14 $f22=18 ;MISC Forums $f23=8 $f24=20 ;***********do the dirty work ;log start $start="Session start " & datetime() FileWriteLine ( "gaiabot.log", $start ) WinSetState ( "Gaia", "", @SW_MAXIMIZE ) Sleep (1000) WinActive ("Gaia") While 1;go on forver ;checks if the gaia IE window is ative & exists checkactiv() ;****************pick server***************** $servrand=Int ( Random (1, 10) ) Select Case $servrand=1 $serv=$server1 Case $servrand=2 $serv=$server2 Case $servrand=3 $serv=$server3 Case $servrand=4 $serv=$server4 Case $servrand=5 $serv=$server5 Case $servrand=6 $serv=$server6 Case $servrand=7 $serv=$server7 Case $servrand=8 $serv=$server8 Case $servrand=9 $serv=$server9 Case $servrand=10 $serv=$server10 Case Else MsgBox(48, "Gaiabot by Comi", "No valid servers enabled") $randserv="Error selecting random server " & datetime() FileWriteLine ( "gaiabot.log", $randserv ) Exit EndSelect ;***************PICK URL + number ( what page to view ) ************** ;5% to view index ;15% to view forum ;61% to view topic ;4% to view peofile ;15% to view art $urlchance=Int( Random (1, 90) );1% to 100% Select Case $urlchance > 0 AND $urlchance < 6; INDEX $urlcase=1 $url=$index Case $urlchance > 7 AND $urlchance < 22; FORUM $forumrand= Int ( Random (1, 24) );pick a forum ;**********pick the forum number************** Select Case $forumrand=1 $forumnum=$f1 Case $forumrand=2 $forumnum=$f2 Case $forumrand=3 $forumnum=$f3 Case $forumrand=4 $forumnum=$f4 Case $forumrand=5 $forumnum=$f5 Case $forumrand=6 $forumnum=$f6 Case $forumrand=7 $forumnum=$f7 Case $forumrand=8 $forumnum=$f8 Case $forumrand=9 $forumnum=$f9 Case $forumrand=10 $forumnum=$f10 Case $forumrand=11 $forumnum=$f11 Case $forumrand=12 $forumnum=$f12 Case $forumrand=13 $forumnum=$f13 Case $forumrand=14 $forumnum=$f14 Case $forumrand=15 $forumnum=$f15 Case $forumrand=16 $forumnum=$f16 Case $forumrand=17 $forumnum=$f17 Case $forumrand=18 $forumnum=$f18 Case $forumrand=19 $forumnum=$f19 Case $forumrand=20 $forumnum=$f20 Case $forumrand=21 $forumnum=$f21 Case $forumrand=22 $forumnum=$f22 Case $forumrand=23 $forumnum=$f23 Case $forumrand=24 $forumnum=$f24 EndSelect $forumnumb=String ($forumnum);converts to text $urlcase=2 $url=$forum & $forumnumb Case $urlchance > 23 AND $urlchance < 38; ART ;**********pick the art number************** $artnum=String ( Int ( Random ($artini, $artend) ) ) $urlcase=3 $url=$art & $artnum Case $urlchance > 39 AND $urlchance < 43; PROFILE $profnum=String ( Int ( Random($profini, $profend) ) ) $urlcase=4 $url=$profile & $profnum Case Else; TOPIC ;**********pick the forum number************** $topicnum=String ( Int ( Random($topicini, $topicend) ) ) $urlcase=5 $url=$topic & $topicnum EndSelect ;ok after server,url and number are selected ;time to stop blabla and ACT ;*************** ACTIVATING IE ADRESS BAR *************** Send("{TAB}") Sleep(100) ;*************** TIME TO WRITE ******************* $finalurl= $root & $serv & $url Send ($finalurl, 1) Sleep(120) Send("{ENTER}") ;**************** TIME TO SLEEP, OR "READ" WHATEVER YOU WENT TO... *************** Select Case $urlcase=1 $tsleep=Int ( Random($indexmin, $indexmax) ) Case $urlcase=2 $tsleep=Int ( Random($forummin, $forummax) ) Case $urlcase=3 $tsleep=Int ( Random($artmin, $artmax) ) Case $urlcase=4 $tsleep=Int ( Random($topicmin, $topicmax) ) Case $urlcase=5 $tsleep=Int ( Random($profmin, $profmax) ) EndSelect Sleep($tsleep);sleep the selected time ;****************time to random tab( go to a link ) random times !!! ************* $subtabtimez=Int( Random (0, $subtabstimes) );times to go to sublinks $subtabstime = 0 While $subtabstime < $subtabstimes $tabtimes=Int( Random (10, $tabnummax) );times to tab to select random link $tabtimz=0 While $tabtimz < $tabtimes Send("{TAB}") $tabtimz = $tabtimz + 1 Sleep(55) WEnd Sleep(200) Send("{ENTER}");goto the random link $subtabstime = $subtabstime + 1 ;calculate the random sleep time $tehsleep=Int ( Random($tabmin, $tabmax) ) Sleep($tehsleep) WEnd ;**************its done so, end the while...****************** WEnd ;END !! as well as an updated ini file to cut down on the number of bad links: expandcollapse popup;gaiabot BETA 1.0 [delays] ;::delays:: ;set up delays to customize the random times the bot will wait after going to a specific link ;delay times are selected randomly so if min=100 and max=150 it will only select a random num from 100 to 150 , no more no less ;If you dont want reandom delays just do min=max and the time will be always the same. ;min=minimum delay, the bot wont wait less than this time. ;max=maximum delay, the bot wont wait more than this time. ;index delay:min/max random time the bot will wait at index indexmin=7000 indexmax=10000 ;forum delay:min/max random time the bot will wait at a forum forummin=8000 forummax=11000 ;topic delay:min/max random time the bot will wait at a topic topicmin=8000 topicmax=10000 ;art delay:min/max random time the bot will wait at an art pict artmin=7000 artmax=9000 ;prof delay:min/max random time the bot will wait at a personal profile profmin=6000 profmax=9000 ;tab delay:min/max random time the bot will wait after clickin a random link tabmin=10000 tabmax=15000 [settings] ;not used yet... IEname="IEXPORER.EXE" ;root, you dont need to touch this root="http://" ;servers, you dont need to touch this, unless you want to customize the server you want to use server1="www" server2="www" server3="www" server4="www" server5="www" server6="www" server7="www" server8="www" server9="www" server10="www" [values] ;the values the bot will randomly pick from, also min/max random select ;topic values topicini=10000000 topicend=13249208 ;art values artini=300000 artend=360000 ;profile values profini=3 profend=538904 ;the maximum times the bot will click tab to randomly select a link ;default min is 5 tabnummax=25 ;sub tab times is the times the bot will click on a random link ;its currently kinda buggy but works, 0= disabled, I wouldnt recoment setting a value higher than 4 here. subtabstimes=0 Works perfectly now. (Or at least, for the last fifteen minutes.) Enjoy.gaiabotUpdated.zip Link to comment Share on other sites More sharing options...
BxH Posted March 30, 2008 Share Posted March 30, 2008 How do I actually use this though? I copy and paste the WHOLE thing as a source, including all of the ";******[sTUFF]****" messages? I did that, And It says "error reading ini file". Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now