Поведение программы в зависимости от наличия доступа к Интернету

[DarWiM]

Собственно вопрос в теме. Помогите автоматически приостанавливать скрипт если нет доступа к интернету и восстанавливать работу если интернет появляется))

 

[Zaramot]

;код...............

AdlibRegister('_CheckNet', 10)

;код...............

Func _CheckNet()
	If Not Ping('www.autoit-script.ru') > 0 Then
		Do
				Sleep(100)
		Until Ping('www.autoit-script.ru') > 0
	EndIf
EndFunc

 

[DarWiM]

Zaramot
Насколько много это будет занимать оперативки?

 

[Viktor1703]

Могу ещё такой вариант предложить:

Global Const $INTERNET_CONNECTION_CONFIGURED = 0x40
Global Const $INTERNET_CONNECTION_LAN        = 0x02
Global Const $INTERNET_CONNECTION_MODEM      = 0x01
Global Const $INTERNET_CONNECTION_MODEM_BUSY = 0x08
Global Const $INTERNET_CONNECTION_OFFLINE    = 0x20
Global Const $INTERNET_CONNECTION_PROXY      = 0x04
Global Const $INTERNET_RAS_INSTALLED         = 0x10

Global $Internet = 1

While 1
	$iConnect = _WinAPI_InternetGetConnectedState(BitOR($INTERNET_CONNECTION_LAN, $INTERNET_CONNECTION_MODEM, $INTERNET_CONNECTION_PROXY))
	If Not $iConnect Then
		If Not $Internet Then
		    ConsoleWrite('! Соединение с итернет отсутствует' & @CRLF)
			$Internet = 1
		EndIf
	Else
		If $Internet Then
            ConsoleWrite('- Соединение с итернет установлено' & @CRLF)
			$Internet = 0
		EndIf
	EndIf
	Sleep(100)
Wend

Func _WinAPI_InternetGetConnectedState($iFlag)
	Local $Ret = DllCall('wininet.dll', 'bool', 'InternetGetConnectedState', 'dword*', $iFlag, 'dword', 0)
	If (@error) Or (Not IsArray($Ret)) Then
		Return SetError(@error, @extended, 0)
	EndIf
	Return $Ret[0] <> 0
EndFunc

 

[joiner]

Viktor1703 , у меня пров дает инет по витой паре без модема, но дозвон используется...может быть поэтому твой скрипт не сработал? пишет , что инет есть в любом случае

если по теме, то я использую

InetRead("http://www.yandex.ru")

в цикле. чем хорошо - эта функция работает с прокси . не нужно заморачиваться насчет логинов и паролей.

 

[Viktor1703]

Александр, честно говоря я мало чего знаю о этой функции, Вы пробовали флаги подобрать?

И та функция тоже работает с прокси - $INTERNET_CONNECTION_PROXY