Jump to content

Diablo II Packet


Swift
 Share

Recommended Posts

i made this packet of diablo ii login program and uberzhelperz...tell me if you like it

a msgbox will popup at first..to login to battle.net choose..no so that it will create the .ini file to read from..sorry about this...im not too expericenced...then...re-run the script and press yes..it will run d2 and login and choose either your 1st char...or..if you have a 6th char...it will choose that...i have the attached .exe and .au3. I was reading about that person who make a program like this...that made it send your info...if you dont trust it at first..download the .au3 check it out...and if thats file try the .exe on a different acct...its 100% safe. I Attached All The Files At The Bottom...Thanks

~~==PLEASE DONT STEAL THESE SCRIPTS AND NAME THEM YOUR OWN==~~

heres the files: .Au3

$answer = MsgBox(4, "Diablo II", "Login To Battle.Net?")
; Check the user's answer to the prompt (see the help file for MsgBox return values)
; If "No" was clicked (7) then exit the script
If $answer = 7 Then
    iniwrite(@scriptdir & "\D2.ini", "D2Config", "Account", "")
IniWrite(@scriptdir & "\D2.ini", "D2Config", "Password", "")
IniWrite(@scriptdir & "\D2.ini", "D2Config", "SecondsToRunD2", "")
    Exit
EndIf
$acct = iniread(@Desktopdir & "\D2.ini", "D2Config", "Account", "")
sleep(50)
$pw = iniread(@Desktopdir & "\D2.ini", "D2Config", "Password", "")
$sleep = iniread(@desktopdir & "\d2.ini", "D2Config", "SecondsToRunD2", "")
sleep(50)
; run Diablo II
Run("C:\Program Files\Diablo II\Diablo II.exe")
; running sleep for execution
Sleep($sleep)
Send("{ENTER}")
Send("{ENTER}")
Send("{ENTER}")
Sleep(3000)
MouseClick("left", 450, 340)
Sleep(2000)
MouseClick("left")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send("{BACKSPACE}")
Send($acct)
Send("{TAB}")
Sleep(500)
Send($pw)
Send("{ENTER}")
Sleep(1000)
MouseClick("left", 192, 307)
Sleep(500)
Send("{ENTER}")
Sleep(500)
MouseClick("left", 91, 462)

also..another program by me...not spectacual :P it just auto-bo's and auto-hammers for D2

called: UbErZHeLpeRz

MsgBox(0, "UbErZHeLpeRz (By: SwiFt)", "To BO, Just Press ' ." & @CRLF & "To Auto-Hammer. Press ] And To Stop Press ] ." & @CRLF & "To Shutdown The Script Completely Press END" & @CRLF & "Make Sure Your 2 BO's Are Set At F7, F8!")
Func bo()
Send("w")
Sleep(500)
Send("{F7}")
Sleep(200)
Mouseclick("right")
Sleep(250)
Send("{F8}")
Sleep(250)
Mouseclick("right")
Sleep(550)
Send("w")
Sleep(150)
Send("{F3}")
Sleep(350)
Mouseclick("right")
Sleep(350)
Send("{F2}")
    EndFunc
HotkeySet("'", 'bo')
HotkeySet(']', 'Hammer')
HotKeySet("}", "otherhammer") 
Hotkeyset("{END}", "Term")
Func Hammer()
; Variable to indicate whether the mouse is already down
    Global $Down
    If $Down Then
        MouseUp('Left')
        Send("{SHIFTUP}")
    Else
        MouseDown('Left')
        Send("{SHIFTDOWN}")
    EndIf
; Swap the value of the variable to reflect the new state
    $Down = Not $Down
EndFunc
Func otherhammer()
; Variable to indicate whether the mouse is already down
    Global $Down
    If $Down Then
        MouseUp('Left')
        Send("{SHIFTUP}")
    Else
        MouseDown('Left')
        Send("{SHIFTDOWN}")
    EndIf
; Swap the value of the variable to reflect the new state
    $Down = Not $Down
EndFunc
While 1
    Sleep(1000)
WEnd
Func Term()
    Mouseup("left")
    Send("{SHIFTUP}")
Exit 0 
EndFunc

~~~Thanks...Tell me if you like 'em :)

D2LoginScript.au3

D2LoginScript.exe

UbeRzHelPErZ.exe

UbeRzHelPErZ.au3

Edited by Swift
Link to comment
Share on other sites

just a little house-cleaning:

Global $account = IniRead(@ScriptDir & "\D2.ini", "D2Config", "Acount", "")
If $account = "" Then
    $account = IniWrite(@ScriptDir & "\D2.ini", "D2Config", "Account", InputBox("Diablo II","Account"))
    IniWrite(@ScriptDir & "\D2.ini", "D2Config", "Password", InputBox("Diablo II","Account"))
