Открытка для любимой. Необычная просьба

[mef-t]

Господа, возможно, только у меня проблема с паузой, но все же.

HotKeySet('{Pause}', '_Mo') ; запуск рисования по Pause

у меня не отрабатывает. Другими словами, на кнопку "Pause" нет отклика.
Сменил на F9 и все работает.
Есть предположения о возможных причинах?


Добавлено:

Сообщение автоматически объединено: 1 Мар 2013

Кстати, "MouseDown()" и "MouseUP()" вместо "MouseClick()" не будет работать быстрее?

Конечно же чуть подправить алгоритм


Добавлено:

Сообщение автоматически объединено: 1 Мар 2013

Подправил для простой функции:

Спойлер

Func _Mo() ; простая функция рисования
    Sleep(2000)
    $pos = MouseGetPos()
    For $y = 0 To $H / $C - 1
        For $x = 0 To $W / $C - 1
            If $Matrix[$y][$x] = 0 Then
                MouseMove($pos[0] + $x, $y - 1 + $pos[1], 1)
                MouseDown('left')
            Else
				MouseUp('left')
			EndIf
        Next
    Next
EndFunc   ;==>_Mo

Скорость рисования на порядок больше


Добавлено:

Сообщение автоматически объединено: 1 Мар 2013

Ниже исправления со случайными линиями.

Спойлер

Func _Mo() ; функция рисования со случайными линиями
 Sleep(2000)
 $aRandom = _RandomEx(1, $H / $C, $H / $C, 1, 1)
 $pos = MouseGetPos()
 For $y = 0 To $H / $C - 1
     For $x = 0 To $W / $C - 1
         If $Matrix[$aRandom[$y] - 1][$x] = 0 Then
             MouseMove($pos[0] + $x, $aRandom[$y] - 1 + $pos[1], 1)
             MouseDown('left')
		 Else
			 MouseUp('left')
         EndIf
     Next
 Next
EndFunc   ;==>_Mo

Но при тестировании у меня была пропущена одна линия, так что возможно где то ошибка закралась

 

[WSWR]

mef-t
Да, там была ошибка с пропущенной линией
Здесь ее нет http://autoit-script.ru/index.php/topic,12819.0.html
Можешь варианты оттуда переделать для ускорения