[ched3n]

могет совместно над чем нить поработаем
хотя .... о чем это я

[Madcap]

to all

Такая командочка:

Код:

if WinWaitActive ( "Окно1", "") or ( "Окно2", "") then
...

Неработает оператор or. Если появляется "Окно1" - все ОК скрипт продолжает выполняться.
Если появляется "Окно2" - то скрипт висит.
Что я делаю неправильно?

[Sanja Alone]

Madcap

Что я делаю неправильно?

Почти все Ты пытаешься связать логическим условием функцию и текст в скобках. А нужно делать так:

Код:

if WinWaitActive ( "Окно1", "") or WinWaitActive ( "Окно2", "") then

P.S. Все директивы AutoIt - это функции, а в скобки заключаются передаваемые им параметры.

[Madcap]

Sanja Alone
Все равно не работает тоже самое что и раньше - второе окно не хочет искать.
Вот у меня маленький скриптик который, по идее, должен определить какое из двух видов окошек открылось

Код:

if WinWaitActive ( "Калькулятор", "") or WinWaitActive ( "Безымянный - Блокнот", "") then
if WinExists ( "Калькулятор", "") then
MsgBox ( 0, "1", "Калькулятор")
else
MsgBox ( 0, "1", "блокнот")
endif
endif

но он не хочет работать. Может у меня руки кривые? Ткни пжлста пальцем где я еще обшибся.

[Sanja Alone]

Madcap
Гм, а тут ничего и не может работать - у функций ожидания окон таймауты равны бесконечности
Рабочий вариант должен использовать другие функции (мгновенной проверки):

Код:

While 1=1
  if WinExists ( "Калькулятор" ) and WinExists ( "Безымянный - Блокнот" ) then
       MsgBox ( 0, "1", "Оба окна существуют" )
     ElseIf WinExists ( "Калькулятор" ) and Not WinExists ( "Безымянный - Блокнот" ) then
       MsgBox ( 0, "1", "Калькулятор" )
     ElseIf Not WinExists ( "Калькулятор" ) and WinExists ( "Безымянный - Блокнот" ) then
       MsgBox ( 0, "1", "Блокнот" )
     Else
      ;если убрать это сообщение, то скрипт будет вести себя тихо при отсутствии окон
       MsgBox ( 0, "1", "Нет ни одного окна" )
  endif
WEnd

Или тоже самое, но другим способом:

Код:

While 1=1
  Select
    Case WinExists ( "Калькулятор" ) and WinExists ( "Безымянный - Блокнот" )
        MsgBox ( 0, "1", "Оба окна существуют")
    Case WinExists ( "Калькулятор" ) and Not WinExists ( "Безымянный - Блокнот" )
        MsgBox ( 0, "1", "Калькулятор")
    Case WinExists ( "Безымянный - Блокнот" ) and Not WinExists ( "Калькулятор" )
        MsgBox ( 0, "1", "Блокнот")
    Case Else
        ;если убрать это сообщение, то скрипт будет вести себя тихо при отсутствии окон
        MsgBox ( 0, "1", "Нет ни одного окна")
  EndSelect
WEnd

В обоих примерах важен порядок условий, т.к. каждый последующий ElseIf или Case выполняется только когда все предыдущие ложные.

[Madcap]

Sanja Alone
Честно говоря я думал что оператор or позволяет сделать проверку и с бесконечными таймаутами.
Огромное спасибо.

ЗЫ: Все таки это были кривые руки

[bogomolv]

Рад приветствовать единомышленников!

Уже более двух лет автоматизирую AutoIt'ом все, что можно и не можно.
Начинал, естественно, с "автокликанья" по окошкам программ-установщиков. Но сейчас мне обидно за любимый AutoIt, когда его используют исключительно в этих целях.
Мои скрипты отвечают за весь процесс установки системы, а также выполняют ряд полезных функций в текущей работе. Главное, что дал AutoIt, это более мощные и разнообразные инструменты, по сравнению с обычными батниками, и логику, по сравнению с обычными inf- и reg-файлами.

