[spooll]

If FileExists(@ProgramFilesDir & "\MyProgram\Program.exe") Then

С полным путем получилось!Спасибо огромное

[Creat0R]

amel27,

Одно радует - в "классическом" варианте папка всегда открывается. Можешь сам проверить - попробуй в CallBack-функции вместо:

У меня с этой заменой вообще не задаётся начальный каталог в "классическом" стиле

хотя первую-то строчку наверное надо оставить?

У меня и без неё всё нормально работает.

P.S
У меня такой вопрос - если я использую новый стиль, а скрипт будет запущен на старой машине (где он не поддерживается, т.е где ещё нету IE 5), что произойдёт с этой функцией? она перейдёт в старый стиль, или сразу вернёт ошибку? или вообще скрипт выпадет?

[spooll]

Вот еще ребят!Почему-то не работает время winWaitActive , т.е когда я указываю время:

PHP код:

WinWaitActive ("notepad" , "new document" , 100000) 

то если даже через секунду после запуска, я это окно сделаю активным, то все остальные команды, как send enter и т.д уже не работают на этом окне !

[Maza Faka]

spooll
У меня работает:

Код:

WinWaitActive("Безымянный - Блокнот", "", 100000)
ControlSend("Безымянный - Блокнот", "", "Edit1", "Hello world")

Проверь правильно ли указан заголовок окна.

[Diamond]

spooll
Зачем выставлять сто тысяч секунд? (Обычно 2-3 секунды бывает достаточно.)

Код:

$ret = WinWaitActive ("Текстовый документ", "" , 3)
If $ret = 1 Then
;~ 	Send()  и т.д
Else
	MsgBox(0,"","Команда не дождалась активного окна")
Endif

А лучше не дожидаться активности окна, а активизировать его принудительно:

Код:

$ret = WinWait ("Текстовый документ", "" , 3)
If $ret = 1 Then
	WinActivate("Текстовый документ","")
	Sleep(100)
;~ 	Send()  и т.д
Else
	MsgBox(0,"","Окно не существует")
Endif

[spooll]

Maza Faka,
да заголовок тот, то что показал Diamond, вроде подходит, только это придется все перебивать чтоли, чесно я еще не задавал никогда переменные типа

$ret

Просто я что хочу, чтобы при утсановки пользователю на комп, он случайно не сбил активность окна, тем самым нарушив работу скрипта, у меня есть вот что:

Код:

If FileExists("C:\Program Files\1Cv77\BIN\1CV7s.exe") Then
     Exit
     Else
Run("\\192.168.11.198\Distrib\1s_install\B770023\Disk1\setup.exe")
WinWaitActive("Добро пожаловать", "Добро пожаловать в программу установки")
Send("{ENTER}")
WinWaitActive("Выбор варианта установки", "Выберите вариант установки программы")
Send("{ENTER}")
WinWaitActive("Информация о пользователе", "Введите Ваше имя и название")
Send("{ENTER}")
WinWaitActive("Информация о пользователе", "Вы сообщили следующую информацию")
Send("{ENTER}")
WinWaitActive("Выбор каталога для установки", "Программа установки поместит 1С")
Send("{ENTER}")
WinWaitActive("Создание нового каталога")
Send("{ENTER}")
WinWaitActive("Выбор программной группы", "Выберите из существующих или")
Send("{ENTER}")
WinWaitActive("Установка 1С:Предприятия", "Программа установки скопировала файлы")
Send("{ENTER}")
WinWaitActive("Установка 1С:Предприятия", "Установка программы 1С")
Send("{ENTER}")
Run("\\192.168.11.198\Distrib\1s_install\B770025\Disk1\setup.exe")
WinWaitActive("Добро пожаловать", "Добро пожаловать в программу установки")
Send("{ENTER}")
WinWaitActive("Список установленных программ", "Из списка найденных на данном компьютере")
Send("{ENTER}")
WinWaitActive("Обновление 1С:Предприятия", "При работе с сетевыми версиями")
Send("{ENTER}")
WinWaitActive("Обновление 1С:Предприятия", "Обновление программы 1С")
Send("{ENTER}")
Run("\\192.168.11.198\Distrib\1s_install\B770025\1C_patch_7725\1Cv77SQL_025_Patch.exe")
WinWaitActive("Патч 1С:Предприятие 7.7.025", "Вы запустили программу")
ControlClick ("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button1")
WinWaitActive("PatchWise Updater")
Send("{ENTER}")
ControlClick ("Патч 1С:Предприятие 7.7.025", "Вы запустили программу", "Button2")
EndIf

