Код:
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}' )