Mulawin Posted January 7, 2006 Share Posted January 7, 2006 expandcollapse popup#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 Link to comment Share on other sites More sharing options...
Mulawin Posted January 8, 2006 Author Share Posted January 8, 2006 I tried to ask him how to put the ok/yes or cancel there but....... need help here New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 8, 2006 Author Share Posted January 8, 2006 K bye bye pm me for the errors kk New Owner of this AU account Link to comment Share on other sites More sharing options...
ChrisL Posted January 8, 2006 Share Posted January 8, 2006 I tried to ask him how to put the ok/yes or cancel there but....... need help here Does this help? expandcollapse popup#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 [u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire Link to comment Share on other sites More sharing options...
greenmachine Posted January 8, 2006 Share Posted January 8, 2006 Send ("#") sleep (200) Send ("u") sleep (200) Send ("u") Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted January 8, 2006 Share Posted January 8, 2006 (edited) HAHAH what? this was when i was noobish and did everything with clicks 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 expandcollapse popup#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 January 8, 2006 by thatsgreat2345 Link to comment Share on other sites More sharing options...
ChrisL Posted January 8, 2006 Share Posted January 8, 2006 by the way u forgot the endfuncSo I did..Lets see if mulawin will come back with anything cos I have no Idea what he wants to do [u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted January 8, 2006 Share Posted January 8, 2006 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 kinda confusing but u got to play the game to understand Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 Thanks thatsgreat2345 for the recruitbot New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 but heh cant run the bot thing darkthrone auto recruit chrisL help me with this New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 but umm thats great2345i've gots a problem with thisElse MsgBox (0,"Warning", "FireFox not found") Endifcant run the gamewhat if http://darkthrone.com/(recruit thing page) New Owner of this AU account Link to comment Share on other sites More sharing options...
jaenster Posted January 10, 2006 Share Posted January 10, 2006 dude .. i have maked some example on www.deepdesigns.nl .. look there -jaenster Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 are you sure this safe? New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 k bye bye cant find any sense in this forum and pls stop hosting too much New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 what about ragnarok bot cell by cell moving help pls New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 dude .. i have maked some example on www.deepdesigns.nl .. lookthereCANT SEE ANY EXAMPLE'S HERE ARE YOU TRYING TO HACK OR SOMETHING? New Owner of this AU account Link to comment Share on other sites More sharing options...
ChrisL Posted January 10, 2006 Share Posted January 10, 2006 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 [u]Scripts[/u]Minimize gui to systray _ Fail safe source recoveryMsgbox UDF _ _procwatch() Stop your app from being closedLicensed/Trial software system _ Buffering Hotkeys_SQL.au3 ADODB.Connection _ Search 2d Arrays_SplashTextWithGraphicOn() _ Adjust Screen GammaTransparent Controls _ Eventlogs without the crap_GuiCtrlCreateFlash() _ Simple Interscript communication[u]Websites[/u]Curious Campers VW Hightops Lambert Plant Hire Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 you're weird New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 waiting for others to reply for help thing New Owner of this AU account Link to comment Share on other sites More sharing options...
Mulawin Posted January 10, 2006 Author Share Posted January 10, 2006 waiting after 500messages will stop New Owner of this AU account Link to comment Share on other sites More sharing options...
Recommended Posts