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

[skeeter]

Доброго времени суток. Есть такой скрипт :

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]

skeeter [?]

While 1
WinWait ('Мастер новых подключений','Завершение работы мастера новых подключений')
ControlClick                ( "Мастер новых подключений", "", "Добавить &ярлык подключения на рабочий стол" )
WEnd

интересно конечно почему он вообще срабатывает, но тут у тебя бесконечный цикл. поэтому спроси себя нужен-ли он там, если нужен то предусмотри выход из него при успешном выполнении.

 

[Otter]

У меня тоже этот скрипт зацикливается в конце :(

предусмотри выход из него при успешном выполнении

А как это реализовать (написать в скрипте). Напишите пример пожалуйста для новичка.

 

[Guezt]

ну наверное просто убрать цикл... заменить вконце :

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

на:

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

 

[Otter]

СПС все работает