Четверг, 28.11.2024, 04:23 | Приветствую Вас Гость

...

Код

Главная » Статьи » Autoit

mrecord

#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <GUIConstantsEx.au3>


Func Terminate()
Exit
EndFunc
HotKeySet("{ESC}", "Terminate")

Global $n = 1

Local $hGUI = GUICreate("Example", 210, 50)
Local $idbutton1 = GUICtrlCreateButton("Record mouse", 0, 0, 85, 25)

Local $idbutton2 = GUICtrlCreateButton("Run mouse", 120, 0, 85, 25)

Local $condition = 0

GUISetState(@SW_SHOW, $hGUI)
while 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $idbutton1
$condition = 1

Case $idbutton2
$condition = 2
EndSwitch

if $condition = 1 Then
Local $hFileOpen = FileOpen("coord.txt",$FO_APPEND)
Local $aPos = MouseGetPos()
FileWriteLine($hFileOpen,$aPos[0])
FileWriteLine($hFileOpen,$aPos[1])
EndIf

if $condition = 2 Then

Local $hFileOpen = FileOpen("coord.txt", $FO_READ)
Local $x = FileReadLine($hFileOpen,$n)
Local $y = FileReadLine($hFileOpen,$n+1)
If @error Then
$condition = 0
$n = 1
FileClose($hFileOpen)
EndIf

MouseMove($x,$y,0)

$n = $n + 2
EndIf

wend

Категория: Autoit | Добавил: moskov (22.05.2017)
Просмотров: 495 | Рейтинг: 0.0/0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Меню сайта

Категории раздела

PHP [41]
C++ [71]
Autoit [108]
Processing [105]
Basic4GL [7]
Fasm [2]
PABC [7]
Js [236]
Gentee [1]
Python [204]
Java android [3]
Small Basic [9]

Мини-чат

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Друзья сайта

  • ЗОВ КОСМОСА

  • Хулиган Вселенной

  • Тюремная поэзия

  • Религиозная поэзия

  • Сайт клана ЛеГиоН
  • Поиск