Battle.net Login Script

Subject: Battle.net Login Script Sun Nov 16, 2008 7:57 pm

...hey, I just finished my Battle.net Login Script:

Code:: 'UnExiledBrandy.vbs
'version 1.0
'16.11.2008
'=================

Set shell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("WScript.Shell")

'Path to warcraft III.exe
shell.run """C:\Spiele\Warcraft III\Warcraft III.exe", 1
WScript.Sleep 15000
'Enter Battle.net:
objShell.SendKeys "%b"
WScript.Sleep 7000
'Password:
objShell.SendKeys "***"
WScript.Sleep 100
'Login:
objShell.SendKeys "%l"
WScript.Sleep 5000
'Enter Chat/Channel:
objShell.SendKeys "%e"

...this code may only work for the german version of warcraft III because of the commands ALT + B to join the bnet, ALT + L to login and ALT + E to join the chat. But i am willing to customize the script for your language =)

To use this code, copy it, create a new txt file on your desktop, paste the code, customize the file path to your wc3 exe and insert your password. Then rename the file to *.vbs. If you may experience issues or error messges, let me know and i will help you.

Edit: You may experience errors as soon as Blizzard releases a new update for Battle.net, because the delay and maybe the commands arent valid anymore!

Edit2: I will try to add some lines wich check if Warcraft is already running, so the script wont try to open it again.

Subject: Re: Battle.net Login Script Mon Nov 17, 2008 2:22 pm

I created the txt file and edited the neccesarities, but when i double click, it just opens in wordpad again

Subject: Re: Battle.net Login Script Mon Nov 17, 2008 6:27 pm

Sir_PostsALoT wrote:: To use this code, copy it, create a new txt file on your desktop, paste the code, customize the file path to your wc3 exe and insert your password. Then rename the file to *.vbs If you may experience issues or error messges, let me know and i will help you.

~~...I'm actually still trying to edit the script that it may NOT work when WC3 is already running, but this doesnt look easy with vbs =/~~
Edit: There is no way to edit the script at this time for that purposes due to vbs limitations and deficiency of my skill

=========================
Beta version!
The following script will close the wc3 process wc3.exe and then runs the same commands like in the first script. This script may shut down your Warcraft III even when you are in a game, so you should use this script only when you really want to =)

Code:: 'Kill and Bnet Login.vbs
'version 0.5 BETA
'17.11.2008
'=================

Set objShell = CreateObject("WScript.Shell")
strProcess = "war3.exe"
Set oShell= CreateObject("WScript.Shell")
oShell.Run "TaskKill /im " & strProcess & " /f", WindowStyle, WaitOnReturn
WScript.Sleep 2000
Set oShell = Nothing

Set objShell = CreateObject("WScript.Shell")
Set shell = WScript.CreateObject("WScript.Shell")
shell.run """C:\Spiele\Warcraft III\Warcraft III.exe", 1
WScript.Sleep 7000
objShell.SendKeys "%b"
WScript.Sleep 7000
objShell.SendKeys "924195"
WScript.Sleep 100
objShell.SendKeys "%l"
WScript.Sleep 5000
objShell.SendKeys "%e"