Что нового

Нажатие по координатам

Yuriy09

Новичок
Сообщения
11
Репутация
0
Доброго вам времени суток! Есть код,нужно сделать так чтобы нажималось по 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
 
Верх