Условие на появление окна!

Условие на появление окна!

depodimon

Новый участник

Сообщения: 2
Благодарности: 0

Профиль | Отправить PM | Цитировать

Изменения

Автор: depodimon
Дата: 18-02-2010

Код:

Run ( @ComSpec & " /c rundll32.exe netshell.dll,StartNCW" )
;1
If WinWaitActive ( 'Мастер новых подключений','','10' ) == 0 Then
	Exit
EndIf
Send ( '{ENTER}' )
;2
WinWaitActive ( 'Мастер новых подключений','П&одключить к сети на рабочем месте','5' )
Send ( '{DOWN}{ENTER}')
;3
WinWaitActive ( 'Мастер новых подключений','&Подключение к виртуальной частной сети','5' )
Send ( '{DOWN}{ENTER}')
;4
WinWaitActive ( 'Мастер новых подключений','Введите в следующем поле имя для этого подключения.','5' )
$pptpname = 'Интернет'
Send ( $pptpname & '{ENTER}')
;5

; Вот здесь затуп, если есть соединения то он спрашивает надо ли подключаться автоматом, если нет соединений то не спрашивает!
; Как сделать чтобы если есть ставил пункт что не надо использовать автоматом, а если нет то дальше вводить имя соединения

If WinExists('Мастер новых подключений','Выберите, надо ли автоматически подключаться к Интернету или иной общей сети перед установлением виртуального подключения.') == 1 Then
Send ('{UP}{ENTER}')
EndIf

; Так не рабоатет(

Код:

;6
WinWaitActive ( 'Мастер новых подключений','Введите имя узла или','5' )
$pptphost = 'vpn.тратата.com'
Send ( $pptphost & '{ENTER}')
;7
WinWaitActive ( 'Мастер новых подключений','Успешно завершено создание следующего подключения:','5' )
Send ( '{SPACE}{ENTER}' )

Отправлено: 12:45, 18-02-2010

Creat0R

Must AutoIt

Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать

Предупреждение за нарушение правил форума, пункт 2.7:

Цитата:

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

Переименуйте пожалуйста тему.

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Отправлено: 15:27, 18-02-2010 | #2