Поделюсь несколькими фирменными приемчиками.

Проверка на стадии cmdlines наличия железки и установка дров для нее:

Код:

Opt('ExpandVarStrings', 1); default = 0
.....
$iDir=	 '@ScriptDir@\Up\'
$iDirDr= '@ScriptDir@\I386\$$oem$$\$$1\drivers\'
If DriveGetFileSystem(StringLeft(@ScriptDir,3))='CDFS' Then $iDirDr='@ScriptDir@\$$1\drivers\'
.....
$hwid='PCI\VEN_1002' ;ati
If hwidtest($hwid) Then
$Dr='$iDirDr$1_ati\'
RunWait('$Dr$driver\Setup.exe -s -f1"$Dr$driver\setup.iss"')
RunWait('$Dr$cpanel\Setup.exe -s -f1"$Dr$cpanel\setup.iss"')
RegDelete('HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run','ATIPTA')
RegWrite('HKLM\SOFTWARE\ATI Technologies\Desktop','EnableIcon','REG_SZ','0')
$f='$iDirDr$4_s910t\nast_color.au3'
If FileExists($f) Then StartupDrivers("RunWait('AutoIt3.exe $f$')")
EndIf
.....
Exit
.....
Func hwidtest($hwid) ;проверка наличия железки по ID
return NOT RunWait('@ComSpec@ /C devcon.exe hwids "$hwid$" | find "$hwid$"','',0)
EndFunc

Доустановка после первой загрузки Windows дров, которые "не любят" стадию cmdlines:

Код:

.....
$hwid='PCI\VEN_8086' ;INTEL
If hwidtest($hwid) Then
$hwid='PCI\VEN_8086&DEV_24DF' ;INTELSATA
If hwidtest($hwid) Then
	StartupDrivers("RunWait('$iDirDr$0_intel_sata\iaar47_multi.exe -A -S','',0)")
	StartupDrivers("DirRemove('@ProgramsCommonDir@\Intel(R) Application Accelerator',1)")
Manager','$aMenuPSS$',1)")
Else
	RunWait('$iDirDr$0_intel\iaa23_enu.exe -A -S','', 0)
	DirRemove('@ProgramsCommonDir@\Intel Application Accelerator',1)
EndIf
EndIf 
.....
Exit
.....
Func StartupDrivers($l)
$file = FileOpen('C:\startupdrivers.au3', 1)
FileWriteLine($file, $l)
FileClose($file)
EndFunc

Создание Подключений и соответствующих Учетных записи OutLook через IPS-файл на основе данных пользователя (файл internet.ini)

Код:

