[Dicken]

День добрый,
интересует следующий вопрос:
Можно ли запускать IT скрипт с какимилибо параметрами, например мне нужен скрипт который бы выводи мне 2 значения из командной строки
т.е. скрипт я запускаю

Код:

RUN.exe параметр1 параметр2

и в результате скрипт выдал мне мессаге в котором мне былибы выданы 1 и 2 параметры
заранее спасибо

[Positiv]

Вообщем такой трабл, при установке Agnitum Outpost Firewall выдает 2 окна с ошибками Microsoft Visual C++ Runtime Library. Я написал в скрипте функцию отлова этих окон с ошибками, но когда закрывается первое окно с ошибкой установка стопорится на Мастере Настройки, т.е дальше только вручную нажимать кнопки приходится. Посмотрите скрипт, мож че подскажите, или из-за чего такие ошибки вылетают, вроде библиотеки Си стоят.
СИНИМ выделено то, что добавил я, все остальное исходный скрипт от Sanja Alone

Код:

#cs
----------------------
Приложение: Agnitum Outpost
На какой(их) версии(ях) тестировалось: 3.5 (ru); 3.51 (ru)

Автор скрипта: Sanja Alone (http://forum.oszone.net/member.php?userid=28800)
----------------------
#ce
;предотвращение возможности множественного запуска скрипта
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;блокируем мышь и клаву
;AutoItSetOption("TrayIconHide", 1)
;Отображать текущую строку сценария с помощью индикатора системной панели в режиме отладки.
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 15)
If ProcessExists ( "ps.exe" )<>0 Then
     ProcessClose ( "ps.exe" )
     ProcessWaitClose ( "ps.exe" )
EndIf
;нельзя блокировать при находящемся в памяти Punto Switcher-е - не будет работать установка
;блокируем мышь и клаву
;If @OSType="WIN32_NT" Then BlockInput ( 1 )
#cs
----------------------
объявление переменных
----------------------
$file - установочный файл
$serial - если имеете рабочий ключ, то введите его сюда
$programgroup - в какую программную группу положить ярлыки программы
$delfromautorun - удалить Outpost из автозапуска (1 - удалить (по ум.), любое другое значение - не удалять)

