Auto Login

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
#include <GuiListView.au3>
#RequireAdmin
;~ 	Lấy Thông Tin Cửa Sổ
GuiSetIcon(@DesktopCommonDir & "\1.ico")
GUICtrlSetFont(-1, 24, 800, 0, "Tahoma")
GUICtrlSetColor(-1, 0x0000FF)
$Form1 = GUICreate("AutoGame Tây Du Ký", 300, 600, 1050, 16) ;Tiêu Đề

Local $hWnd = WinWait("[CLASS:LineKongGame]", "", 1)
WinActivate("[CLASS:LineKongGame]", "")


GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState(-1, $GUI_FOCUS)

$exit = GUICtrlCreateButton("Thoát", 187, 10, 75, 25) ;Nút Dừng
$Group1 = GUICtrlCreateGroup("Tester", 10, 40, 280, 90)
$Login = GUICtrlCreateButton("Đăng Nhập", 100, 63, 80, 21)

$cb = GUICtrlCreateCombo("ID", 85, 97, 100, 21)
;GUICtrlSetData(-1, "ID 1| ID 2 | ID 3")

GUISetState(@SW_SHOW)

Global $X
_LoadTaiKhoan()
;~ Hàm Điều Khiển Nút
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $Login
			Login()
		Case $exit
			_Exit()
	EndSwitch
WEnd



Func Login()
   ;lay pass theo id
  $Count = UBound($X)
  $Pass = ""
  For $i = 1 to $Count -1
	 ;tach NAME ID PASS
	  $ACC = StringSplit($X[$i], "-")
	  $ID = $ACC[2]

	  If GUICtrlRead($cb) = $ID Then
		 $Pass = $ACC[3]
		 ExitLoop
	  EndIf
   Next

   if $Pass <> "" then
	   WinActivate("[CLASS:LineKongGame]", "")
	   WinSetState($hWnd, "", @SW_SHOW)
	   WinMove($hWnd, "", 283, 84, 808, 631)
	   MouseClick("left",754,343,2,0)
	   Send('{DELETE}')
	   Sleep(50)
	   Send(GUICtrlRead($cb))
	  ;~ 	Sleep(500)
	   MouseClick("left",754,403,1,5)
	   Send($Pass)
	   MouseClick("left",691, 453,1,5)

   Else
	  MsgBox(0,0,"Không tim thấy Pass")
   EndIf
EndFunc   ;==>HotKeyPressed

 Func _LoadTaiKhoan()
	  $DuLieu = FileRead(@ScriptDir & "\ID.txt")

	 ;add ds mới
	 $DanhSach = StringReplace($DuLieu,@CRLF,"|")
	 $X = StringSplit($DanhSach,'|')

	 $Count = UBound($X)
	 For $i = 1 to $Count -1
		;tach NAME ID PASS

		 $ACC = StringSplit($X[$i], "-")
		 $Name = $ACC[1]
		 $ID = $ACC[2]
		 $Pass = $ACC[3]

		 GUICtrlSetData($cb,$ID)
	 Next
  EndFunc

;~ Lệnh Thoát
Func _Exit()
	Local $hWnd = WinWait("[CLASS:LineKongGame]", "", 1)

;~ Set Name Cửa Sổ
	WinSetTitle($hWnd, "", "西游记 - V1.0.22.43@双线三区 - 马到功成")
	Exit
Endfunc