Что нового
Автор:
Фильтры

Пролаг фунции MouseMove

T

Tsigun

Новичок
Сообщения
31
Репутация
0
Я пишу бота для will to live, который стреляет по мишеням и столкнулся с проблемой, что функция mousemove иногда пропускает одно или несколько перемещений ( всего 8 мишеней ). Перепробовал уже все варианты, у меня на мощном пк с 144гц мониторе все работает исправно, а вот у друга на мониторе 60гц возникает этот баг, нее знаю что можно еще сделать. Я использую скорость перемещения 0, поскольку если мышь перемещается медленно, у нее есть ускорение, которое в игре приводит к недоведению экрана, а если скорость 0, то скрипт прыгает прицелом прям по мишеням. В общем главный вопрос, как сделать что бы команда MouseMove выполнялась всегда, без пролетов. Если кто то сможет помочь, буду очень рад.
 
All2khoff

All2khoff

Продвинутый
Сообщения
376
Репутация
68
Доброго дня.
Без кода сложно понять что именно у вас происходит...
Нет необходимости бросать весь код, но тот момент где вы работаете с функцией перемещения мыши было бы не плохо показать.
Сейчас чисто по тексту я могу предположить что вам стоит попробовать использовать 2 варианта
1. Это использовать задержки между командами
Код: 
sleep

2. Это проверять местоположение курсора.
Код: 
MouseGetPos

И на самом деле лучшим решением будет использовать оба варианта.
 
Автор
T

Tsigun

Новичок
Сообщения
31
Репутация
0
Glass4217 сказал(а):
Доброго дня.
Без кода сложно понять что именно у вас происходит...
Нет необходимости бросать весь код, но тот момент где вы работаете с функцией перемещения мыши было бы не плохо показать.
Сейчас чисто по тексту я могу предположить что вам стоит попробовать использовать 2 варианта
1. Это использовать задержки между командами
Код: 
sleep

2. Это проверять местоположение курсора.
Код: 
MouseGetPos

