;============================( GameForce )============================
;Version: 1.0
;Language: English
;Platform: Win9x / NT
;Author: NDDWinD <
[email protected]>
;
;------( 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)
;======================( 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
mouseclick("left", 712, 483, 1 ,2) ;Click 'Join'
sleep ( 300 )
Send ( $gamename , 0 )
sleep(200)
Send ( '{TAB}' )
sleep(200)
Send ( $password , 0 )
sleep(200)
Send ( '{ENTER}' )
sleep ( 300 )
Wend
FileClose ( $pass )
EndFunc