Что нового

Автоматизация Движение курсора + действие

TiranCool

Новичок
Сообщения
78
Репутация
0
Всем Здравствуйте.
Помогите пожалуйста со скриптом, требуется для игры, стрелялки, при нажатии ЛКМ происходило следующее:
Sleep (100)
отжать ЛКМ
переместить курсор вниз на "ХХ" пикселей
переместить курсор влево / вправо на "ХХ" пикселей (влево/вправо думаю регулировать положительным или отрицательным значением)
нажать ЛКМ
Но при этом значения нужно брать из файла вниз.txt, ВлевоВправо.txt, а после отжатия клавишы ЛКМ (фактически) цикл становился на паузу, а при последующем выполнении цикла, значения должны браться сначала.
Дополнительные горячие клавиши паузы скрипта и старта.
Заранее Спасибо.
Сообщение автоматически объединено:

Вот примерный код, но не работает скрипт(
Код:
#include <Misc.au3>
#include <Timers.au3>
Opt("MouseClickDelay")
Opt("MouseClickDownDelay")
Opt("MouseCoordMode", 1)
Global $bPaused, $hDll, $aXY
OnAutoItExitRegister("_OnExit")
HotKeySet("{f5}", "_Start")
HotKeySet("{f6}", "_Pause")
HotKeySet("{0}", "_Exit")
$i = FileReadToArray(@ScriptDir & "\1.txt")
$t= FileReadToArray(@ScriptDir & "\2.txt")
$hDll = DllOpen("user32.dll")


While 1
   If _IsPressed("01", $hDll) Then
    $aXY = MouseGetPos()
    Sleep(100)
;~     как отжать ЛКМ?
     MouseMove($aXY[0] - $i, $aXY[1] - $t, 0) ;~ не берет данные из файла
     Else
        $i = 0
        $t = 0
     EndIf
WEnd



Func _Start()
;~     ToolTip("Script _Started... Press F6 to _Pause.", 1, 1)
    $bPaused = False
EndFunc   ;==>_Start

Func _Pause()
    $bPaused = True
     $i=0
;~     ToolTip("Script _Paused... Press F5 to _Start.", 1, 1)
    While $bPaused
        Sleep(10)
    WEnd
EndFunc   ;==>_Pause

Func _OnExit()
    DllClose($hDll)
EndFunc   ;==>_OnExit

Func _Exit()
    Exit
EndFunc   ;==>_Quit
 
Последнее редактирование:
Верх