Доброго вам времени суток! Есть код,нужно сделать так чтобы нажималось по 2м разным координатам и хотелось чтобы одной кнопкой ctrl задавались координаты по х и у а не как у меня и ctrl и alt ,но у меня чтото не получается.
Код:
#include <Misc.au3>
HotKeySet("{esc}","close")
Global $hDll = DllOpen('user32.dll') , $sIni = @ScriptDir & '\MyIni.ini'
_WasPressed('11', $hDll)
While 1
If _WasPressed('11', $hDll) Then
IniWrite($sIni, 'Options', 'PosX', MouseGetPos(0))
IniWrite($sIni, 'Options', 'PosY', MouseGetPos(1))
_funcMouseClick("11")
EndIf
If _WasPressed('12', $hDll) Then
IniWrite($sIni, 'Options', 'PosX1', MouseGetPos(0))
IniWrite($sIni, 'Options', 'PosY1', MouseGetPos(1))
_funcMouseClick("12")
EndIf
If Not IniRead($sIni, 'Options', 'PosX', '') Then
ToolTip('Нажмите на нужном объекте CTRL', MouseGetPos(0)+20, MouseGetPos(1)+20)
Sleep(50)
Else
_funcMouseClick(11)
ExitLoop
EndIf
If Not IniRead($sIni, 'Options', 'PosX1', '') Then
ToolTip('Нажмите на нужном объекте Alt', MouseGetPos(0)+20, MouseGetPos(1)+20)
Sleep(50)
Else
_funcMouseClick(12)
ExitLoop
EndIf
WEnd
Func _funcMouseClick($iClickButton="11")
While 1
Local $iPosX = IniRead($sIni, 'Options', 'PosX', '')
Local $iPosY = IniRead($sIni, 'Options', 'PosY', '')
MouseClick('left', $iPosX, $iPosY)
ToolTip("")
Sleep(2000)
WEnd
EndFunc
Func _funcMouseClick($iClickButton="12")
While 1
Local $iPosX1 = IniRead($sIni, 'Options', 'PosX1', '')
Local $iPosY1 = IniRead($sIni, 'Options', 'PosY1', '')
MouseClick('left', $iPosX1, $iPosY1)
ToolTip("")
Sleep(2000)
WEnd
EndFunc
Func _WasPressed($sHexKey, $Dll)
Local $aKey = DllCall($Dll, 'short', 'GetAsyncKeyState', 'int', '0x' & $sHexKey)
If @error Then Return SetError(@error, @extended, False)
Return BitAND($aKey[0], 0x0001) <> 0
EndFunc
Func close()
DllClose($hDll)
Exit
EndFunc