Sign in to follow this  
Followers 0
Bounda

Diablo Ii Muler!

5 posts in this topic

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

#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

Share this post


Link to post
Share on other sites



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. :)

Share this post


Link to post
Share on other sites

$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?


-jaenster

Share this post


Link to post
Share on other sites

$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 -.-

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0