Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 135
Благодарности: 32

Профиль | Отправить PM | Цитировать


Цитата Creat0R:
всё ровно юзер может двигать мышку до клика, и помешать этому »
Теперь вижу, спасибо. Тогда так:
Код: Выделить весь код
Func _MouseClick($iX, $iY)
    Local $aMouse, $i
    Do
        $i += 1 ; счетчик попыток
        MouseMove($iX, $iY, 1)
        $fMouseMoveBlocked = True ; Блокируем перемещение
        $aMouse = MouseGetPos() ; Определяем координаты
        If @error Then
            $fMouseMoveBlocked = False
            Return
        EndIf
        If $aMouse[0] = $iX And $aMouse[1] = $iY Then
            Sleep(10) ; Время нахождения курсора над элементом перед щелчком.
            MouseClick("left", $iX, $iY, 1, 1)
            Sleep(10) ; ждем
            MouseUp("left") ; форсируем отжатие
            $fMouseMoveBlocked = False ; Разблокировка
            ExitLoop
        EndIf
        $fMouseMoveBlocked = False
    Until $i > 5
EndFunc
P.S. Юзер все ещё сможет случайно помешать, для большей надежности можно просто увеличить число попыток.

-------
Создатель знает, что достиг совершенства не когда нечего добавить, а когда нечего убрать. - Антуан де Сент-Экзюпери


Последний раз редактировалось Diamond, 27-09-2009 в 08:01.


Отправлено: 07:29, 27-09-2009 | #13