.....
$ini= 'ПУТЬ\internet.ini'
$ins= '%temp%\ispcnfg.ins'
$con= IniReadSectionNames($ini)
For $i=1 to $con[0]
IspCnfg_ins()
Run(@ComSpec&' /C Start %temp%\ispcnfg.ins','',0)
WinWaitActive('Мастер подключения к Интернету')
Send('{ENTER}')
WinWaitActive('Мастер подключения к Интернету','Завершена подготовка')
Send('{ENTER}')
Next
.....
Exit
.....
Func IspCnfg_ins() ;создание ispcnfg.ins, создающего соединение
$f = FileOpen($ins, 2)
FileWriteLine($f, '[Entry]')
FileWriteLine($f, 'Entry_Name='& $con[$i])
FileWriteLine($f, '')
FileWriteLine($f, '[Phone]')
FileWriteLine($f, 'Dial_As_Is=yes')
FileWriteLine($f, 'Phone_Number='& IniRead($ini, $con[$i],'Phone_Number',''))
FileWriteLine($f, 'Area_Code=8452')
FileWriteLine($f, 'Country_Code=7')
FileWriteLine($f, 'Country_ID=7')
FileWriteLine($f, '')
FileWriteLine($f, '[Device]')
FileWriteLine($f, 'Type=modem')
FileWriteLine($f, '')
FileWriteLine($f, '[Server]')
FileWriteLine($f, 'Type=PPP')
FileWriteLine($f, 'SW_Compress=yes')
FileWriteLine($f, 'Network_Logon=no')
FileWriteLine($f, 'Negotiate_TCP/IP=yes')
FileWriteLine($f, 'Negotiate_NetBEUI=No')
FileWriteLine($f, 'Negotiate_IPX/SPX=No')
FileWriteLine($f, '')
FileWriteLine($f, '[TCP/IP]')
FileWriteLine($f, 'Specify_IP_Address=no')
FileWriteLine($f, 'Specify_Server_Address=yes')
FileWriteLine($f, 'IP_Header_Compress=yes')
FileWriteLine($f, 'Gateway_On_Remote=yes')
FileWriteLine($f, 'DNS_Address='& IniRead($ini, $con[$i],'DNS_Address',''))
FileWriteLine($f, 'DNS_Alt_Address='& IniRead($ini, $con[$i],'DNS_Alt_Address',''))
FileWriteLine($f, '')
FileWriteLine($f, '[User]')
FileWriteLine($f, 'Name='& IniRead($ini, $con[$i],'Name',''))
FileWriteLine($f, 'Password='& IniRead($ini, $con[$i],'Password',''))
FileWriteLine($f, 'Display_Password=no')
FileWriteLine($f, '')
FileWriteLine($f, '[ConnectionSettings]')
FileWriteLine($f, 'ApplyInsToConnection='&$con[$i])
FileWriteLine($f, '')
If IniRead($ini, $con[$i],'Email_Name','')<>'' Then
FileWriteLine($f, '[Internet_Mail]')
FileWriteLine($f, 'SMTP_Server='& IniRead($ini, $con[$i],'SMTP_Server',''))
FileWriteLine($f, 'POP_Server='& IniRead($ini, $con[$i],'POP_Server',''))
FileWriteLine($f, 'Domain=') ;sample.net
FileWriteLine($f, 'Install_Mail_16=0')
FileWriteLine($f, 'Email_Name='& IniRead($ini, $con[$i],'Email_Name',''))
FileWriteLine($f, 'Email_Address='& IniRead($ini, $con[$i],'Email_Address',''))
FileWriteLine($f, 'POP_Logon_Name='& IniRead($ini, $con[$i],'POP_Logon_Name',''))
FileWriteLine($f, 'POP_Logon_Password='&IniRead($ini, $con[$i],'POP_Logon_Password',''))
FileWriteLine($f, '')
EndIF
FileClose($f)
EndFunc

Где файл internet.ini имеет следующий вид

Код:

[ИМЯ_СОЕДИНЕНИЯ1]
Phone_Number=
Phone_Number2=
Name=
Password=
DNS_Address=
DNS_Alt_Address=
SMTP_Server=
POP_Server=
Email_Name=
Email_Address=
POP_Logon_Name=
POP_Logon_Password=
[ИМЯ_СОЕДИНЕНИЯ2]
.....

Для перевода reg-файлов в коды AutoIt написал простенький макрос для Word:

Код:

Sub ОбработкаREG()
 
With Selection
If .Start = .End Then ActiveDocument.Select
Set myRange = .Range
 
'удаление лишнего
Замена "( ){1;}", "\1", True
Замена "^p ", "^p", False
Замена "\^p", "", False
Замена "\\", "\", False
Замена "HKEY_CURRENT_USER", "HKCU", False
Замена "HKEY_LOCAL_MACHINE", "HKLM", False
 
'обработка строк
For Each aPara In myRange.Paragraphs
aPara.Range.Select: .End = .End - 1
If Left(.Text, 1) = ";" Then
ElseIf Left(.Text, 1) = "[" Then
	hkey = Mid(.Text, 2, InStr(.Text, "]") - 2)
	.End = .End + 1
	.Text = ""
