[TUT] DK Auto LogIn (AutoIt style)

[thorfalahnur]

"Wuat thisz does?"<-----Naniooo style
Just like iCraziE's login tool onli that it reads pre-saved info from an excel file (user inputed) and logs you in. Clicks "Start" automaticly but sometimes glitches on pressing "Start".

Needs <include> files to be in the same directory
Needs PATH to be changed to the path to the excel file.

Only the first 2 buttons work, if you want the rest of the buttons to work, read the code and figure it out.

Before you start it fill in your info in the excel file.

Excel.au3:
Login.xls :
nomadmemory extended :

 Spoiler

;#include <nomadmemory.au3>
#include <nomadmemory extended.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Excel.au3>
#include <WinAPI.au3>
;#include <login.au3>
;#include <Start.au3>
#Region Form1
$Name="Login"
Global $LoginNames = _ExcelBookOpen("PATH",0,1)
Dim $posXD = (@DesktopWidth - 180)
$Form1 = GUICreate ($Name, 153, 500, $posXD, 0, BitXOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MINIMIZEBOX,$WS_EX_TOPMOST), -1, WinGetHandle(AutoItWinGetTitle()))

$Name01=_ExcelReadCell($LoginNames,2,3)
$Name02=_ExcelReadCell($LoginNames,3,3)
$Name03=_ExcelReadCell($LoginNames,4,3)
$Name04=_ExcelReadCell($LoginNames,5,3)
$Name05=_ExcelReadCell($LoginNames,6,3)
$Name06=_ExcelReadCell($LoginNames,7,3)
$Name07=_ExcelReadCell($LoginNames,8,3)
$Name08=_ExcelReadCell($LoginNames,9,3)
$Name09=_ExcelReadCell($LoginNames,10,3)
$Name10=_ExcelReadCell($LoginNames,11,3)

$Level01=_ExcelReadCell($LoginNames,2,4)
$Level02=_ExcelReadCell($LoginNames,3,4)
$Level03=_ExcelReadCell($LoginNames,4,4)
$Level04=_ExcelReadCell($LoginNames,5,4)
$Level05=_ExcelReadCell($LoginNames,6,4)
$Level06=_ExcelReadCell($LoginNames,7,4)
$Level07=_ExcelReadCell($LoginNames,8,4)
$Level08=_ExcelReadCell($LoginNames,9,4)
$Level09=_ExcelReadCell($LoginNames,10,4)
$Level10=_ExcelReadCell($LoginNames,11,4)

$CLASS01=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,2,5),125,25,120,25)
$CLASS02=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,3,5),125,50,120,25)
$CLASS03=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,4,5),125,75,120,25)
$CLASS04=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,5,5),125,100,120,25)
$CLASS05=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,6,5),125,125,120,25)
$CLASS06=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,7,5),125,150,120,25)
$CLASS07=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,8,5),125,175,120,25)
$CLASS08=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,9,5),125,200,120,25)
$CLASS09=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,10,5),125,225,120,25)
$CLASS10=GUICtrlCreateLabel(_ExcelReadCell($LoginN ames,11,5),125,250,120,25)


$Button01 = GUICtrlCreateButton ($Name01 &" | Lv"& $Level01, 3, 20, 120, 25)
$Button02 = GUICtrlCreateButton ($Name02 &" | Lv"& $Level02, 3, 45, 120, 25)
$Button03 = GUICtrlCreateButton ($Name03 &" | Lv"& $Level03, 3, 45+25, 120, 25)
$Button04 = GUICtrlCreateButton ($Name04 &" | Lv"& $Level04, 3, 45+50, 120, 25)
$Button05 = GUICtrlCreateButton ($Name05 &" | Lv"& $Level05, 3, 45+75, 120, 25)
$Button06 = GUICtrlCreateButton ($Name06 &" | Lv"& $Level06, 3, 45+100, 120, 25)
$Button07 = GUICtrlCreateButton ($Name07 &" | Lv"& $Level07, 3, 45+125, 120, 25)
$Button08 = GUICtrlCreateButton ($Name08 &" | Lv"& $Level08, 3, 45+150, 120, 25)
$Button09= GUICtrlCreateButton ($Name09 &" | Lv"& $Level09, 3, 45+175, 120, 25)
$Button10 = GUICtrlCreateButton ($Name10 &" | Lv"& $Level10, 3, 45+200, 120, 25)

$Group1 = GUICtrlCreateGroup ("Characters", 1, 3,150,275)

