Auto Login fo WoW

[Zandor]

Whats that?

[Sardith]

To make your autologin a lot better...

expandcollapse popup

;Log on...
;Put login info at the top of your macro-er
;Call the funcation have it auto log you on...


;Login info;
$Path = "C:\Program Files\World of Warcraft\WoW.exe";Default path
$Accountname = "Account Name"; Put your WoW password there..
$Pass = "Account Password";Put your WoW password there...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Logon()

Func Logon()
If WinExists("World of Warcraft") Then
$hWnd = WinGetHandle("World Of Warcraft");Handle of WoW, for controlsend
Sleep(100)

ControlSend($hWnd, "", "", $Accountname);Sends it to the game, wether your in game or not. Account name.
Sleep(100)

ControlSend($hWnd, "", "", "{TAB}");Moves down to the password field.
Sleep(100)

ControlSend($hWnd, "", "", $Pass);Sends it to the game, wether your in game or not.
Sleep(100)

ControlSend($hWnd, "", "", "{ENTER}");Moves down to the password field.
Sleep(100)

Else
    Run($Path, "")
Sleep(8000);25 seconds is a bit much...
$hWnd = WinGetHandle("World Of Warcraft");Handle of WoW, for controlsend
Sleep(100)

ControlSend($hWnd, "", "", "Accountname");Sends it to the game, wether your in game or not. Account name.
Sleep(100)

ControlSend($hWnd, "", "", "{TAB}");Moves down to the password field.
Sleep(100)

ControlSend($hWnd, "", "", "AccountPassword");Sends it to the game, wether your in game or not.
Sleep(100)

ControlSend($hWnd, "", "", "{ENTER}");Moves down to the password field.
Sleep(100)
EndIf

EndFunc

I'd use control send for any sending that you need done. Just copy the method above. You can be out of the game, and have the fisher going.. I can think of tons of ways to make the logon better, but it's a improvement.

Little edit, so you can put your install path.

Edited October 18, 2006 by Sardith

[jinxter]

EULA = End User License Agreement.

I havn't seen anything there that would justify using a private server... and ontop of that, there is a checkbox which would save your accountname.

[StealthyPirate]

Hey i spotted you never estimated the ability to be super retarded.

As i can smell my own i decided to post your code with the variables

in place of "User Account" and "Pass" this should help with those who

cant run it out the box so to speak.

expandcollapse popup

;Log on...
;Put login info at the top of your macro-er
;Call the function have it auto log you on...


;Login info;
$Path = "C:\Program Files\World of Warcraft\WoW.exe";Default path
$Accountname = "User Account Here"; Put your WoW password there..
$Pass = "Password Here";Put your WoW password there...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Logon()

Func Logon()
If WinExists("World of Warcraft") Then
$hWnd = WinGetHandle("World Of Warcraft");Handle of WoW, for controlsend
Sleep(100)

ControlSend($hWnd, "", "", $Accountname);Sends it to the game, wether your in game or not. Account name.
Sleep(100)

ControlSend($hWnd, "", "", "{TAB}");Moves down to the password field.
Sleep(100)

ControlSend($hWnd, "", "", $Pass);Sends it to the game, wether your in game or not.
Sleep(100)

ControlSend($hWnd, "", "", "{ENTER}");Moves down to the password field.
Sleep(100)

Else
    Run($Path, "")
Sleep(8000);25 seconds is a bit much...
$hWnd = WinGetHandle("World Of Warcraft");Handle of WoW, for controlsend
Sleep(100)

ControlSend($hWnd, "", "", $Accountname);Sends it to the game, wether your in game or not. Account name.
Sleep(100)

ControlSend($hWnd, "", "", "{TAB}");Moves down to the password field.
Sleep(100)

ControlSend($hWnd, "", "", $Pass);Sends it to the game, wether your in game or not.
Sleep(100)

ControlSend($hWnd, "", "", "{ENTER}");Moves down to the password field.
Sleep(100)
EndIf

EndFunc

This works & is a really nice script,

it's a little slow but i suppose on lower end systems it gives

enough time for the application to load etc and you can always

speed it up yourself.

As for looping it i never really tried to be honest because

if i cant connect first time every time I'll go drink some

beer and do something else.

Thanks to all for the initial works

[Hyper]

expandcollapse popup

$sPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Blizzard Entertainment\World of Warcraft\", "InstallPath")
   $sWoW = $sPath & "WoW.exe"
   $sIni = $sPath & "login.ini"
      
   If FileExists($sIni) = "0" Then
   
      $sUserName = InputBox("User Name", "Please input your User Name:", "", "", -1, 125)
      $sPassword = InputBox("Password", "Please input your Password:", "", "*", -1, 125)

      IniWrite($sIni, "Configuration", "User Name", $sUserName)
      IniWrite($sIni, "Configuration", "Password", $sPassword)
      IniWrite($sIni, "Configuration", "WoW", $sWoW)
      IniWrite($sIni, "Configuration", "Title", "World of Warcraft")
      IniWrite($sIni, "Configuration", "Delay", "13000")
    
   EndIf

      $zCharLocz = InputBox("Character", "Please input your Character Location (1-10):", "", "", -1, 125)
      IniWrite($sIni, "Configuration", "Character", $zCharLocz - 1)
      IniWrite($sIni, "Configuration", "Delay2", "6000")
      
   $sUserName = IniRead($sIni, "Configuration", "User Name", "NotFound")
   $sPassword = IniRead($sIni, "Configuration", "Password", "NotFound")
   $sTitle = IniRead($sIni, "Configuration", "Title", "NotFound")
   $sDelay = IniRead($sIni, "Configuration", "Delay", "NotFound")
   $sDelay2 = IniRead($sIni, "Configuration", "Delay2", "NotFound")
   
   If WinExists($sTitle) Then
      ProcessClose("WoW.exe")
      Sleep(5000)
      Run($sWoW)
   Else
      Run($sWoW)
   EndIf

   Sleep($sDelay)
   Send($sUserName)
   Send("{TAB}")
   Send($sPassword)
   Send("{ENTER}")
   Sleep($sDelay2)

    $DW = @DesktopWidth
    $DH = @DesktopHeight
    $zCharLocz = IniRead($sIni, "Configuration", "Character", "NotFound")

    If $DW = 800 And $DH = 600 Then
       MouseClick("left", 657, 83, 1, 10)
    ElseIf $DW = 1024 And $DH = 768 Then
      MouseClick("left", 836, 109, 1, 10)
    Else 
      MsgBox(4100, "Error", "Script only compatible with 800x600 or 1024x768 screen resolutions. Cannot select character.")
      exit 
    EndIf

    Send("{DOWN " & $zCharLocz & "}")
    Sleep(1000)
    Send("{ENTER}")
    
    If $zCharLocz > 9 OR $zCharLocz < 0 Then
       MsgBox(4096,"Error", "Invalid Parameter")
       Exit
    EndIf

Exit

I have tried this code and when it types in the password.. it says its incorrect. I have checked my password and have even changed it to see if it works then. It still doesn't. It only works when i physically type in my password even though the script has it as well. Edited January 27, 2007 by Hyper

[luvmachine]

For you question of different window sizes. . .do a little math Not sure on the exact positions but basically you can do the following:

$wind_posi = WinGetPos("World of Warcraft")
$user_x = $wind_posi[1] + ($wind_posi[3] * %);Replace % with the % value in decimal the username box is from top of screen
$user_y = $wind_posi[2] + ($wind_posi[4] * %);Replace % with the % value in decimal the username box is from left of screen
$pass_x = $wind_posi[1] + ($wind_posi[3] * %);Replace % with the % value in decimal the password box is from top of screen
$pass_y = $wind_posi[2] + ($wind_posi[4] * %);Replace % with the % value in decimal the password box is from left of screen

You can then use those 4 new variables for your login, this should work for any size if right multipliers are put in. Not only any size, but this should work for Windowed mode WoW's that aren't in the direct corner of your screen

[xage]

fill in and 100% working with anti AFK uber took 20 min to encode

working at all resoltion

$gameloc = "LOCATION OF WoW.exe"

$username = "ACCOUNT"

$password = "PASS"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;.. Credits ..;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;.. made by XAGE ..;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;=================> Log-in button <=================;

Sleep(10000);about a min after computer boot wow starts

$gameloc = "LOCATION OF WoW.exe"

$username = "ACCOUNT"

$password = "PASS"

Run($game, "")

blockinput(1)

WinWait("World of Warcraft")

WinActivate("World of Warcraft")

WinSetState ("World of Warcraft", "", @SW_MAXIMIZE)

dim $xy[4]

$xy = WinGetPos("World of Warcraft")

sleep(1000)

MouseClick("left", $xy[0]+$xy[2]/2, $xy[1]+$xy[3]*.55833333333333,1,0)

sleep(100)

send($username & "{TAB}")

Sleep(100)

send($password & "{ENTER}")

blockinput(0)

sleep(4500)

send("{ENTER}")

;==================> anti afk <================;

Send("{SPACE}")

Sleep(Random(120000,240000)); about every 2-3 min a jump

;=================> Close <=================;

Func CLOSEClicked()

If $mainwindow Then

Exit

EndIf

Exit

EndFunc

Exit