Вход на хостинг
IT-новости
20.04.2016 iPhone 2017 года поместят в водонепроницаемый корпус из стекла
Линейка iPhone в новом году серьезно поменяется. В этом уверен аналитический исследователь Мин Чи Ку......
30.07.2015 Ищем уникальный контент для сайта
Ищем уникальный контент для сайта Без уникального контента Ваш сайт обречен на то, что его страницы......
AutoItSetOption ( "WinDetectHiddenText", 1 )
AutoItSetOption ( "SendAttachMode", 1 )
; open free desktop
WinMinimizeAll ( )
Sleep ( '1000' )
; network connection wizard
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 = 'Office VPN'
Send ( $pptpname & '{ENTER}' )
; 5
WinWaitActive ( 'Мастер новых подключений', 'Введите имя узла или','5' )
$pptphost = 'office.enterprise.domain'
Send ( $pptphost & '{ENTER}' )