New Source

Profile · 12:14 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 <[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)
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

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)