[kagorec]

Попытался собрать из нескольких кодов нужный скрипт.
Для экрана 1024х768, движение курсора по кругу (в центре радиусом 300пикселей) скорость неполучается выставить 25 через команду Opt (mousemove), при этом удерживается правая кнопка мышки.
Старался вписать управление скриптом:
Pause - пауза
F9 - включить
F10 - остановить
Но при включении ахтунг получается - курсор движется по кругу удерживая кнопку все хорошо, НО процессор нагружает на 100% и не управляется ни стоп ни пауза только рестарт компа спасает.
Поправте пожалста скрипт или подскажите (мои эксперементы заканчиваются рестартом ПК)

PHP код:

Global $Paused

HotKeySet("{PAUSE}", "TogglePause")

HotkeySet ("{F10}", "Stop"       )

HotKeySet( "{F9}", "Start" )





;******** Script Pause **********

Func TogglePause()

    $Paused = NOT $Paused

    While $Paused

        sleep(100)

        ToolTip('script is "Paused"',0,0)

    WEnd

    ToolTip("")

EndFunc



;********** Stop **********

Func Stop ()



While 1 = 1

Sleep (600)

Wend



EndFunc



While (1)

BlockInput(1)

_MouseMoveCircle(540, 390, 300, 625, 1) ;(need opt speed 25) Circle 4ever for resolution 1024x768 

Sleep(200)



BlockInput(0)

 WEnd

Func _MouseMoveCircle($xPos, $yPos, $Radius, $TimeExp, $MouseClick=0); x coord, y coord, radius, time to loop (milliseconds)

    Local $TimeInit = TimerInit()

    Local $xPosMov, $yPosMov

    Local $MouseClick_Mark = 1



    Do

        $TimeDiff = TimerDiff($TimeInit)

        $xPosMov = $xPos + ($Radius * Sin($TimeDiff/100))

        $yPosMov = $yPos + ($Radius * Cos($TimeDiff/100))

        MouseMove($xPosMov, $yPosMov, 1)

        If $MouseClick_Mark = 1 And $MouseClick <> 0 Then MouseDown("Right")

        $MouseClick_Mark = 0

    Until $TimeDiff > $TimeExp

    If $MouseClick <> 0 Then MouseUp("Right")

    EndFunc 

[Creat0R]

Maza Faka,

Ругается на

Тогда должен ругаться и на многое дргое - я всего лишь привёл подправленную функцию из _FileSelectFolder.au3...

Прикрепляю полный набор самопальных функции системных диалогов + Примеры применения (файл Examples.au3).
За большенство из которых (как функции так и примеров) большое спасибо amel27

Только для AutoIt 3.2.10.0.

Зеркало для тех кто неможет скачать с форума.

[Creat0R]

kagorec,

НО процессор нагружает на 100% и не управляется ни стоп ни пауза только рестарт компа спасает.

Конечно не будет управляться, ведь BlockInput не даёт ничего нажать.
Я выкрутился быстрым нажатием «Alt + Ctrl + Del» и «Pause»

Тут видимо это происходт из за постоянного цикла внутри _MouseMoveCircle - можно поставить в нём проверку на ввод пользователя, и небольшую паузу...

Вот простой пример, для наглядности, я BlockInput закомментировал

Код:

Global $Paused = False

HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "QuitApp")

While 1
    While $Paused
        Sleep(100)
        ToolTip('script is "Paused"',0 , 0)
    WEnd

    ToolTip("")

    ;BlockInput(1)
    _MouseMoveCircle(540, 390, 300, 625, 1) ;(need opt speed 25) Circle 4ever for resolution 1024x768
    Sleep(200)
    ;BlockInput(0)
WEnd

Func TogglePause()
    $Paused = NOT $Paused
EndFunc

Func _MouseMoveCircle($xPos, $yPos, $Radius, $TimeExp, $MouseClick=0); x coord, y coord, radius, time to loop (milliseconds)
    Local $TimeInit = TimerInit()
    Local $xPosMov, $yPosMov
    Local $MouseClick_Mark = 1

    Do
        $TimeDiff = TimerDiff($TimeInit)
        $xPosMov = $xPos + ($Radius * Sin($TimeDiff/100))
        $yPosMov = $yPos + ($Radius * Cos($TimeDiff/100))
        MouseMove($xPosMov, $yPosMov, 1)
        If $MouseClick_Mark = 1 And $MouseClick <> 0 Then MouseDown("Right")
        $MouseClick_Mark = 0

        If $Paused Then ExitLoop
        Sleep(10)
    Until $TimeDiff > $TimeExp
    If $MouseClick <> 0 Then MouseUp("Right")
EndFunc

Func QuitApp()
    Exit
EndFunc

[rimm]

Подскажите как с помощью Autoit удалить раздел реестра и все ключи в нем?

HKEY_LOCAL_MACHINE\SOFTWARE\TEST\

или все ключи в разделе

HKEY_LOCAL_MACHINE\SOFTWARE\TEST\*.REG_BINARY

Буду рад помощи

[Creat0R]

rimm,

как с помощью Autoit удалить раздел реестра и все ключи в нем?

Код:

RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\TEST")

Для удаления определённых типов записей, можно использовать RegEnumVal()...

Код:

For $i = 1 To 100
    $Var = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\Autoit", $i)
    If @error Then ExitLoop

    MsgBox(4096, "Value Name  #" & $i & " under in AutoIt3 key", $Var & @LF & "Extended: " & GetExtendedType(@extended))
Next

Func GetExtendedType($Extended)
    Local $RegTypeArr[6] = [5, "REG_SZ", "REG_MULTI_SZ", "REG_EXPAND_SZ", "REG_DWORD", "REG_BINARY"]
    For $i = 1 To 5
        If $Extended = $i Then Return $RegTypeArr[$i]
    Next
EndFunc

[Creat0R]

Библиотека автоматизации для браузера Opera!

24 (планируется ещё больше) полезных функции для решения задач связанных с браузером Opera.

Примечание: Библиотека тестировалась под Opera начиная с версии 8.54 и до версии 9.5.

[Страница закачки], [Зеркало]

[SAOPP]

Ребят, а с помощью AutoIt'а можно реализовать блокировку клавиатуры и мыши при запуске скрипта - и последующей разблокировкой например нажатием каких либо сочетаний клавиш?

[Creat0R]

SAOPP,

с помощью AutoIt'а можно реализовать блокировку клавиатуры и мыши при запуске скрипта

Да, есть команда BlockInput(1), соответственно BlockInput(0) отменит блокирование... Alt+Ctrl+Del в любом случае разблокирует ввод .

[SAOPP]

Ну вот мне бы так и нужно, как "некая" утилитка для чистки клавиатуры блокирует это дело, только без всяких оповещений и окон, просто блокировала, а по нажатию ctrl+alt+del разблокировала и закрывалась соответственно.

[Creat0R]

SAOPP,

мне бы так и нужно, как "некая" утилитка для чистки клавиатуры

Эта утилитка?

только без всяких оповещений и окон, просто блокировала, а по нажатию ctrl+alt+del разблокировала и закрывалась

Всё очень просто:

Код:

#NoTrayIcon

$aOld_MousePos = MouseGetPos()

BlockInput(1)

While 1
    Sleep(100)
    $aNewMousePos = MouseGetPos()
    If $aOld_MousePos[0] <> $aNewMousePos[0] Or $aOld_MousePos[1] <> $aNewMousePos[1] Then ExitLoop
WEnd

BlockInput(0)

Скрипт завершит работу после любого движения мышки