И на самом деле лучшим решением будет использовать оба варианта.
Нажмите, чтобы раскрыть...
MouseMove(650, 430, 0); 2 -
sleep(900)
$Spec = PixelSearch(792, 444, 812, 463, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
MouseClick("LEFT")
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(792, 444, 812, 463, 0x000000 )
If IsArray($Spec) = True Then
sleep(1000)
Send("{Alt on}")
MouseDown("Right")
MouseClick("LEFT")
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(792, 444, 812, 463, 0x000000 )
If IsArray($Spec) = True Then
sleep(1000)
Send("{Alt on}")
MouseDown("Right")
MouseClick("LEFT")
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(597, 349, 1003, 551, 0xFFFE5F )
If IsArray($Spec) = True Then
MouseMove(798, 517, 0)
MouseClick("LEFT")
Sleep(2000)
EndIf


Вот код на одну мишень, их 14. Slepp после передвижения вплоть до 1,5 секунд - не помогло.
Сообщение автоматически объединено:

Glass4217 сказал(а):
Доброго дня.
Без кода сложно понять что именно у вас происходит...
Нет необходимости бросать весь код, но тот момент где вы работаете с функцией перемещения мыши было бы не плохо показать.
Сейчас чисто по тексту я могу предположить что вам стоит попробовать использовать 2 варианта
1. Это использовать задержки между командами
Код: 
sleep

2. Это проверять местоположение курсора.
Код: 
MouseGetPos

И на самом деле лучшим решением будет использовать оба варианта.
Нажмите, чтобы раскрыть...
Можете обьяснить что за MouseGetPos, как он работает и куда его вставлять в мой код?
Сообщение автоматически объединено:

Glass4217 сказал(а):
Доброго дня.
Без кода сложно понять что именно у вас происходит...
Нет необходимости бросать весь код, но тот момент где вы работаете с функцией перемещения мыши было бы не плохо показать.
Сейчас чисто по тексту я могу предположить что вам стоит попробовать использовать 2 варианта
1. Это использовать задержки между командами
Код: 
sleep

2. Это проверять местоположение курсора.
Код: 
MouseGetPos

И на самом деле лучшим решением будет использовать оба варианта.
Нажмите, чтобы раскрыть...
Немного помогло включен е функции в панели нвидиа «Вертикальная синхронизация» бот все равно пролагивает, но гораздо реже
 
Последнее редактирование:
All2khoff

All2khoff

Продвинутый
Сообщения
376
Репутация
68
Tsigun сказал(а):
Можете обьяснить что за MouseGetPos
Нажмите, чтобы раскрыть...
В моем первом ответе на данную запись тыкните мышкой и откроется справка.
Прошу учесть здесь на форуме принято код обрамлять в [AUTOIT][/AUTOIT]
Тогда он выглядит как в редакторе

так же что я имел в виду про задержки
Код: 
MouseMove(798, 517, 0) ;между движением и кликом нужна небольшая пауза.
Sleep(200)
MouseClick("LEFT")
 
Последнее редактирование:
Oki

Oki

Продвинутый
Сообщения
452
Репутация
63
Tsigun сказал(а):
Можете обьяснить что за MouseGetPos, как он работает и куда его вставлять в мой код?
Нажмите, чтобы раскрыть...
Как-то так.
Код: 
MouseMove_Checked(798, 571, 0)
Func MouseMove_Checked($iX, $iY, $iSpeed)
    MouseMove($iX, $iY, $iSpeed)
    Do
        $aiXY = MouseGetPos()
    Until $iX = $aiXY[0] And $iY = $aiXY[1]
EndFunc
 
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
Oki сказал(а):
Как-то так.
Нажмите, чтобы раскрыть...
Не думаю, что это решит проблему. Вот если MouseMove переместить в цикл, то может быть...

@Tsigun
В скрипте замените все MouseMove на _MouseMove (подчёркивание в начале) и добавьте эту функцию
Код: 
Func _MouseMove($X, $Y, $Speed = 0)
  Local $Pos
  For $i = 1 To 5
    MouseMove($X, $Y, $Speed)
    $Pos = MouseGetPos()
    If $Pos[0] = $X And $Pos[1] = $Y Then ExitLoop
    Sleep(111)
  Next
  If $i = 6 Then MsgBox(0, "MouseMove", "Координаты курсора " & $Pos[0] & ":" & $Pos[1])
EndFunc
 
Последнее редактирование:
Автор
T

Tsigun

Новичок
Сообщения
31
Репутация
0
InnI сказал(а):
Не думаю, что это решит проблему. Вот если MouseMove переместить в цикл, то может быть...

@Tsigun
В скрипте замените все MouseMove на _MouseMove (подчёркивание в начале) и добавьте эту функцию
Код: 
Func _MouseMove($X, $Y, $Speed = 0)
  Local $Pos
  For $i = 1 To 5
    MouseMove($X, $Y, $Speed)
    $Pos = MouseGetPos()
    If $Pos[0] = $X And $Pos[1] = $Y Then ExitLoop
    Sleep(111)
  Next
  If $i = 6 Then MsgBox(0, "MouseMove", "Координаты курсора " & $Pos[0] & ":" & $Pos[1])
EndFunc
Нажмите, чтобы раскрыть...
У меня вот таких частей кода, которых я кидал - 14, мне под каждый маусмув ставить то что вы скинули?
 
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
Код функции нужно добавить один раз в конец скрипта.
 
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
Tsigun сказал(а):
Я просто не особо разобрался в программе
Нажмите, чтобы раскрыть...
Так она ещё и не ваша?!

Tsigun сказал(а):
после цикла
Нажмите, чтобы раскрыть...
Я не знаю, какой там у вас цикл. Просто в конец скрипта. После последней строки скрипта нажмите ENTER и вставьте скопированный код функции. Но сначала вызовите диалог замены Ctrl+H и замените все MouseMove на _MouseMove, чтобы вместо стандартной вызывалась эта функция.
 
Автор
T

Tsigun

Новичок
Сообщения
31
Репутация
0
InnI сказал(а):
Так она ещё и не ваша?!


Я не знаю, какой там у вас цикл. Просто в конец скрипта. После последней строки скрипта нажмите ENTER и вставьте скопированный код функции. Но сначала вызовите диалог замены Ctrl+H и замените все MouseMove на _MouseMove, чтобы вместо стандартной вызывалась эта функция.
Нажмите, чтобы раскрыть...
Нет, код мой. Сами функции программы Autoit я плохо знаю, не знаю тонкостей работы. Я вставил ваш скрипт в конец кода, но проблема не пропала. Возможно изза того что перед ним стоит цикл.
 
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
Тупо продублируйте все строки с MouseMove и не парьтесь с функцией.
 
Автор
T

Tsigun

Новичок
Сообщения
31
Репутация
0
InnI сказал(а):
Тупо продублируйте все строки с MouseMove и не парьтесь с функцией.
Нажмите, чтобы раскрыть...

Код: 
HotKeySet("{F6}", "_Exit")
MouseMove(640, 384, 10)
MouseClick("LEFT")
sleep(2000)
While 1
MouseMove(450, 365, 0); 1 -
sleep(200)
$Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(496, 365, 0); 2 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(551, 365, 0); 3 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(605, 365, 0); 4 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(674, 365, 0); 5 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(727, 365, 0); 6 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(779, 365, 0); 7 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(824, 365, 0); 8 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(779, 365, 0); 7 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
Opt("MouseClickDownDelay", 500)
MouseClick("RIGHT")
sleep(200)
MouseClick("LEFT")
sleep(200)
Send("{Alt off}")
sleep(2000)
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(727, 365, 0); 6 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(674, 365, 0); 5 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(605, 365, 0); 4 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(551, 365, 0); 3 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
MouseMove(496, 365, 0); 2 -
sleep(900)
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
If IsArray($Spec) = True Then
Send("{Alt on}")
MouseDown("Right")
sleep(200)
MouseClick("LEFT")
sleep(200)
MouseUp("Right")
sleep(2000)
Send("{Alt off}")
EndIf
$Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
If IsArray($Spec) = True Then
Send("{ESC}")
Sleep(2000)
EndIf
Wend
Func _Exit()
Exit


Вот скрипт, он все равно пролагивает и иногда не перемещает мышь один или более раз. Как можно сделать проверку позиции мыши или
что то подобное, что бы в таком случае мышь переместилась заного?
 
Последнее редактирование:
Oki

Oki

Продвинутый
Сообщения
452
Репутация
63
Код: 
$iFlagExit = 0
HotKeySet("{F6}", "_Exit")
HotKeySet("{F7}", "_ExitAfterLoopStep") ; выход после завершения текущего прохода цикла
MouseMove_Checked(640, 384, 10)
MouseClick("LEFT")
Sleep(2000)
While $iFlagExit = 0
    MouseMove_Checked(450, 365, 0); 1 -
    Sleep(200)
    $Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(496, 365, 0); 2 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(551, 365, 0); 3 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(605, 365, 0); 4 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(674, 365, 0); 5 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(727, 365, 0); 6 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(779, 365, 0); 7 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(824, 365, 0); 8 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(779, 365, 0); 7 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        Opt("MouseClickDownDelay", 500)
        MouseClick("RIGHT")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        Send("{Alt off}")
        Sleep(2000)
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(727, 365, 0); 6 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(674, 365, 0); 5 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(605, 365, 0); 4 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(551, 365, 0); 3 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(496, 365, 0); 2 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
Wend
Func MouseMove_Checked($iX, $iY, $iSpeed)
    Do
        MouseMove($iX, $iY, $iSpeed)
        Sleep(100)
        $aiXY = MouseGetPos()
    Until $iX = $aiXY[0] And $iY = $aiXY[1]
EndFunc
Func _Exit()
    Exit
EndFunc
Func _ExitAfterLoopStep()
    $iFlagExit = 1
EndFunc
 
Последнее редактирование:
I

InnI

AutoIT Гуру
Сообщения
4,951
Репутация
1,446
Строка 415
Код: 
Func MouseMove_Checked$iX, $iY, $iSpeed)
 
