автоматическая установка соединения
- Автор темы ArchangeL
- Дата начала
Mancoffee [?]
RunAs проверить не могу, т.к. не на чем. Остальное работает
Код:
$Pass = "Пароль"
If Ping("strim.net.ua", 250) Then
MsgBox(0, '', "Интернет есть", 2)
Exit
Else
Do
MsgBox(0, 'Подключение', 'Соединяем ...', 2)
;~ RunAs(@UserName, @ComputerName, $Pass, 0, 'Rasdial "Название соединения" "Логин" "Пароль"')
Sleep(10000)
Until Ping("strim.net.ua", 250)
MsgBox(0, '', "Подключились", 2)
EndIf
Mancoffee
Свет проталкивает тьму ...
- Сообщения
- 86
- Репутация
- 1
InnI [?]
Если от сети отключен и запускаю скрипт и потом соединяюсь с сетью, то в итоге подключается к интернету. Если же перед запуском скрипта я уже подключен к сети, то тогда выдаёт сообщение "Интернет есть", не подключается к интернету (то есть не выполняется Else) и заканчивается работа скрипта.
П.С. Может неправильное понимание. Я могу подключится только тогда, когда я подсоединён к сети (не к интернету), а адрес strim.net.ua является адресом провайдера, в который я могу зайти даже без интернета, то есть при соединении к сети, поэтому и пингую его для проверки.
Работает, только ...
Если от сети отключен и запускаю скрипт и потом соединяюсь с сетью, то в итоге подключается к интернету. Если же перед запуском скрипта я уже подключен к сети, то тогда выдаёт сообщение "Интернет есть", не подключается к интернету (то есть не выполняется Else) и заканчивается работа скрипта.
П.С. Может неправильное понимание. Я могу подключится только тогда, когда я подсоединён к сети (не к интернету), а адрес strim.net.ua является адресом провайдера, в который я могу зайти даже без интернета, то есть при соединении к сети, поэтому и пингую его для проверки.
Код:
$Pass = "Пароль"
Do
If Ping('strim.net.ua',250) And Not Ping("yandex.ru", 250) Then
MsgBox(0, 'Подключение', 'Соединяем ...', 2)
; RunAs(@UserName, @ComputerName, $Pass, 0, 'Rasdial "Название соединения" "Логин" "Пароль"')
EndIf
Sleep(5000)
Until Ping("yandex.ru", 250)
MsgBox(0, '', "Подключились", 2)
ExitДобавлено:
Сообщение автоматически объединено:
--------------------------------------------
Можно обойтись без двойного пинга яндекса и ненужной паузы, если подключение к инету уже есть:
Код:
$Pass = "Пароль"
While Not Ping("yandex.ru", 250) ; проверяем а нет ли уже интернета, если есть - немедленно завершаем работу
Sleep(5000) ; если нет - подождем 5 секунд и проверим сеть
If Ping('strim.net.ua',250) Then ; проверяем подключение к сети
MsgBox(0, 'Подключение', 'Соединяем ...', 2)
; RunAs(@UserName, @ComputerName, $Pass, 0, 'Rasdial "Название соединения" "Логин" "Пароль"')
EndIf
WEnd
MsgBox(0, '', "Подключились", 2)
Exiterlik
Я так понял, что Mancoffee хочет дождаться подключения к strim.net.ua (видимо вручную подключает), а затем просто запустить подключение к интернету.
Mancoffee
Я так понял, что Mancoffee хочет дождаться подключения к strim.net.ua (видимо вручную подключает), а затем просто запустить подключение к интернету.
Mancoffee
Код:
$Pass = "Пароль"
While Not Ping("strim.net.ua", 250)
MsgBox(0, 'Подключение', 'Ожидание подключения к сети', 2)
WEnd
MsgBox(0, 'Подключение', 'Запуск соединения с интернетом', 2)
;~ RunAs(@UserName, @ComputerName, $Pass, 0, 'Rasdial "Название соединения" "Логин" "Пароль"')
For $i = 0 To 9
Sleep(1000)
If Ping("ya.ru", 250) Then
MsgBox(0, '', "Интернет есть", 2)
Exit
EndIf
Next
MsgBox(0, '', "Интернета нет :(", 2)