Что нового

[Окна, Диалоги] Условие на появление окна!

depodimon

Новичок
Сообщения
26
Репутация
0
Код:
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

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


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

; И так не работает



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

Guezt

Продвинутый
Сообщения
335
Репутация
81
depodimon
зачем две темы создавать ? объединил это и что в другой теме смотри там полностью готовый код, отпишешься как работает!
 
Верх