» AutoIT

NIKZZZZ

Спасибо.

А если скрипт запускать не через командную строку а как скомпилированый exe фаил

XpycTMD

Цитата:

А если скрипт запускать не через командную строку а как скомпилированый exe фаил

В последних бетках есть у компилятора есть опция, позволяющая выводить в стандартный поток вывода.
Так-же посмотри в описании "Command Line Parameters" - не пробовал, но судя по описанию можно запустить скомпилированный скрипт аналогичным образом.

gregaz 10:05 11-05-2008
Цитата:

предусмотреть  и возможность  добавки файлов с предварительной очисткой окна ?

Можно, я позже перезалью полностью библиотеку (там ещё пару изменении есть).

XpycTMD
Если запускать с другого скомпилированного скрипта, то можно читать StdOut поток таким образом:


Код:
$sStdOutRead = _RunStdOutRead(@ScriptDir & "\SomeCompiledScript.exe")

FileWrite("Errors.txt", $sStdOutRead)

Func _RunStdOutRead($sScriptToRun)
Local $iPID = Run(@AutoItExe & ' /ErrorStdOut /AutoIt3ExecuteScript "' & $sScriptToRun & '"', @ScriptDir, '', 2 + 4)
Local $sStdOutRead = ""

While ProcessExists($iPID)
$sStdOutRead &= StdoutRead($iPID)
WEnd

Return $sStdOutRead
EndFunc

ViSiToR
Спасибо

В принципе вариант с запуском из коммандной строки мне подходит. Всеравно скрипт запускается при помощи nnCron
Просто хотелось узнать может можно как то читать StdOut поток из скомпилированного скрипта.

XpycTMD 17:07 11-05-2008
Цитата:

из самого скомпилированного скрипта такие ошибки никак отловить нельзя

Ну почему, можно таким же образом запустить себя:


Код: #NoTrayIcon

; Проверка ком. строки и перезапуск в "тихом" режиме
If Not StringRegExp($CmdLineRaw, '(?i)^/ErrorStdOut(?:\s|$)') Then
$iPid = Run(@AutoItExe & ' /ErrorStdOut ' & $CmdLineRaw, @ScriptDir, 0, 2)
_ScriptWriteErrLog($iPid)
Exit
EndIf

; Текст скрипта (пример ошибочной команды)
MsgBox(0, "", $Undeclared_Var)

; Сохранение ошибок в лог-файле
Func _ScriptWriteErrLog($iPid)
Local $sLogFile = StringTrimRight(@ScriptFullPath, 3) & 'log'
Local $sStdOutRead = ''

