12-06-2014, 10:36 PM
I am using this...
#RequireAdmin
If Not ProcessExists("HD-Frontend.exe") Then
MsgBox(0, "Bluestacks Problem", "Please Start Bluestacks then Clash of Clans before continuing")
EndIf
HotKeySet ("q", "quitme")
While 1
Local $iPID =Run("C:\Program Files (x86)\lfRobot\xiaohua.exe")
sleep(5000)
WinMove("[CLASS:#32770]", "", 984, 274)
Sleep(1000)
ControlFocus("[CLASS:#32770]", "", 1059)
ControlClick("", "DarkT", "[CLASS:Button; INSTANCE:2]")
WinWaitActive("Welcome", "", "15")
If WinExists("Welcome") Then
sleep(3000)
ControlFocus("Welcome", "", "[CLASS:Button; INSTANCE:1]")
ControlClick("Welcome", "", "[CLASS:Button; INSTANCE:1]")
sleep(5000)
ControlFocus("[CLASS:#32770]", "", "[CLASS:Button; INSTANCE:6]")
ControlClick("", "DarkT", "[CLASS:Button; INSTANCE:6]")
sleep(3000000)
ProcessClose("xiaohua.exe")
Else
sleep(3000)
ProcessClose("xiaohua.exe")
EndIf
WEnd
Func quitme()
Exit
EndFunc
There is no functions to be clicked..
#RequireAdmin
If Not ProcessExists("HD-Frontend.exe") Then
MsgBox(0, "Bluestacks Problem", "Please Start Bluestacks then Clash of Clans before continuing")
EndIf
HotKeySet ("q", "quitme")
While 1
Local $iPID =Run("C:\Program Files (x86)\lfRobot\xiaohua.exe")
sleep(5000)
WinMove("[CLASS:#32770]", "", 984, 274)
Sleep(1000)
ControlFocus("[CLASS:#32770]", "", 1059)
ControlClick("", "DarkT", "[CLASS:Button; INSTANCE:2]")
WinWaitActive("Welcome", "", "15")
If WinExists("Welcome") Then
sleep(3000)
ControlFocus("Welcome", "", "[CLASS:Button; INSTANCE:1]")
ControlClick("Welcome", "", "[CLASS:Button; INSTANCE:1]")
sleep(5000)
ControlFocus("[CLASS:#32770]", "", "[CLASS:Button; INSTANCE:6]")
ControlClick("", "DarkT", "[CLASS:Button; INSTANCE:6]")
sleep(3000000)
ProcessClose("xiaohua.exe")
Else
sleep(3000)
ProcessClose("xiaohua.exe")
EndIf
WEnd
Func quitme()
Exit
EndFunc
There is no functions to be clicked..