----------------------
#ce
Global $file='OutpostProInstall.exe', $serial='XXXXX', $programgroup='Agnitum Outpost Firewall', $delfromautorun=1
AdlibEnable("wfp",1000)
If FileExists ( @ProgramFilesDir & '\Agnitum\Outpost Firewall\outpost.exe' ) Then
     MsgBox (64, 'Сообщение', 'Agnitum Outpost Firewall уже установлен', 5)
     Exit
   Else
     Run ( @ScriptDir & '\' & $file & ' /LANG="ru" /NOAUTOUPDATE /NORESTART /VERYSILENT' )
EndIf
WinWait ( 'Мастер настройки' )
WinActivate ( 'Мастер настройки' )
WinWaitActive ( 'Мастер настройки' )
Send ( '{ENTER}' )
While ControlCommand ( 'Мастер настройки', '', '< &Назад', 'IsEnabled', '')=0
WEnd
WinActivate ( 'Мастер настройки' )
WinWaitActive ( 'Мастер настройки' )
;Далее
Send ( '{ENTER}' )
WinWait ( 'Ручная настройка' )
WinActivate ( 'Ручная настройка' )
WinWaitActive ( 'Ручная настройка' )
;Готово
Send ( '{ENTER}' )
#cs
----------------------
Крякнутые dll-ки и настройки программы поместите в самораспаковывающиеся архивы
	settings.exe - настройки
	opst_ui.exe - крякнутые dll-ки (если нет рабочего серийника)

команды SFX-сценария (для обоих архивов, winrar):
	
	Path=Agnitum\Outpost Firewall
	SavePath
	Silent=1
	Overwrite=1

----------------------
#ce

If WinWait("Microsoft Visual C++ Runtime Library") Then
WinActivate("Microsoft Visual C++ Runtime Library")
WinWaitActive("Microsoft Visual C++ Runtime Library")
Send("{ENTER}")
EndIf 

If FileExists ( @ScriptDir & '\settings.exe' ) Then RunWait ( @ScriptDir & '\settings.exe' )
;регистрация
If $serial<>'' Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Agnitum\Outpost Firewall","Key","REG_SZ",$serial)
ElseIf FileExists ( @ScriptDir & '\opst_ui.exe' ) Then
RunWait ( @ScriptDir & '\opst_ui.exe' )
EndIf


;перенос ярлыков
DirCopy ( @ProgramsCommonDir & '\Agnitum\Outpost Firewall', @ProgramsCommonDir & '\' & $programgroup, 1 )
DirRemove ( @ProgramsCommonDir & '\Agnitum', 1 )

;отключить Автообновление
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Agnitum\Outpost Firewall\General","AutoUpdate","REG_DWORD",0x00000000)

;убрать Аутпост из автозапуска (если это было задано выше)
If $delfromautorun=1 Then
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Outpost Firewall")
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "OutpostFeedBack")
EndIf

AdlibDisable()

;BlockInput ( 0 )

Exit

Func wfp()
If WinWait("Microsoft Visual C++ Runtime Library","") Then
WinActivate("Microsoft Visual C++ Runtime Library")
WinWaitActive("Microsoft Visual C++ Runtime Library")
Send("{ENTER}")
EndIf 
EndFunc

[amel27]

Dicken

Можно ли запускать IT скрипт с какимилибо параметрами

посмотри тут: http://forum.oszone.net/post-461784-212.html
... а также поищи в справке по ключу $CmdLine.

[Positiv]

В стандартных примерах нашёл скрипт sysinfo. Так вот, можно ли сделать, чтобы этот скрипт вместо временной папки или папки Windows(допустим) выводил пароль и имя для каждого пользователя?
Кстати, у кого-нибудь есль стандартные модули с русскими комментариями?

[Diamond]

Нашёл недостаток в InputBox(), проверка на IsNumber() всегда возвращает строчную переменную, даже если вводимые данные были представлены в цифре.
Предлагаю два варианта решения:

Код:

;~ Эта функция работает только с обычными целыми числами
;~ числа типа: 0x5, 4.03 или 00001 не подойдут

Проверка переменной на пренадлежность к числам:
Func _IsNumber($var)
$check=Number($var)
If String($check)=String($var) Then
	Return 1
Else
	Return 0
EndIf
EndFunc
;-------------------------------------
;~ А это первое что мне пришло в голову (банальный перебор)

Проверка переменной на принадлежность к целым числам:
Func _IsInt($var)
If $var= "" Then
	Return -1
EndIf
$len=StringLen($var)
$check=0
For $j=48 To 57
	For $i=1 To $len
		If StringMid($var,$i,1)=Chr($j) Then
			$check=$check+1
		EndIf
	Next
Next
If $check=$len Then 
	Return 1
Else
	Return 0
EndIf
EndFunc

[amel27]

Diamond
Это не недостаток, а издержки типа данных Variant - кстати, аналогично и в Visual Basic... Преобразование типа происходит непосредственно перед выполнением операций с данными - например, при попытке провести арифметические операции со строковой переменной... поэтому иногда вместо преобразования проще прибавить к переменной "0". То, что InputBox() возвращает текстовую строку вполне логично. ИМХО текстовый ввод проще контролировать регулярными выражениями, тем более что этот способ универсален и подходит для любых входных данных:

Код:

Func _IsStringNumber ($sVar)
    Return StringRegExp ($sVar, '^ *([0-9]+\.{0,1}[0-9]*|0x[0-9]+) *$')
EndFunc

[Creat0R]

amel27

текстовый ввод проще контролировать регулярными выражениями

Гинеально! блин, как научиться понимать столь сложные RegExp'ресовые выражения? - я немало часов потратил прочитывая справку на эту тему, но так ничего и не дошло ....

---

Немного в другую сторону...


У меня есть пару вопросов касающихся сети:

1) Функция InetGet при закачке файлов, обходит прокси? или таже UDF-функция для _InetGetSource тоже не работает с прокси?
Мне нужно каким то образом, получать данные с сети (будь то закачка файла или получение исходного кода страницы), вне зависимости от того, подключён ли компьютер к сети через прокси или напрямую. Но желательно каким то хитрым образом обходить прокси, не выключая его (т.е не заметно для юзера) - это вообще возможно?

2) В сети у меня лежит файл с расширением *.js (хотя не очень важно расширение), какое самое быстрое средство для получения с него данных (для его чтения)? неужели _InetGetSource() это самое быстрое(?) средство?

[amel27]

Creat0R

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

если откроешь исходник _InetGetSource(), то увидишь вызов функции API-функции InternetOpen из библиотеки wininet.dll, так вот второй параметр (после имени инициатора) отвечает за тип подключения (в функции жестко пробит 0), возможные параметры:

0 - INTERNET_OPEN_TYPE_PRECONFIG - Запрашивает прокси или прямую конфигурацию из реестра. 1 - INTERNET_OPEN_TYPE_DIRECT - Разрешает имена всех хостов локально. 3 - INTERNET_OPEN_TYPE_PROXY - Направляет запрос прокси-серверу, в случае если не предоставлен лист обходов прокси-серверов и имени прокси-сервера нет списке прокси-серверов, которые можно обойти. В этом случае функция использует INTERNET_OPEN_TYPE_DIRECT. 4 - INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY - Запрашивает проки или прямую конфигурацию из реестра и предотвращает использование стартовых Microsoft JScript или Internet Setup (INS) файлов.

[Diamond]

amel27

текстовый ввод проще контролировать регулярными выражениями

Или функция не работает только у меня, или я неправильно понял её предназначение. При любом раскладе возвращает 0. Почему так?

[amel27]

Diamond
Обнови версию AutoIT - это новая фича, еще не устаканилась...