Это выходит перед каждой строкой нужно ставить WinActivate +заголовок последующего окно +время в секундах сколько ему ждать?! Просто вроде несложная задача и хотелось бы сначала попроще . Спасибо что помогаете.

[Maza Faka]

spooll

Это выходит перед каждой строкой нужно ставить WinActivate

Нет. Вставь в начало скрипта

Код:

BlockInput(1)

а в конец скрипта

Код:

BlockInput(0)

пока приложение не установится, ввод будет заблокирован.

[Creat0R]

spooll,

чтобы при утсановки пользователю на комп, он случайно не сбил активность окна

Советую использовать вместо Send() - ControlSend(), ну или ControlClick(), это действует даже для не активных окон.

Можно ещё поставить на выполнение чтобы все окна постоянно сворачивалось (хотя не идеальный вариант):

Код:

AdlibEnable("MinimizeWindows", 100)

Func MinimizeWindows()
	WinMinimizeAll()
EndFunc

а потом в конце восстановить всё:

Код:

WinMinimizeAllUndo()

[Creat0R]

Как можно узнать заголовок окна сохранения?
На каждой системе, в зависимости от язка системы, этот заголовок будет разным, на английской к примеру Save As, на русской Сохранить как, а как быть с системами на других языках? может можно как то получить это имя с конфигов системы? где оно всё хранится?

[amel27]

Creat0R

У меня с этой заменой вообще не задаётся начальный каталог в "классическом" стиле

дык в классике она и не нужна - там каталог, выбранный по $BFFM_SETSELECTION итак открывается, а в "новом стиле" выбирается но остается закрытым и если нужен файл приходится кликать плюсик... Кстати, это сообщение не поддерживается не только старым стилем, но и Windows 2000.

У меня и без неё всё нормально работает

хм... у меня тоже, тогда уберу... попозжа

если я использую новый стиль, а скрипт будет запущен на старой машине (где он не поддерживается, т.е где ещё нету IE 5), что произойдёт с этой функцией? она перейдёт в старый стиль, или сразу вернёт ошибку? или вообще скрипт выпадет?

Если рассуждать логически, то отсутствие поддержки "нового стиля" равносильно отсутствию поддержки флага $BIF_NEWDIALOGSTYLE, из чего следует что должен отработать старый стиль. Кстати, для проверки версии достаточно вернуть версию "comctl32.dll", линк: http://msdn2.microsoft.com/en-us/library/ms649534.aspx

На заметку. Незадействованные возможности SHBrowseForFolder():

- сообщение $BFFM_SETEXPANDED. По ходу толку от него мало, так как работает глючно (у меня).
- сообщение $BFFM_VALIDATEFAILED. Имеет смысл только при использовании поля редактирования (флаг $BIF_EDITBOX), можно к примеру выводить текст предупреждения или затенять "Ок" если набран несуществующий путь.... реализуется просто, вот только надо ли?
- сообщение $BFFM_SETOKTEXT, поддержка минимальная (только для $BIF_RETURNONLYFSDIRS), для расширенной проверки атрибутов выбранного элемента придется ваять свой вариант CallBack-функции (как в _MyFSFCallbackProc)... либо нужно сочинять свой набор флагов и через него передавать какие типы нам нужны;
- есть возможность по ходу возвращать код картинки (иконки) выбранного элемента;
- есть возможность фильтрации отображаемых элементов, это более мощное средство чем затенение "Ок", но средствами одного скрипта нереализуемо, т.к. нужно создавать свой COM-объект.... как варианты: 1) использовать DLL, 2) использовать скрипты WSH. Первый сложней в реализации, но быстрей, второй - проще (через VBS-скрипт), но дюже медленный.... особенно если учесть, что объект будет вызываться для КАЖДОГО элемента списка.