[Мышь, клавиатура] скроллинг с отключением

[NIkNIk12]

C2H5OH
У меня не пашет, раскладка английская, капс не включен, но на клавиши не реагирует.. :wall_brake:
Скролит без конца и все..
Что я делаю не так?

 

[C2H5OH]

А слева вверху что пишет?

 

[NIkNIk12]

C2H5OH
Отрабатывает таймер
Только кривовато
"N время выполнения скроллинга 1 секунд"
N меняется на N+1, 1 в конце статична, только когда перехожу в окно без скрола в принципе ( диалог завершения процесса) - меняется на 0

 

[C2H5OH]

Ну тогда более суровый вариант

Global $Paused = False
HotKeySet("p", "TogglePause");пауза
HotKeySet("q", "Terminate");выход

$i = 0
While 1
    Sleep(10)
	$begin = TimerInit()
    MouseWheel("down") ;тут твой код скроллинга
	$dif = TimerDiff($begin)
	$i += 1
	ToolTip($i&" Время выполнения скроллинга "&Floor($dif)&" мс", 0,0)
WEnd

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
		ToolTip("Пауза", 0,0)
        Sleep(10)
    WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc

Ты же жмёшь кнопки "p" и "q" как указано в HotKeySet ?

 

[MnM]

Хахаха-хихихи нашел проблему,
У меня тоже в Этом коде не срабатывали хот кеи.
Решил вроде добавив оперирующую клавишу shift

HotKeySet("+p", "TogglePause")
HotKeySet("+q", "Terminate")

Добавьте должно сработать

 

[C2H5OH]

Но у меня то работает и при

HotKeySet("{PAUSE}", "TogglePause");пауза
HotKeySet("{ESC}", "Terminate");выход

тут куда "+" добавлять?
:shaman_s_bubnom:

 

[NIkNIk12]

MnM
C2H5OH
Не помогло :(
Пробовал с альтом - аналогично.

upd
с паузой и ескейпом заработало - отключил пунто свитчер ( на нем завязана функция к паузе) и заработало..
Остается вопрос почему с простыми клавишами не пашет.

 

[MnM]

Ну с {esc} и {pause} у меня работает нежели чем с 1-ой буковкой


Добавлено:

Сообщение автоматически объединено: 22 Авг 2013

Попробуйте тогда с использованием библиотеки UDF HotKey

 

[NIkNIk12]

MnM

Попробовал вот так

#Include <HotKey.au3>

Global $Paused = False
Global Const $VK_P = 0x50
Global Const $VK_Q = 0x51

_HotKeyAssign($VK_P, 'TogglePause')
_HotKeyAssign ($VK_Q, 'Terminate')

$i = 0
While 1
    Sleep(100)
    $begin = TimerInit()
    MouseWheel("down",99) ;тут твой код скроллинга
    $dif = TimerDiff($begin)
    $i += 1
    ToolTip($i&" Время выполнения скроллинга "&Floor($dif/1000)&" секунд", 0,0)
WEnd

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        ToolTip("Пауза", 0,0)
        Sleep(100)
    WEnd
EndFunc

Func Terminate()
    Exit 0
EndFunc

Скрипт срабатывает на 1 нажатие, а дальше не реагирует.. Т.е. например если нажать p, то войдет на паузу и дальше ничегон е делает, q не работает и при нажатии на p дальше работу не продолжает.
В чем косяк?

 

[MnM]

Скрипт срабатывает на 1 нажатие, а дальше не реагирует

Странно, у меня тоже не реагирует скрипт