EndIf
Global $password = IniRead(@ScriptDir & "\D2.ini", "D2Config", "Password", "")
Run("C:\Program Files\Diablo II\Diablo II.exe")
Send("{ENTER 3}")
Sleep(3000)
MouseClick("left", 450, 340)
Sleep(2000)
MouseClick("left")
Send("{BACKSPACE 17}" & $account & "{TAB}")
Sleep(500)
Send($password & "{ENTER}")
Sleep(1000)
MouseClick("left", 192, 307)
Sleep(500)
Send("{ENTER}")
Sleep(500)
MouseClick("left", 91, 462)

This should be the same script, except for the time, but you can put that back in.... it's just shortened tremendously

Edited by crzftx
Link to comment
Share on other sites

I would edit, but AutoIt tags break upon edit.

Global $account = IniRead(@ScriptDir & "\D2.ini", "D2Config", "Account", "")
If $account = "" Then
    $account = IniWrite(@ScriptDir & "\D2.ini", "D2Config", "Account", InputBox("Diablo II","Account"))
    IniWrite(@ScriptDir & "\D2.ini", "D2Config", "Password", InputBox("Diablo II","Password"))
EndIf
Global $password = IniRead(@ScriptDir & "\D2.ini", "D2Config", "Password", "")
Run("C:\Program Files\Diablo II\Diablo II.exe")
Send("{ENTER 3}")
Sleep(3000)
MouseClick("left", 450, 340)
Sleep(2000)
MouseClick("left")
Send("{BACKSPACE 17}" & $account & "{TAB}")
Sleep(500)
Send($password & "{ENTER}")
Sleep(1000)
MouseClick("left", 192, 307)
Sleep(500)
Send("{ENTER}")
Sleep(500)
MouseClick("left", 91, 462)

I spelled "account" wrong in the first line, and i didnt change "account" to "password" in the 4th line after Copy & Paste

Now it should work.

Link to comment
Share on other sites

~~==PLEASE DONT STEAL THESE SCRIPTS AND NAME THEM YOUR OWN==~~

People here (with the exception of noobs) aren't like that

Ummm no offense but anything that sends keys and mouse clicks is REALLY unreliable and stuff. Thus why people don't respond. Since if someones resolution is different this crap does no good. If it was more concrete then I'm sure more people would use it.

Well I don't think that is any type of useful feedback if it doesn't help us to slove a problem then its prolly better off not said..

17 downloads but no feedback

Sorry to say but thats a widespread feeling around here... you'll get used to it though it sucks..

Anyways always glad to see avid diablo fans ... I used to be one too until I got a job and a car ... now I just don't have as much time...

[center][/center]

Link to comment
Share on other sites

I'm afraid I didn't read all the replys but to the comment about mouseclicks being unreliable, the resolution of the user's computer doesn't matter. In my personal experience ( in manually doing what this program does ) It seems as though it would work just fine. Diablo uses its own resolutions, a small one and a big one. Noone uses the small one, but its nice to include which you MUST use in the ReadMe. Or have a option for both.

After looking over the script, you probably helped several people who were more interested in going to try it out rather than reply :blink:. No worries bud. I'm currently working on a proggy for Diablo that maybe you would be interested in helping me with. Two minds are better than one. :) Especially 2 with experience to that of which the program is meant to do.

PS: Some suggestions.

Instead of MsgBox's coming up to tell the user what the settings are to be and etc. ( For example, bo being at F8 and F7. ) Just enter those into a included readme. From some opinions from past programs I wrote for friends, they tell me its annoying when it comes up every time they run it, and they already know it.

Other than that irrelevant detail, looks good man :P. Makes a rather annoying task a little bit more bearable.

*Drew

Link to comment
Share on other sites

just include the .txt in the folder for the user to download. tell them to create a shortcut or something if they want to have the .exe on the desktop, and just having lets say "ReadMe.txt" in the scripts folder, you can include a MsgBox asking if they'd like to read the ReadMe , and if they say yes than tell it to open the file using the macro for the scripts directory. ( that way it won't matter where the user install your programs folder to, since your directories may be different than theirs. )

I think theres a way to make it only pop that MsgBox for the readme, the first time you/they run the program. Kinda like the validation some people put on theirs. Im unsure of that though , I'm somewhat new to AutoIt myself. The ReadMe thing though, I use on my own program. Has way too many options and hotkeys to use than I could put into a MsgBox.

Just an Idea though :)

*Drew

Link to comment
Share on other sites

You could try using ClipPut($Account) and then Send("^v") which is much faster than typing it in.

Some over-the-top features might be a GUI with buttons that will launch different profiles (Accounts to log in), minimized clicking, and possibly a (actual, lol) packet to change your home channel, so you start in whatever channel is in the GUI (or however you do it). Support for external apps like maphack or RedVex would be nice too!

Great job so far ! :)

Link to comment
Share on other sites

  • 1 year later...

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Send("{BACKSPACE}")

Maybe better is use 2x Mouse click and one backspace :)

But nice :party:

This world is crazy

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...