| |
|
|
|
 |
Posted 2004-09-02, 12:04 AM
|
|
|
|
Basically this one checks in the lobby to see if the please wait box is up and if its up it sleeps for .6 sec if not there is no delay to create the game. I average about 34 sec to run through my password list of 1-10 and a-z. Basically if there is a 1 character password for the game you can get in fairly fast.
Also once inside the game it exits the script.
(Thanks to Vollstrecker and `Insolence` for helping me get the PixelSearch command to work in the lobby.)
Code:
;============================( GameForce )============================
;Version: 1.0
;Language: English
;Platform: Win9x / NT
;Author: NDDWinD <nddwind@yahoo.com>
;
;------( Start )------
;========================( End script hotkey )========================
hotkeyset("{end}", "s_exit")
func s_exit()
exit
endfunc
;==========================( Read Pass.txt )==========================
Global $pass = FileOpen ( "pass.txt", 0 )
If $pass = -1 Then
MsgBox ( 0, "Error", "Unable to open passfile.txt." )
Exit
EndIf
;===========================( Game Name )============================
$gamename=InputBox ("Check out www.nbay.tk", "Enter exact game name:")
;==========================( Win Activate )==========================
AutoItSetOption ("WinTitleMatchMode", 4)
WinActivate("classname=Diablo II")
AutoItSetOption("MouseCoordMode", 0)
AutoItSetOption("PixelCoordMode", 0)
;======================( Sleep )=======================
sleep(500)
;==================( Game Name as Pass)================
mouseclick("left", 712, 483, 1 ,2)
sleep(300)
send($gamename)
sleep(200)
send("{tab}")
sleep(300)
;/// PASSWORD ///
send($gamename)
;/// End Password ///
sleep(200)
send("{enter}")
sleep(300)
;================( Function name)========
readpass()
;================( Loop )================
Func readpass()
While 1
$password = FileReadLine ( $pass )
If @ERROR = -1 Then ExitLoop
;===========( Pixel Search )===========
sleep(50)
mousemove (713, 465, 1)
sleep(50)
$lobby = PixelSearch( 416, 285, 416, 285, 0xFCE4A4 )
If @error Then
sleep(600)
EndIf
$gamecheck = PixelSearch ( 307, 602, 307, 602, 0xB08848, 7 )
If not @error Then
sleep(350)
send("{esc}")
exit
Endif
mouseclick("left", 712, 483, 1 ,2) ;Click 'Join'
sleep ( 200 )
Send ( $gamename , 0 )
sleep(100)
Send ( '{TAB}' )
sleep(200)
Send ( $password , 0 )
sleep(100)
Send ( '{ENTER}' )
sleep ( 100 )
Wend
FileClose ( $pass )
EndFunc |
 
Last edited by nddwind; 2004-09-02 at 12:14 AM.
|
|
 |
|
|
|
|
|
|
|
|
|
Linear Mode
