Что нового

[Сеть, интернет] VPN Подключение не отрабатывает нужным образом

skeeter

Новичок
Сообщения
1
Репутация
0
Доброго времени суток. Есть такой скрипт :
Код:
Run ("rundll32.exe netshell.dll,StartNCW")
WinWaitActive                ( "Мастер новых подключений" )
ControlClick                ( "Мастер новых подключений", "", "&Далее >" )
WinWaitActive                ( "Мастер новых подключений" )
ControlClick                ( "Мастер новых подключений", "", "&Подключить к Интернету" )
ControlClick                ( "Мастер новых подключений", "", "&Далее >" )
WinWaitActive                ( "Мастер новых подключений" )
ControlClick                ( "Мастер новых подключений", "", "&Установить подключение вручную" )
ControlClick                ( "Мастер новых подключений", "", "&Далее >" )
WinWaitActive                ( "Мастер новых подключений" )
ControlClick                ( "Мастер новых подключений", "", "Через высокоскоростное подключение, &запрашивающее имя пользователя и пароль" )
ControlClick                ( "Мастер новых подключений", "", "&Далее >" )
WinWaitActive               ('Мастер новых подключений','Им&я поставщика услуг')
ControlSetText               ( 'Мастер новых подключений', '', 'Edit1', 'Ultra' )
Sleep ('500')
Send('{Enter}')
WinWaitActive                  ('Мастер новых подключений','&Имя пользователя:')
sleep (100)
ControlSetText                ( 'Мастер новых подключений', '', 'Edit1', '77866')
sleep (100)
ControlSetText                  ( 'Мастер новых подключений', '', 'Edit2', '44444')
Send('{tab}')
sleep (100)
ControlSetText                      ( 'Мастер новых подключений', '', 'Edit3', '44444')
Sleep ('500')
Send('{Enter}')
While 1
WinWait ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlClick                ( "Мастер новых подключений", "", "Добавить &ярлык подключения на рабочий стол" )
WEnd
Send('{Enter}')
Собственно в чем проблема: на моем компе скрипт отрабатывает, а вот на других доходит до "Добавить ярлык на рабочий стол" (где должен ставить галочку) и останавливается (повисает). Пробовал в конце WinWaitclose - то же самое. Не могу понять в чем дело
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
skeeter [?]
Код:
While 1
WinWait ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlClick                ( "Мастер новых подключений", "", "Добавить &ярлык подключения на рабочий стол" )
WEnd
интересно конечно почему он вообще срабатывает, но тут у тебя бесконечный цикл. поэтому спроси себя нужен-ли он там, если нужен то предусмотри выход из него при успешном выполнении.
 

Otter

Новичок
Сообщения
4
Репутация
0
У меня тоже этот скрипт зацикливается в конце :(
предусмотри выход из него при успешном выполнении
А как это реализовать (написать в скрипте). Напишите пример пожалуйста для новичка.
 

Guezt

Продвинутый
Сообщения
335
Репутация
81
ну наверное просто убрать цикл... заменить вконце :
Код:
While 1
WinWait ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlClick                ( "Мастер новых подключений", "", "Добавить &ярлык подключения на рабочий стол" )
WEnd
Send('{Enter}')

на:
Код:
WinWait ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlClick                ( "Мастер новых подключений", "", "Добавить &ярлык подключения на рабочий стол" )
Send('{Enter}')
 
Верх