ProcessClose("excel.exe")
GUISetState(@SW_SHOW, $Form1)
#EndRegion ### END Koda GUI section ###
#Region Form2
Global $Form2
Local $Form2 = GUICreate("Progress", 153, 30, $posXD, 600, BitOR($WS_THICKFRAME,$WS_SYSMENU,$WS_CLIPCHILDREN, $WS_POPUP,$WS_TABSTOP,$DS_SETFOREGROUND), BitOR($WS_EX_APPWINDOW,$WS_EX_WINDOWEDGE))
$Progress1 = GUICtrlCreateProgress(2, 2, 148, 25)
;$Label1 = GUICtrlCreateLabel("Label is on top", 2, 2, 148, 25)
GUISetState(@SW_SHOW, $Form2)
#EndRegion ### END Koda GUI section ###
GUISetState(@SW_SHOW, $Form1)
#Region Form Position
WinActivate ($Name)
Global $RelPos[2]
GUIRegisterMsg($WM_ENTERSIZEMOVE, "setrelpos")
GUIRegisterMsg($WM_MOVE, "followme")
Func followme($hW, $iM, $wp, $lp)
If $hW <> $Form1 Then Return
Local $xypos = WinGetPos($Form1);use WingetPos rather than the values in $lP
WinMove($Form2, "", $xypos[0] - $RelPos[0], $xypos[1] - $RelPos[1])
EndFunc ;==>followme
Func SetRelPos($hW, $iM, $wp, $lp)
If $hW <> $Form1 Then Return
Local $gpp = WinGetPos($Form1)
Local $gsp = WinGetPos($Form2)
$RelPos[0] = $gpp[0] - $gsp[0]
$RelPos[1] = $gpp[1] - $gsp[1]
EndFunc ;==>SetRelPos
#endregion
#region ProgressBar
func _progressbar()
$i=0
GUICtrlSetData($Progress1,$i)
For $i=0 to 120
GUICtrlSetData($Progress1, $i)
sleep (35)
Next
GUICtrlSetData($Progress1, 0)
EndFunc
func _progressbar2()
$i=0
GUICtrlSetData($Progress1,$i)
For $i=0 to 120
GUICtrlSetData($Progress1, $i)
sleep (500)
Next
GUICtrlSetData($Progress1, 0)
EndFunc

#endregion
#region functions
Func signin($Lname,$Lpass)
Global $LoginNames = _ExcelBookOpen("PATH",0,1)
Global $LoginName = _ExcelReadCell($LoginNames,$Lname,2) ;Starting on the 2nd Column
Global $LoginPassword = _ExcelReadCell($LoginNames,$Lpass,6) ;Starting on the 2nd Column
Global $oIE = _IECreate ("https://passport.nexoneu.com/Login.aspx?nexoneuTheme=DEKARON","",0)
Local $username = _IEGetObjByName ($oIE, "txtLogin0")
Local $password = _IEGetObjByName ($oIE, "txtPassword0")
Local $loginbutton = _IEGetObjByName ($oIE, "btnLogin")
_IEFormElementSetValue($username,$LoginName)
_IEFormElementSetValue($password,$LoginPassword)
_IEAction ($loginbutton,"click")
Sleep(500)
_IENavigate($oIE, "http://dekaron.nexoneu.com/NXEU.aspx")
;Local $start = _IEGetObjById ($oIE, "/Controls/Main/mainLeft_LoginControl_pnlLogout")
;Sleep(500)
_IELoadWait($oIE)
;_________________________GET ELEMENT THAT CONTAINS__________________________________________ ___________
_IELinkGetCollection($oIE)
Local $oLinks = _IELinkGetCollection($oIE)
Local $iNumLinks = @extended
;MsgBox(0, "Link Info", $iNumLinks & " links found")
For $oLink In $oLinks
;MsgBox(0, "Link Info", $oLink.href)
If $oLink.href = "javascript:launchGame();" Then ;click on the youtube link
_IEAction($oLink, "click")
ExitLoop
EndIf
Next
;_________________________________________________ __________________________________________________ _____
Sleep(1000)
$handle=_WinGetByPID("launcher.exe")
Sleep (2000)
ControlClick($handle, "", "[CLASS:Static; Instance:7]","left",1)

;_IENavigate($oIE,"javascript:launchGame()")
;_IELoadWait($oIE)
;_IENavigate($oIE,"javascript:launchGame()")
;_IENavigate($oIE,"google.com")
;
EndFunc
Func clearhystory()
;__________________________CLEAR HISTORY & COOKIES___________________________________________ _________
;RunWait ( 'RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 1', '', @SW_HIDE ) ;clear hist
;Sleep(200)
RunWait ( 'RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2', '', @SW_HIDE ) ;clear cookies
;_________________________________________________ __________________________________________________ __
EndFunc
#endregion
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button01
_progressbar()
Sleep(500)
signin(2,2)
clearhystory()
ProcessClose ("iexplore.exe")
ProcessClose ("excel.exe")
Case $Button02
_progressbar()
Sleep(500)
signin(3,3)
clearhystory()
ProcessClose ("iexplore.exe")
ProcessClose ("excel.exe")
EndSwitch
WEnd
;$handle=_WinGetByPID("launcher.exe")
;WinActivate (HWnd($handle))