[архив - Часть 2] AutoIt скрипты

[Maza Faka]

Angelus

Так? :



Код:

Код: Выделить всё

$parsing = StringRegExp($serv1_realm, "\..{3}$", 3)
If @error Then
    IniWrite("c:\test\test.ini", "Section", $serv1_realm, "value")
Else
    MsgBox(64, "Message", "File name")
EndIf

[Creat0R]

Maza Faka,


Цитата:



Ругается на



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



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

За большенство из которых (как функции так и примеров) большое спасибо amel27



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

Зеркало

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

[Angelus]

Да спасибо...сработало....интересная команда....

[Angelus]

Creat0R

Ругается на:
Цитата:



WARNING: $BIF_ALLOLDSTYLEFLAGS: possibly used before declaration.



, какое значение должно содержаться в константе(?) $BIF_ALLOLDSTYLEFLAGS?

[Creat0R]

Maza Faka,


Цитата:



Ругается на



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



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

За большенство из которых (как функции так и примеров) большое спасибо amel27



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

Зеркало

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

Вложения

System Dialog UDFs.zip

(6.65 КБ) 0 скачиваний

System Dialog UDFs.zip

(6.65 КБ) 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'а можно реализовать блокировку клавиатуры и мыши при запуске скрипта - и последующей разблокировкой например нажатием каких либо сочетаний клавиш?