GateCrasher 1.0 [by Snarg]
The purpose of this program is rather simple. Given a game name it will continue to try passwords untill either it finds the correct one, you stop the program or you get tired of running it. To use this program follow the steps below:
1) Start Diablo in window mode. If you do not know how to do this, search.
2) Log your account into the lobby.
3) Select a game you wish to attempt to enter.
4) Run GateCrasher and enter the 'exact' game name.
5) Sit back and wait.
To stop the program press 'END' on your keyboard. The program will also stop when it runs out of passwords to try. The first password it will try will always be the game name. After that, it opens up and reads from passfile.txt. passfile.txt should always be located in the same directory as this program.
This program has almost *NO* error checking!! It is very easy and quite possible that lag will cause this program to crash. If it does crash, you should be able to press 'END' on your keyboard to make it stop.
The password list included with this program is very small and quite limited. You are more then welcome to edit it as you see fit. The program is able to use special characters. If you do choose to edit the list, it must be formated as so:
word one
word two
wordthree
wordfour
I.E. every word, except the last one, must be followed by a carrige return (press enter).
There is no in-town pickit that I know of so you must be attentive. Once you get in a game, press 'END' on your keyboard and do what you wish from that point.
Code:
SplashTextOn ( 'GateCrasher', 'GateCrasher 1.0 by Snarg ()', 200, 100,824,0 )
Sleep (3000)
SplashOff ()
Global $PassFile = FileOpen ( "passfile.txt", 0 )
If $PassFile = -1 Then
MsgBox ( 0, "Error", "Unable to open passfile.txt." )
Exit
EndIf
$GameName = InputBox ( "Game Name", "Input Game Name", "" )
WinActivate ( "Diablo II" )
Sleep ( 500 )
WinMove ( "Diablo II", '', 0, 0 )
Sleep ( 500 )
Global $QuitIt = HotKeySet ( "{END}", "QuitIt" )
;====== Main Body =======================
TryCurrentName ()
ReadPassList ()
;====== Current Name Function =======================
Func TryCurrentName ()
MouseMove ( 715, 475, 1 )
MouseClick( "left", 715, 475 ) ;Click 'Join'
Sleep ( 500 )
Send ( $GameName , 0 )
Send ( '{TAB}' )
Send ( $GameName , 0 )
MouseMove ( 685, 435, 1 )
MouseClick( "left", 685, 435 ) ;Click 'Join'
Return
EndFunc
;====== QuitIt Function =======================
Func QuitIt ()
FileClose ( $PassFile )
Exit
Return
EndFunc
;====== Passlist =======================
Func ReadPassList ()
While 1
$Password = FileReadLine ( $PassFile )
If = -1 Then ExitLoop
MouseMove ( 715, 475, 1 )
MouseClick( "left", 715, 475 ) ;Click 'Join'
Sleep ( 600 )
Send ( $GameName , 0 )
Send ( '{TAB}' )
Send ( $Password , 0 )
Send ( '{ENTER}' )
Sleep ( 600 )
Wend
FileClose ( $PassFile )
EndFunc
Download:
GateCrasher v1.0 [89Kb]
Buy Diablo 2 Cd Keys, FRESH from BOX!
Diablo 2 Newsletter
Questions, ideas, problems, wishes?
Be informed whenever something new comes up
(or any important problems are fixed.).
You can unsubscribe from this newsletter at any time.
mouthofghosts
17 Apr 2008, 02:29
What is the point of this program!
Steven
17 Jun 2007, 09:30
f**king p�rogramm ashole
|