Diablo Ii Muler!

[Bounda]

Hehe.. yes i made a d2 muler. It creates an account, makes a new barb and makes a game. It sits there for three hours to perm it then returns to making another character. it logs the account name and pw for u. just copy and paste from log.txt

expandcollapse popup

#include <GUIConstants.au3>
#include <file.au3>
GUICreate("Mule Me!", "50", "50")
$Mule = GUICtrlCreateButton("Mule!", 10, 10);Hit this to create an army of mules!
$d2 = RegRead("HKEY_LOCAL_MACHINE\Software\Blizzard Entertainment\Diablo II", "Program")
$Account = Random(1, 10000000)
$Password = Random(5, 5748375)
$i = 1
$Char1 = Random(Asc('A'), Asc('Z'), 1)
$Char2 = Random(Asc('A'), Asc('Z'), 1)
$Char3 = Random(Asc('A'), Asc('Z'), 1)
$Char4 = Random(Asc('A'), Asc('Z'), 1)
$Char5 = Random(Asc('A'), Asc('Z'), 1)
$Char6 = Random(Asc('A'), Asc('Z'), 1)
$Char7 = Random(Asc('A'), Asc('Z'), 1)
$Char8 = Random(Asc('A'), Asc('Z'), 1)
GUISetState()

While 1
    $msg = GUIGetMsg()
Select
    Case $msg = $Mule
        _DiabloMules()
    Case $msg = $GUI_EVENT_CLOSE
    Exit
EndSelect
WEnd

Func _DiabloMules()
    Run($d2)
    WinWaitActive("Diablo II")
    Sleep(2000)
MouseClick("Left")
    Sleep(1000)
MouseClick("Left")
    Sleep(1000)
MouseClick("Left")
    Sleep(1000)
MouseClick("Left", 445, 357)
    Sleep(3000)
MouseClick("Left", 400, 558)
    Sleep(3000)
MouseClick("Left", 580, 492)
    Sleep(1000)
MouseClick("Left", 465, 335)
Sleep(100)
MouseClick("Left", 465, 335)
    Sleep(500)
    Send($Account & "Mule10101")
    Sleep(500)
    Send("{TAB}")
    Sleep(500)
    Send($Password)
    Sleep(500)
    Send("{TAB}")
    Sleep(500)
    Send($Password)
    Sleep(500)
    Send("{ENTER}")
    Sleep(500)
    Send("{ENTER}")
    Sleep(500)
MouseClick("Left", 433, 563)
    Sleep(500)
Do
        $i = $i + 1
_FilewriteLog(@ScriptDir & "\log.txt", "Account Name = " & $Account)
_FilewriteLog(@ScriptDir & "\log.txt", "Account Password = " & $Password)
MouseClick("Left", 460, 398)
    Sleep(500)
MouseClick("Left", 152, 479)
    Sleep(500)
MouseClick("Left", 399, 287)
    Sleep(500)
    Send(Chr($Char1) & Chr($Char2) & Chr($Char3) & Chr($Char4) & Chr($Char5) & Chr($Char6) & Chr($Char7) & Chr($Char8))
    Sleep(500)
    Send("{ENTER}")
    Sleep(1000)
MouseClick("Left", 589, 459)
    sleep(100)
    Send(random("124", "3543545"))
    sleep(1000)
    Send("{TAB}")
    sleep(1000)
    Send(random("124", "3543545"))
    Sleep(500)
    Send("{ENTER}")
    Sleep(10805000)
    Send("{ESC}")
    Sleep(500)
    Send("{ESC}")
    Sleep(500)
Until $i = 8
EndFunc

[Paulie]

Good job, works ok, but it wont work if you have Diablo in a window instead of full screen, make coords realative to the active window , and you should probably put in a hotkey exit just in case you don't want your comp to sit there for 25 hrs.

[Bounda]

aight ty for the feedback =D

[jaenster]

$Char1 = Random(Asc('A'), Asc('Z'), 1)
$Char2 = Random(Asc('A'), Asc('Z'), 1)
$Char3 = Random(Asc('A'), Asc('Z'), 1)
$Char4 = Random(Asc('A'), Asc('Z'), 1)
$Char5 = Random(Asc('A'), Asc('Z'), 1)
$Char6 = Random(Asc('A'), Asc('Z'), 1)
$Char7 = Random(Asc('A'), Asc('Z'), 1)
$Char8 = Random(Asc('A'), Asc('Z'), 1)
GUISetState()

hmm ever heard of arrays?

[Bounda]

$Char1 = Random(Asc('A'), Asc('Z'), 1)
$Char2 = Random(Asc('A'), Asc('Z'), 1)
$Char3 = Random(Asc('A'), Asc('Z'), 1)
$Char4 = Random(Asc('A'), Asc('Z'), 1)
$Char5 = Random(Asc('A'), Asc('Z'), 1)
$Char6 = Random(Asc('A'), Asc('Z'), 1)
$Char7 = Random(Asc('A'), Asc('Z'), 1)
$Char8 = Random(Asc('A'), Asc('Z'), 1)
GUISetState()

hmm ever heard of arrays?

actually i havnt -.-