Free source

;============================( 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)

;======================( 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