Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #Region ### START Koda GUI section ### Form=C:\Users\abcdef\Desktop\Новая папка\Form1.kxf
- $Form1 = GUICreate("Form1", 433, 242, 298, 172)
- $Label1 = GUICtrlCreateLabel(" ", 32, 120, 271, 136)
- GUICtrlSetFont(-1, 20, 400, 0, "Arial")
- GUICtrlSetColor(-1, 0x000000)
- $tYCoord = GUICtrlCreateLabel("Y", 216, 24, 62, 31)
- GUICtrlSetFont(-1, 18, 400, 0, "Arial")
- $tXCoord = GUICtrlCreateLabel("X", 32, 24, 21, 31)
- GUICtrlSetFont(-1, 18, 400, 0, "Arial")
- $Label2 = GUICtrlCreateLabel("Label2", 72, 24, 100, 31)
- GUICtrlSetFont(-1, 18, 400, 0, "Arial")
- $Label3 = GUICtrlCreateLabel("Label3", 280, 24, 100, 31)
- GUICtrlSetFont(-1, 18, 400, 0, "Arial")
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- $ixCoord = MouseGetPos()[0]
- $iyCoord = MouseGetPos()[1]
- While 1
- $nMsg = GUIGetMsg()
- $xCoord = MouseGetPos()[0]
- $yCoord = MouseGetPos()[1]
- GUICtrlSetData($Label2, $xCoord)
- GUICtrlSetData($Label3, $yCoord & "_" & @SEC)
- time()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- EndSwitch
- WEnd
- Func time()
- If @SEC < 1 Then
- ;GUICtrlSetData($hLabel, "The current time is " & @HOUR & ":" & @MIN & ":" & @SEC & ".")
- ;$nCheck = @SEC
- If (($ixCoord = $xCoord) And ($iyCoord = $yCoord)) Then
- GUICtrlSetData($Label1, "Нихуя")
- Else
- GUICtrlSetData($Label1, "Вы за компом")
- $ixCoord = MouseGetPos()[0]
- $iyCoord = MouseGetPos()[1]
- EndIf
- EndIf
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement