не доверяю я всяким "калякам" в виде EXE-файла.
А, не вопрос
[spoiler]
#include <WindowsConstants.au3>
#include <WinAPIEx.au3>
HotKeySet("{F1}", "Pause")
HotKeySet("{F2}", "Quit")
Global $draw = True, $stage = 0, $Select, $Lab, $x1, $y1
Global $trans = 150 ; прозрачность 192
Global $color1 = 0x0000FF ; перекрестие
Global $color2 = 0xFF0000 ; выделение
$sPath_ini = @ScriptDir & "\coord.ini"
$pos = MouseGetPos() ; получить текущие координыты указателя мыши
$Horz = GUICreate("", @DesktopWidth, 1, 0, $pos[1], $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetBkColor($color1)
WinSetTrans($Horz, '', $trans)
GUISetState(@SW_SHOWNOACTIVATE)
$Vert = GUICreate("", 1, @DesktopHeight, $pos[0], 0, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetBkColor($color1)
WinSetTrans($Vert, '', $trans)
GUISetState(@SW_SHOWNOACTIVATE)
$Select = GUICreate("", 1, 1, $x1, $y1, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
GUISetBkColor($color2)
WinSetTrans($Select, '', 50)
;~ $Lab = GUICtrlCreateLabel('', $x1+1, $y1+1, 0, 0) ; фон
;~ GUICtrlSetBkColor(-1, 0xFF0000)
;~ WinSetTrans($Lab, '', 50)
GUISetState(@SW_HIDE, $Select)
; пауза
Do
$pos = MouseGetPos() ; получить текущие координыты указателя мыши
WinMove($Horz, '', 0, $pos[1]) ;Default
WinMove($Vert, '', $pos[0], 0)
;~ If $draw Then
;~ WinSetOnTop($Horz, "", 1)
;~ WinSetOnTop($Vert, "", 1)
;~ EndIf
If $stage = 1 Then
WinMove($Select, '', $x1, $y1, $pos[0]-$x1, $pos[1]-$y1)
;~ GUICtrlSetPos($Lab, $x1+1, $y1+1, $pos[0]-1, $pos[1]-1)
EndIf
; проверяем нажатие
If _WinAPI_GetAsyncKeyState(0x01) = True And $stage = 0 Then ; Нажата левая кнопка мыши первый раз
$x1 = $pos[0]
$y1 = $pos[1]
$stage = 1
WinMove($Select, '', $x1, $y1, $pos[0]-$x1, $pos[1]-$y1)
GUISetState(@SW_SHOWNOACTIVATE, $Select)
EndIf
If _WinAPI_GetAsyncKeyState(0x01) = False And $stage = 1 Then ; Отпущена левая кнопка мыши
IniWrite($sPath_ini, "coord", "x1", $x1)
IniWrite($sPath_ini, "coord", "y1", $y1)
IniWrite($sPath_ini, "coord", "x2", $pos[0])
IniWrite($sPath_ini, "coord", "y2", $pos[1])
IniWrite($sPath_ini, "coord", "state", '1')
Quit()
EndIf
If _WinAPI_GetAsyncKeyState(0x02) = True Then Quit() ; Нажата правая кнопка мыши - выход
Func Pause()
$draw = Not $draw
If $draw Then
GUISetState(@SW_SHOW, $Horz)
GUISetState(@SW_SHOW, $Vert)
GUISetState(@SW_SHOW, $Select)
Else
GUISetState(@SW_HIDE, $Horz)
GUISetState(@SW_HIDE, $Vert)
GUISetState(@SW_HIDE, $Select)
EndIf
EndFunc
Func Quit()
EndFunc
;~ #include <Misc.au3>
;~ If _IsPressed('01') Then ToolTip('ЛКМ' & @LF & MouseGetPos(0) & 'x' & MouseGetPos(1), 0, 0)
;~ If _IsPressed('02') Then ToolTip('ПКМ' & @LF & MouseGetPos(0) & 'x' & MouseGetPos(1), 0, 0)
[/spoiler]
