автоматическая установка соединения

[InnI]

Mancoffee
Когда вы запускаете скрипт без сети, то попадаете в Else. А там у вас (ВНИМАНИЕ!) вечный цикл.

 

[Mancoffee]

InnI [?]

вечный цикл

А как сделать, чтобы постоянный проверка (пинг) была, пока не подключится к интернету? То есть пока не выполнится первое условие

 

[InnI]

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]

InnI [?]

RunAs проверить не могу, т.к. не на чем. Остальное работает

Работает, только ...
Если от сети отключен и запускаю скрипт и потом соединяюсь с сетью, то в итоге подключается к интернету. Если же перед запуском скрипта я уже подключен к сети, то тогда выдаёт сообщение "Интернет есть", не подключается к интернету (то есть не выполняется Else) и заканчивается работа скрипта.

П.С. Может неправильное понимание. Я могу подключится только тогда, когда я подсоединён к сети (не к интернету), а адрес strim.net.ua является адресом провайдера, в который я могу зайти даже без интернета, то есть при соединении к сети, поэтому и пингую его для проверки.

 

[erlik]

$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

Добавлено:

Сообщение автоматически объединено: 5 Апр 2014

--------------------------------------------
Можно обойтись без двойного пинга яндекса и ненужной паузы, если подключение к инету уже есть:

$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)
Exit

 

[InnI]

erlik
Я так понял, что 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)

 

[Mancoffee]

InnI [?]

Я так понял, что Mancoffee хочет дождаться подключения к strim.net.ua (видимо вручную подключает)

Правильно