FileWrite($sLogFile, @YEAR & '/' & @MON & '/' & @MDAY & ', ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)

While ProcessExists($iPid)
$sStdOutRead = StdoutRead($iPid)
If @error Then ExitLoop

FileWriteLine($sLogFile, $sStdOutRead)
Wend
EndFunc

XpycTMD

Цитата:

можно как то читать StdOut поток из скомпилированного скрипта.

При компиляции в бета-версии ставишь галку "Create CUI instead of GUI EXE." , после этого получается стандартный поток StdOut, который можно перенаправить куда угодно, например в файл.

Код: Test.exe>TestLog.txt

Maza Faka, как сделать, чтоб твой скрипт заработал?

NIKZZZZ 17:25 11-05-2008
Цитата:

его можно скомпилировать как пускач.

Мой пример показывает как использовать скрипт, с выводом ошибок в файл. С CUI будет тоже самое, только будут разные процессы.

Mister_Che
Что имеется в виду под «чтобы все слова в нем перемешались»?

Подскажите как сделать из целого, или дробного числа, число вида xxxx.xxxx
То есть чтобы получилось было 0123.3450
Если после точки можно сделать через $New=StringFormat ("%.4f",$old), то как добавить нули для выравнивания - не пойму.

Еще пара вопросов. Если не делать свою менюшку, то из трея можно вызвать стандартное autoit меню со script paused и выходом. Так вот, если сделать свою менюшку, надо периодически (и лучше как можно чаще) опрашивать, не нажата ли та же меню выхода. А когда идет процесс допусти поиска файлов, то отвлекаться и так не хочется. Стандартное же реагирует сразу, без задержек. Можно ли сделать сове менюшку, но чтобы не тормозило так?

Каким образом заставить аutoit не выводить в случае ошибок никаких сообщений, а просто выходить c определенным errorlevel, например в случае вылезания variable not defined?

Цитата:

gregaz 10:05 11-05-2008
Цитата:предусмотреть и возможность добавки файлов с предварительной очисткой окна ?


Можно, я позже перезалью полностью библиотеку (там ещё пару изменении есть).

Спасибо большое я получил именно то,что хотел
Теперь похоже можно управлять WINAMPом из скрипта (без диалоговых окон)

Похоже пока еще не давал ф-ии _Winamp_GetPLPosition() ?

Цитата:

Подскажите как сделать из целого, или дробного числа, число вида xxxx.xxxx
То есть чтобы получилось было 0123.3450
Если после точки можно сделать через $New=StringFormat ("%.4f",$old), то как добавить нули для выравнивания - не пойму.

Да, стандартным способом вроде не сделать. Ну можно математикой выкрутиться:

Код: $n = 123.3450
MsgBox (0, "", StringFormat("%04d.%04d", Int($n), Round(Mod($n, Int($n))*10000)))

ViSiToR

Цитата:

Mister_Che
Что имеется в виду под «чтобы все слова в нем перемешались»?

Чтобы текст "Осенняя пора - очей очарованье." стал, например, "пора - очарованье. Осенняя очей".

zero1632

Цитата:

Подскажите как сделать из целого, или дробного числа, число вида xxxx.xxxx

Код: $New=StringRight('0000' & StringFormat ("%.4f",$old),9)

gregaz 04:16 12-05-2008
Цитата:

Похоже пока еще не давал  ф-ии  _Winamp_GetPLPosition() ?

Выложил полную версию библиотеки автоматизации Winamp'ом.


Добавлено:
Mister_Che 23:01 13-05-2008
Цитата:

Чтобы текст "Осенняя пора - очей очарованье." стал, например, "пора - очарованье. Осенняя очей".

Примерно так:


Код:
$sVar = "Осенняя пора - очей очарованье."

$aWords = StringRegExp($sVar, "\s*([а-яА-Яa-zA-Z0-9-_\.]+)\s*", 3)
$sVar = ""

_ArrayRandomize($aWords)

For $i = 0 To UBound($aWords)-1
$sVar &= $aWords[$i] & " "
Next

MsgBox(0, "", StringStripWS($sVar, 3))

Func _ArrayRandomize(ByRef $avArray, $iBase=0)
Local $iRandom, $sTemp, $iUbound = UBound($avArray)-1

For $i = $iBase To $iUbound
$sTemp = $avArray[$i]
$iRandom = Random($i, $iUbound, 1)
$avArray[$i] = $avArray[$iRandom]
$avArray[$iRandom] = $sTemp
Next
EndFunc

Mister_Che
Тебе уже приводили пример

Код: #include <Array.au3>

$str = "Осенняя пора - очей очарованье."

$aWord = StringSplit($str, " ")

;_ArrayReverse($aWord, 1)

_ArraySwap($aWord[1], $aWord[2])
_ArraySwap($aWord[3], $aWord[4])

_ArrayDisplay($aWord)

ViSiToR
Цитата:

Выложил полную версию библиотеки автоматизации Winamp'ом.

ViSiToR , Спасибо.
На мой взгляд поскольку есть ф-ия _Winamp_SetVolume желательно иметь и _Winamp_GetVolume

gregaz

Цитата:

желательно иметь и _Winamp_GetVolume

Ну и добавь, раз нужно

Код: Global Const $sWINAMP_CLASS = "[CLASS:Winamp v1.x]"
Global Const $WM_WA_IPC = 0x0400
Global Const $IPC_SETVOLUME = 122

$hWinamp = WinGetHandle($sWINAMP_CLASS)

$aRet = DllCall("user32.dll", "int", "SendMessage", "hwnd", $hWinamp, "int", $WM_WA_IPC, "int", -666, "int", $IPC_SETVOLUME)

ConsoleWrite("Current volume in value: " & $aRet[0] & @LF & _
"In percent: " & Int($aRet[0] / 255 * 100) & "%" & @LF)

Maza Faka , спасибо

Maza Faka
Откуда инфа о «-666» ?

ViSiToR
Набрёл в Гугле. Хорошо, что с минусом, а то бы побоялся использовать

Здраствуйте, возникли сложности со скриптом приведенным ниже

WinActivate("Radmin Viewer")
    Send("{ENTER}")


if WinWaitActive("Система безопасности Radmin:", "Имя пользователя:") Then
    MsgBox(0, "Info", "ЛОГИН+ПАРОЛЬ")
EndIf

if WinWaitActive("Система безопасности Radmin:", "Введите пароль:") Then
MsgBox(0, "Info", "ПАРОЛЬ")

EndIf

Exit


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

[b][s]Добавлено:[/s][/b]
и ещё вопрос, есть функция WinWaitActive, и все бы нечего, но только в заголовке первое слово при каждом запуске постоянно меняется, не изменным остается второе слово в заголовке. Как сделать так, что бы парсила второе слово а не первое?

Цитата:

Здраствуйте, возникли сложности со скриптом приведенным ниже

Я так понимаю, что есть серверы версий 2 и 3, у которых разные диалоги. Проще всего, вместо функции WinWaitActive использовать цикл и WinActive:

Код: While 1
if WinActive("Система безопасности Radmin:", "Имя пользователя:") Then
MsgBox(0, "Info", "ЛОГИН+ПАРОЛЬ")
Exit
EndIf

if WinActive("Система безопасности Radmin:", "Введите пароль:") Then
MsgBox(0, "Info", "ПАРОЛЬ")
Exit
EndIf

Sleep(500)
Wend

sam117 07:39 16-05-2008
Цитата:

нужно что бы они были независимы друг от друга

Они и так не зависимы, тут вопрос скорее всего в том, дожидается ли скрипт окна с заголовоком "Система безопасности Radmin:".


Цитата:

в заголовке первое слово при каждом запуске постоянно меняется

Нужно использовать REGEXPTITLE:


Код: WinWaitActive("[REGEXPTITLE:(?i)(.*)Radmin:]", "Имя пользователя:")

Обновился AutoIt 3.2.12.0!

Список изменении тут, если сильно попросите переведу на русский

Из приятного и долгожданного:

* Убрана опция «RunErrorsFatal», теперь естественно она по умолчанию задействована.
* К Inet-функциям теперь добавляется User Agent, многие сайты блокируют доступ при пустой строке юзер агента.
* Максимальное число создаваемых GUI-окон выросло до 65532.
* Добавлен GUISetAccelerators(), я о нём кажется уже писал ранее.
* Добавили REGEXPCLASS в расширенное распознавание заголовков окон (по моей просьбе ).
* FileReadLine( ,-1) теперь читает последнюю строку в файле.
* Добавили GUICtrlSetDefColor() и GUICtrlSetDefBkColor(), ох сколько я этого ждал, тоже по моей просьбе.
* Добавили Hwnd параметр для функции: MsgBox(), FileSelectFolder(), FileOpenDialog(), FileSaveDialog(). А сколько этого я ждал и просил....

Хеппи скриптинг!

Цитата:

Обновился AutoIt 3.2.12.0!

Добавлю - при компиляции с опцией "Create CUI instead of GUI EXE." идет нормальный вывод в StdOut !

В выложенной библиотеке Winamp_Library есть ф-я : _Winamp_GetPlayListToArray() ,
выдающая массив имен треков плейлиста .
Как можно получить этот массив с полными путями к трекам ?

Господа, решил ознакомится с этой программой. Сразу возник первый вопрос.
Запускаю скрипт:


Код: Send("#r")
WinWaitActive("Run")
Send("notepad.exe{Enter}")

gsmschik
Какая версия Windows? У меня работает с таким заголовком: "Запуск программы"

Maza Faka
Тоже самое, без изменений. Пробовал по другому, всё равно выполняется первая строка, а потом вечная пауза.

Виндовс, ХР немецкий.

Цитата:

Виндовс, ХР немецкий.

Так потому и не работает - заголовок окна запуска в каждой локализованной версии свой, а скрипт ждет окно "Run" (или "Запуск программы" в русской версии). Выполни Win+R вручную, посмотри заголовок окна и используй WinWaitActive с этим текстом.