Доброго дня. Хотелось создатьавто кликер для клиента aion. Брал код из тем которые уже есть, не один не работает.
Бробывал так:
пробывал так:
Также пробывал так:
Ошибок не выдает, но в окне клиента ничего не происходит
Бробывал так:
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiButton.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Запуск", 24, 16, 217, 89)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
kliker()
EndSwitch
WEnd
Func kliker()
WinWaitActive('AION Client (Window 780x600)', '', 3)
$hWnd1 = WinGetHandle('AION Client (Window 780x600)')
WinMove($hWnd1, '', 10, 10)
Sleep(2000)
While 1 = 1
ControlSend($hWnd1, "","", "{TAB}")
Sleep(200)
ControlSend($hWnd1, "","", "{2}")
Sleep(1000)
Wend
EndFuncпробывал так:
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <GuiButton.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 266, 126, 192, 124)
$Button1 = GUICtrlCreateButton("Запуск", 24, 16, 217, 89)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
kliker()
EndSwitch
WEnd
Func kliker()
Send("{TAB}")
Sleep(100)
Send("{2}")
Sleep(200)
Send("{8}")
Sleep(100)
Send("{3}")
Sleep(100)
Send("{1}")
Sleep(100)
Send("{4}")
Sleep(100)
Send("{9}")
Sleep(100)
Send("{-}")
Sleep(100)
Send("{2}")
Sleep(100)
Send("{,}")
Sleep(1500)
Send("{,}")
EndFuncТакже пробывал так:
Код:
#include <IsPressedEx.au3>
HotKeySet("q", "_Quit")
$hU32_DllOpen = DllOpen("User32.dll")
While 1
$iRet = _IsPressedEx("[:ALLKEYS:]", $hU32_DllOpen)
If $iRet=32 Then
_Func()
EndIf
Sleep(10)
WEnd
Func _Func()
Sleep(100)
Send("{TAB}")
Sleep(100)
Send("{2}")
;Sleep(60)
;Send("{4}")
EndFunc
Func _Quit()
DllClose($hU32_DllOpen)
Exit
EndFuncОшибок не выдает, но в окне клиента ничего не происходит
