;
#include <Array.au3>
If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
;BlockInput (1) ; блокируем всё нах)
AutoItSetOption ( "WinTitleMatchMode", 2)
AutoItSetOption ( "WinDetectHiddenText", 1)
AutoItSetOption ( "SendAttachMode", 1)
;Всё свернуть
WinMinimizeAll ( )
Sleep ( '1000' )
;Мастер подключений
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('Мастер новых подключений','Выберите, надо ли автоматически подключаться к Интернету или иной общей сети перед установлением виртуального подключения.') Then
Send ('{UP}{ENTER}')
EndIf
;6
WinWaitActive ( 'Мастер новых подключений','Введите имя узла или','5' )
$pptphost = 'vpn.set.com'
Send ( $pptphost & '{ENTER}')
;7
BlockInput (0) ; Включить мышь и клавиатуру
WinWaitActive ( 'Мастер новых подключений','Успешно завершено создание следующего подключения:','5' )
Send ( '{SPACE}{ENTER}' )
$sNameConnect = "Интернет Сеть"
$speed = 300
ShellExecute("rasphone.exe", "", @SystemDir)
WinWaitActive("Сетевые подключения")
ControlClick("Сетевые подключения", "", "[CLASS:Button; INSTANCE:4]")
WinWaitActive($sNameConnect & " Свойства")
Sleep($speed)
Send("^{TAB}")
Sleep($speed)
Send("^{TAB}")
Sleep($speed)
ControlClick($sNameConnect & " Свойства", "", "[CLASS:Button; INSTANCE:3]")
Sleep($speed)
ControlClick($sNameConnect & " Свойства", "", "[CLASS:Button; INSTANCE:6]")
WinWaitActive("Дополнительные")
Send("{UP 4}{DOWN}")
ControlClick("Дополнительные", "", "[CLASS:Button; INSTANCE:12]")
WinWaitActive($sNameConnect & " Свойства")
Sleep($speed)
ControlClick($sNameConnect & " Свойства", "", "[CLASS:Button; INSTANCE:8]")
Sleep($speed)
Send ( '{ENTER}' )
WinWaitActive("Сетевые подключения")
ControlClick("Сетевые подключения", "", "[CLASS:Button; INSTANCE:1]")
;Создание ярлыка Сеть - главная страница
$zapros = MsgBox(4, "Создать ярлыки на рабочем столе?","Создать ярлыки на рабочем столе?")
If $zapros == 7 Then ;если нет
Exit
EndIf
If $zapros == 6 Then ;если да
$f = "http://set.com" ;Куда ярлык
$l = @DesktopDir & "/Сеть - Главная страница" ;Куда
$w = "http://set.com" ;Рабочая директория
$a = "" ;Additional file arguments. [optional]
$d = "Сеть - Главная страница" ;Описание
$i = "C:\Program Files\Internet Explorer\IEXPLORE.EXE" ;Иконка
FileCreateShortcut($f,$l,$w,$a,$d,$i)
Exit
EndIf