ElseIf InStr(.Text, "=") Then
	kkey = Mid(.Text, 2, InStr(2, .Text, Chr(34)) - 2)
	If InStr(.Text, "dword") Then
	 tkey = "REG_DWORD"
	 zkey = Mid(.Text, InStr(.Text, "=") + 7)
	 zkey = Trim(Str(Val("&h" + zkey)))
	ElseIf InStr(.Text, "hex") Then
	 tkey = "REG_BINARY"
	 zkey = Mid(.Text, InStr(.Text, "=") + 5)
	 zkey = Replace(zkey, ",", "")
	 zkey = UCase(zkey)
	Else
	 tkey = "REG_SZ"
	 zkey = Mid(.Text, InStr(.Text, "=") + 2)
	 zkey = Replace(zkey, Chr(34), "")
	End If
	.Text = "RegWrite('" + hkey + "','" + kkey + "','" + tkey + "','" + zkey + "')"
End If
Next
 
myRange.Select
End With
End Sub
 
Sub Замена(a, b, s)
Set SRange = Selection.Range
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute FindText:=a, ReplaceWith:=b, Replace:=wdReplaceAll, Wrap:=wdFindStop, MatchWildcards:=s
End With
SRange.Select
End Sub

Буду рад, если что-нибудь кому-нибудь пригодится...

[boss911]

Всем привет! У меня вопрос, так как нехотел создавать еще одну тему! У меня есть скрипт "Lan XP SP2.vbs". Что он делает: запускает "Мастер настройки сети" и настраивает локальную сеть, но после настройки лок. сети открывает автоматом общий доступ к папке "Общие документы" (SharedDocs)

Код:

Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.Run ("%SystemRoot%\system32\rundll32.exe hnetwiz.dll,HomeNetWizardRunDll")
WScript.Sleep 1000
WshShell.SendKeys "{ENTER 2}"
WScript.Sleep 100
WshShell.SendKeys "{DOWN}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{DOWN 2}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "Sergey"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "MSHOME"
WScript.Sleep 20
WshShell.SendKeys "{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "{UP}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER 2}"
WScript.Sleep 12000
WshShell.SendKeys "{DOWN 3}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER 2}"
WScript.Sleep 100

Так вот можно ли в этот скрипт прописать такую вещь с командной строки, котороя закрывает общий доступ к ней - "net share SharedDocs %userprofile%\Документы /delete". Как должна эта команда выглядеть в моем скрипте? И можно ли этот скрипт выполнить с cmdlines.txt, сработает ли он на 13-12 минуте до окончания установки Windows XP SP2? Спасибо!!!

Код:

[COMMANDS]
useraccounts.cmd
"Lan XP SP2.vbs"

[DenchikK]

Не выходит установить Agnitum Outpost 2.7 через AutoIt: не закрывается последнее окно, где спрашивается
про перезагрузку компа. На это окно вообще ничего не действует. Подскажите пожалуйста, как же с этим можно справиться.
Вот мой скрипт:

Код:

Run('setup.exe')

WinWaitActive ('Select Language')
Send('{TAB 3}{DOWN 5}')
ControlClick ('Select Language','','Button2')

WinWaitActive ('Приветствуем')
ControlClick ('Приветствуем','','Button1')

WinWaitActive ('Лицензионное соглашение')
ControlClick ('Лицензионное соглашение','','Button3')
ControlClick ('Лицензионное соглашение','','Button1')

WinWaitActive ('Read Me файл')
ControlClick ('Read Me файл','','Button1')

WinWaitActive ('Выберите папку для установки')
ControlClick ('Выберите папку для установки','','Button1')

WinWaitActive ('Начало копирования файлов')
ControlClick ('Начало копирования файлов','','Button1')

WinWaitActive ('Создать новую конфигурацию')
ControlClick ('Создать новую конфигурацию','','Button6')

WinWaitActive ('Мастер конфигурации')
ControlClick ('Мастер конфигурации','','Button6')

WinWaitActive ('Ручная настройка')
ControlClick ('Ручная настройка','','Button8')

WinWaitActive ('Установка','Необходимо перезагрузить компьютер для завершения установки.')
ControlClick ('Установка','Необходимо перезагрузить компьютер для завершения установки.','Button3')

Exit

[bogomolv]

DenchikK

Попробуй "WinKill" или "ProcessClose".