Sign in to follow this  
Followers 0
Comi

Gaiabot

4 posts in this topic

#1 ·  Posted (edited)

Interesting bot I made long ago, I figure it would be good to share it.

Source code

;************** 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

;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 by Comi

Share this post


Link to post
Share on other sites



I'm a long time member of blizzhackers too. I don't know what Gia is though...

Share this post


Link to post
Share on other sites

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:

; 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:

;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

Share this post


Link to post
Share on other sites

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".

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0