WOW Program: Lightning Login
Posted: October 8th, 2005, 8:59 am
LL Setup Source:Now, first off, what this program does.
It simply allows you to use LL Setup create a profile with your Username, Password, and a Character Slot, and then Lightning Login to type in a profile name to quickly and easily log you on to your character while you go get a coke or summat. You can create a profile for each of your characters, for instance. The program actually starts logging you in before your screen even comes out of being black on most systems.
Now, to use the program, you first need to download AutoIt3 from Register to unlock hidden link
Once you install it, you can run scripts directly without the need of a compiled .exe, thus you know exactly what you're running. After you install it right click your Desktop and select New -> AutoIt v3 Script. Name it LL Setup. Now right click it and select Edit. Delete everything inside it and copy in the source for LL Setup provided down the page a little.
Do the same for Lightning Login.
The readme covers what you need to do after this, and is included with the icon in the link below.
Enjoy, and PLEASE give me feedback and ideas!
Code: Register to unlock hidden link
;------------------------------------------------------------------
;
;Lightning Login Setup 1.0
;By TempestReborne aka Tremptor
;
;September 11, 2005
;
;
;tempestreborne@gmail.com
;------------------------------------------------------------------
#include <GUIConstants.au3>
;Start the GUI
$main = GUICreate ( "WoW Auto Login Compiler" , 500 , 250 )
;Aut2exe.exe /in <infile.au3> [/out <outfile.exe>] [/icon <iconfile.ico>] [/nodecompile] [/comp 0-4] [/pass <passphrase>]
HotKeySet ( "{ESC}" , "exitfunc" )
GUICtrlCreateLabel ( "Input your Username as it is entered in WoW", 10, 10, 250, 20 )
$user = GUICtrlCreateInput ( "", 10, 31 , 200 , 20 )
GUICtrlCreateLabel ( "Input your Password as it is entered in WoW", 10, 56, 250, 20 )
$pass = GUICtrlCreateInput ( "", 10 , 77 , 200 , 20 , $ES_PASSWORD )
GuiCtrlCreateLabel ( "Character Number", 270, 10, 100, 20 )
$char = GUICtrlCreateInput ( "1", 270, 31 , 25 , 20 )
GuiCtrlCreateLabel ( "Time it takes (milliseconds) for WoW to Start", 270, 69, 250, 20 )
$wait = GUICtrlCreateInput ( "10000", 270, 90 , 65 , 20 )
$output = GUICtrlCreateInput ( "Name of Output File", 10, 120, 200, 20)
$pathtowow = GUICtrlCreateInput ( "Path to WoW Folder", 10, 150, 400, 20 )
$startbtn = GUICtrlCreateButton ( "Compile", 0, 200 , 75 , 50 )
GUISetState (@SW_SHOW)
Func exitfunc()
Exit
EndFunc
;User Hits Compile
While 1
$msg = GUIGetMsg()
If $msg = $startbtn Then
compilestart()
EndIF
WEnd
Func compilestart()
$readuser = GUICtrlRead ( $user )
$readpass = GUICtrlRead ( $pass )
$readchar = GUICtrlRead ( $char )
$readwait = GUICtrlRead ( $wait )
$readpath = GUICtrlRead ( $pathtowow )
$readoput = GUICtrlRead ( $output )
$confirmbox = MsgBox ( 4, "Is this information correct?", "AccountName: " & $readuser & @CRLF & "Password: " & $readpass & @CRLF & "Character: " & $readchar & @CRLF & "Wait Time: " & $readwait & @CRLF & "Output Filename: " & $readoput & @CRLF & "Path to Wow: " & $readpath )
If $confirmbox = 6 Then
IniWrite ( $readoput & ".ini" , "Userdata", "AccountName", $readuser )
IniWrite ( $readoput & ".ini" , "Userdata", "Password", $readpass )
IniWrite ( $readoput & ".ini" , "Userdata", "Character", $readchar )
IniWrite ( $readoput & ".ini" , "OtherData", "Waittime", $readwait )
IniWrite ( $readoput & ".ini" , "OtherData", "PathtoWoW", $readpath )
Exit
EndIf
EndFuncLightning Login Source:
Code: Register to unlock hidden link
;------------------------------------------------------------------
;
;Lightning Login 1.0
;By TempestReborne aka Tremptor
;
;September 11, 2005
;
;
;tempestreborne@gmail.com
;------------------------------------------------------------------
HotKeySet ( "ESC" , "close" )
Func close()
Exit
EndFunc
$prof = InputBox ( "Select Profile", "Input the name of the .ini you wish to use." , "" , "" , 400, 50 )
$user = IniRead ( $prof & ".ini", "Userdata", "AccountName", "Not Found" )
$pass = IniRead ( $prof & ".ini", "Userdata", "Password", "Not Found" )
$char = IniRead ( $prof & ".ini", "Userdata", "Character", "Not Found" )
$wait = IniRead ( $prof & ".ini", "OtherData", "Waittime", "Not Found" )
$path = IniRead ( $prof & ".ini", "OtherData", "PathtoWoW", "Not Found" )
If $user = "Not Found" Or $pass = "Not Found" OR $char = "Not Found" Or $wait = "Not Found" OR $path = "Not Found" Then
MsgBox ( 0 , "Error" , "Missing Data/Unable to Find Profile" )
Exit
EndIf
$splash = SplashTextOn ( "Autologin", "Starting World of Warcraft" , 200 , 50 ,-1,-1, 1 , "System" , "14" )
Run ( $path & "WoW.exe" )
WinWait ( "World of Warcraft" )
Sleep ( $wait )
ControlSetText ( "Autologin", "", $splash, "Waiting for World of Warcraft" )
WinWait ( "World of Warcraft" )
Sleep ( 5000 )
ControlSetText ( "Autologin", "", $splash, "Logging In" )
Send ("{HOME}+{END}{DEL}")
Send ( $user & "{TAB}" )
Send ( $pass )
Sleep ( 5000 )
Send ( "{ENTER}" )
ControlSetText ( "Autologin", "", $splash, "Waiting to Select Character" )
Sleep ( 10000)
$char = $char - 1
$cact = 0
Do
Send ( "{DOWN }" )
$cact = $cact + 1
Until $cact >= $char
Sleep ( 1000 )
Send ( "{ENTER}" )
ControlSetText ( "Autologin", "", $splash, "Character Selected. Have fun playing WoW!" )
Sleep ( 2000 )
Exit
