Bro nào giúp AutoIT với!

[rekka318]

Mình mới nghịch Auto IT làm cái tool đăng nhập otohits.
Login thành công, mà login xong oto hit không chạy. Nó cứ dừng như thế này:

Đây là code của mình:

Func LoginOtohits($user, $pass)
	Run('C:\OtohitsNetwork\OtohitsApp\Otohits.App.exe')
	Local $oto = WinWait("Otohits App", "", 10)
	WinWaitActive($oto,"",1000)
	Opt("SendKeyDelay", 30)
	ControlSend($oto, "", "[CLASS:Edit; INSTANCE:1]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
	Sleep(100)
	ControlSend($oto,"","[CLASS:Edit; INSTANCE:1]",$user)
	Sleep(1000)
	ControlSend($oto, "", "[CLASS:Edit; INSTANCE:2]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
	Sleep(100)
	ControlSend($oto,"","[CLASS:Edit; INSTANCE:2]",$pass)
	Sleep(1000)
	ControlClick($oto,"LOGIN","[CLASS:Button; INSTANCE:1]")
EndFunc

 

[evilbaby]

chạy bằng tay nó có chạy không ?

 

[rekka318]

Chạy bằng tay ngon lành bro à

 

[dinhtai92dn]

Mình mới nghịch Auto IT làm cái tool đăng nhập otohits.
Login thành công, mà login xong oto hit không chạy. Nó cứ dừng như thế này:

Đây là code của mình:

Func LoginOtohits($user, $pass)
    Run('C:\OtohitsNetwork\OtohitsApp\Otohits.App.exe')
    Local $oto = WinWait("Otohits App", "", 10)
    WinWaitActive($oto,"",1000)
    Opt("SendKeyDelay", 30)
    ControlSend($oto, "", "[CLASS:Edit; INSTANCE:1]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
    Sleep(100)
    ControlSend($oto,"","[CLASS:Edit; INSTANCE:1]",$user)
    Sleep(1000)
    ControlSend($oto, "", "[CLASS:Edit; INSTANCE:2]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
    Sleep(100)
    ControlSend($oto,"","[CLASS:Edit; INSTANCE:2]",$pass)
    Sleep(1000)
    ControlClick($oto,"LOGIN","[CLASS:Button; INSTANCE:1]")
EndFunc

chạy bằng tay rồi sau đó auto đăng nhập gì thì auto nha ^^, hoặc thử run bằng quyền admin với user + pass admin xem, chứ run chay nó ko chạy đâu

 

[Jeh2015]

Hãy Bien dịch

Bạn có thể tạo ra một ứng dụng hoặc một trình duyệt đơn giản để chạy 22hits.com

 

[Dawn9999]

#RequireAdmin

 

[quocphu2503]

Mình mới nghịch Auto IT làm cái tool đăng nhập otohits.
Login thành công, mà login xong oto hit không chạy. Nó cứ dừng như thế này:

Đây là code của mình:

Func LoginOtohits($user, $pass)
    Run('C:\OtohitsNetwork\OtohitsApp\Otohits.App.exe')
    Local $oto = WinWait("Otohits App", "", 10)
    WinWaitActive($oto,"",1000)
    Opt("SendKeyDelay", 30)
    ControlSend($oto, "", "[CLASS:Edit; INSTANCE:1]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
    Sleep(100)
    ControlSend($oto,"","[CLASS:Edit; INSTANCE:1]",$user)
    Sleep(1000)
    ControlSend($oto, "", "[CLASS:Edit; INSTANCE:2]", "{HOME}{SHIFTDOWN}{END}{SHIFTUP}")
    Sleep(100)
    ControlSend($oto,"","[CLASS:Edit; INSTANCE:2]",$pass)
    Sleep(1000)
    ControlClick($oto,"LOGIN","[CLASS:Button; INSTANCE:1]")
EndFunc

run săn ôtohit rồi chạy mấy lệnh dưới thử xem , bỏ lên run đi nhé