Автор
T

Tsigun

Новичок
Сообщения
31
Репутация
0
Oki сказал(а):
Код: 
$iFlagExit = 0
HotKeySet("{F6}", "_Exit")
HotKeySet("{F7}", "_ExitAfterLoopStep") ; выход после завершения текущего прохода цикла
MouseMove_Checked(640, 384, 10)
MouseClick("LEFT")
Sleep(2000)
While $iFlagExit = 0
    MouseMove_Checked(450, 365, 0); 1 -
    Sleep(200)
    $Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(633, 381, 647, 391, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(496, 365, 0); 2 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(551, 365, 0); 3 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(605, 365, 0); 4 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(674, 365, 0); 5 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(727, 365, 0); 6 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(779, 365, 0); 7 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(824, 365, 0); 8 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(779, 365, 0); 7 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        Opt("MouseClickDownDelay", 500)
        MouseClick("RIGHT")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        Send("{Alt off}")
        Sleep(2000)
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(727, 365, 0); 6 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(674, 365, 0); 5 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(605, 365, 0); 4 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(551, 365, 0); 3 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
    MouseMove_Checked(496, 365, 0); 2 -
    Sleep(900)
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(634, 375, 649, 403, 0x000000 )
    If IsArray($Spec) = True Then
        Send("{Alt on}")
        MouseDown("Right")
        Sleep(200)
        MouseClick("LEFT")
        Sleep(200)
        MouseUp("Right")
        Sleep(2000)
        Send("{Alt off}")
    EndIf
    $Spec = PixelSearch(476, 304, 802, 462, 0xFFFE5F )
    If IsArray($Spec) = True Then
        Send("{ESC}")
        Sleep(2000)
    EndIf
Wend
Func MouseMove_Checked($iX, $iY, $iSpeed)
    Do
        MouseMove($iX, $iY, $iSpeed)
        Sleep(100)
        $aiXY = MouseGetPos()
    Until $iX = $aiXY[0] And $iY = $aiXY[1]
EndFunc
Func _Exit()
    Exit
EndFunc
Func _ExitAfterLoopStep()
    $iFlagExit = 1
EndFunc
Нажмите, чтобы раскрыть...
Спасибо большое!!! Заработало, больше нет проблем!!
Сообщение автоматически объединено:

Oki сказал(а):
Как раз случайно в ту же секунду, когда сообщение редактировалось. :smile:
Нажмите, чтобы раскрыть...
а.. нет.. спустя 10 минут все равно сбилось
Сообщение автоматически объединено:

InnI сказал(а):
Строка 415
Код: 
Func MouseMove_Checked$iX, $iY, $iSpeed)
Нажмите, чтобы раскрыть...
Такой вопрос, с пролагами получилось справиться включением вертикальной синхронизации, но появилась другай проблема. Спустя минут 20-30 работы бот потихоньку поднимает прицел, хотя высота по Y в MouseMove одинаковая
 
Последнее редактирование:
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
N [Процессы] Поиск адреса по фунции из процесса Боты для игр 1
M [Мышь, клавиатура] Простые фунции под Fallout onlie Разработка ботов 1
Похожие темы
[Процессы] Поиск адреса по фунции из процесса
[Мышь, клавиатура] Простые фунции под Fallout onlie
Верх