Sardith Posted October 18, 2006 Posted October 18, 2006 (edited) 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 [font="Verdana"]Valik:Get it straight - I'm not here to say please, I'm here to help - if my help's not appreciated then lotsa luck, gentlemen.[/font]
jinxter Posted October 18, 2006 Posted October 18, 2006 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. > there are 10 types of people in the world, those who understand binary and those who don't.
StealthyPirate Posted November 15, 2006 Posted November 15, 2006 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 Posted January 27, 2007 Posted January 27, 2007 (edited) 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 Posted January 27, 2007 Posted January 27, 2007 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 Posted February 6, 2007 Posted February 6, 2007 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
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now