Sign in to follow this  
Followers 0
Mulawin

Reviving

71 posts in this topic

#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.5 Prototype

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
   ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

sleep(2000)
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send(www.darkthrone.com)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
Send(GuiCtrlRead($Input_3)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $=1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)

Exit 0

help me edit this will yaa??


New Owner of this AU account

Share this post


Link to post
Share on other sites



I tried to ask him how to put the ok/yes or cancel there but.......

need help here


New Owner of this AU account

Share this post


Link to post
Share on other sites

K bye bye pm me for the errors kk :P


New Owner of this AU account

Share this post


Link to post
Share on other sites

I tried to ask him how to put the ok/yes or cancel there but.......

need help here

Does this help?

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)
$Submit = GuiCtrlCreateButton ("Go", 180, 200, 60,40)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $MSG = $Submit
        Go()
    Case Else
  ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

;sleep(2000)

Func GO()
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send("www.darkthrone.com")
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
$Var = GuiCtrlRead($Input_3)
Send($Var)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $i = 1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)
next
Else
    MsgBox (0,"Warning", "FireFox not found")
Endif

Share this post


Link to post
Share on other sites

Send ("#")

sleep (200)

Send ("u")

sleep (200)

Send ("u")

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

HAHAH what? this was when i was noobish and did everything with clicks :P but cool sum1s using it i guess

i dont undertand ur question yes/ok? like a button saying Start?

by the way u forgot the endfunc

#include <GuiConstants.au3>

If Not IsDeclared('WS_CLIPSIBLINGS') Then Global $WS_CLIPSIBLINGS = 0x04000000

GuiCreate("MyGUI", 392, 323,(@DesktopWidth-392)/2, (@DesktopHeight-323)/2 , $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

$Label_1 = GuiCtrlCreateLabel("Username", 20, 90, 80, 20)
$Label_2 = GuiCtrlCreateLabel("Password", 20, 150, 80, 30)
$Input_3 = GuiCtrlCreateInput("", 180, 80, 130, 30)
$Input_4 = GuiCtrlCreateInput("", 180, 150, 140, 30)
$Submit = GuiCtrlCreateButton ("Go", 180, 200, 60,40)
GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $MSG = $Submit
        Go()
    Case Else
 ;;;
    EndSelect
WEnd
Exit
#endregion --- GuiBuilder generated code End ---

;sleep(2000)

Func GO()
If FileExists(@ProgramFilesDir & "\mozilla\firefox.exe") Then
Run(@ProgramFilesDir & "\mozilla\firefox.exe")
sleep(1000)
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;; change 0 , 500 to URL location
send("www.darkthrone.com")
MouseClick("left", 0, 500, 2);;;;;;;;;;;;;;;;;;;; change location of username
$Var = GuiCtrlRead($Input_3)
Send($Var)
sleep(200)
send("{tab}")
sleep(200)
Send(GuiCtrlRead($Input_4) & "{Enter}")
sleep(1000)

MouseClick("left", 0, 500, 0);;;;;;;;;;;;;;;;; change coordinates to community
sleep(200)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;; change coordinates to recruit
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;;;;; change coordinates to wardogs
sleep(1000)
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;;;;;; change coordinates to recruit button
sleep(800)
For $i = 1 to 349
MouseClick("left", 0, 500, 1);;;;;;;;;;;;;; change to coordinates of recruit button
Sleep(800)
next
Else
    MsgBox (0,"Warning", "FireFox not found")
Endif
endfunc
Edited by thatsgreat2345

Share this post


Link to post
Share on other sites

well i think hes thinking the wrong thing i made this to click the button on the in game recruiter that u only have to click one button i think hes thinking that it will click peoples links and find the duplicate image and click it :P kinda confusing but u got to play the game to understand

Share this post


Link to post
Share on other sites

Thanks thatsgreat2345 for the recruitbot :P


New Owner of this AU account

Share this post


Link to post
Share on other sites

but heh cant run the bot thing darkthrone auto recruit

chrisL help me with this


New Owner of this AU account

Share this post


Link to post
Share on other sites

but umm thats great2345

i've gots a problem with this

Else
    MsgBox (0,"Warning", "FireFox not found")
Endif

cant run the game

what if http://darkthrone.com/(recruit thing page)


New Owner of this AU account

Share this post


Link to post
Share on other sites

dude .. i have maked some example on www.deepdesigns.nl .. look

there


-jaenster

Share this post


Link to post
Share on other sites

are you sure this safe?


New Owner of this AU account

Share this post


Link to post
Share on other sites

k bye bye cant find any sense in this forum and pls stop hosting too much


New Owner of this AU account

Share this post


Link to post
Share on other sites

what about ragnarok bot cell by cell moving help pls


New Owner of this AU account

Share this post


Link to post
Share on other sites

dude .. i have maked some example on www.deepdesigns.nl .. look

there

CANT SEE ANY EXAMPLE'S HERE ARE YOU TRYING TO HACK OR SOMETHING?


New Owner of this AU account

Share this post


Link to post
Share on other sites

but umm thats great2345

i've gots a problem with this

Else
    MsgBox (0,"Warning", "FireFox not found")
Endif

cant run the game

what if http://darkthrone.com/(recruit thing page)

Well presumably whoever made the program in the first place decided to write it using firefox as the web browser, you need to download and install firefox to use the program I guess

Share this post


Link to post
Share on other sites

you're weird


New Owner of this AU account

Share this post


Link to post
Share on other sites

waiting for others to reply for help thing


New Owner of this AU account

Share this post


Link to post
Share on other sites

waiting after 500messages will stop


New Owner of this AU account

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0