Определение интернета

[Likerman]

Как узнать, подключен ли интернет ?

 

[Ganibal95]

Как я проверяю. >

MsgBox(0,0,_GAPI_GetIP())

; Узнать IP адресс
Func _GAPI_GetIP()
	if not _GAPI_IsNetworkConnect() Then Return @IPAddress1
	Local $sIP = StringRegExpReplace(BinaryToString(InetRead("http://www.whatismyip.ru")), '(?s).+\<font\scolor\=blue\>\<h1\>Ваш\sip\sадрес:\<br\>\n(\d+\.\d+\.\d+\.\d+)\n\</h1\>\</font\>.+', '\1')
	Return $sIP
EndFunc

; Узнать подключение к интернету
Func _GAPI_IsNetworkConnect()
    Local $aRet, $iResult = 0x0
    $aRet = DllCall("sensapi.dll", "int", "IsNetworkAlive", "int*", 0)
    If BitAND($aRet[1], 0x1) Then $iResult += 2
    If BitAND($aRet[1], 0x2) Then $iResult += 4
    If BitAND($aRet[1], 0x4) Then $iResult += 8
    Return $iResult
EndFunc

Можно еще спомощью ping.

Ping()

 

[ArtInt]

Можно юзать любую функцию связанную с интернетом (например грузить картинку через InetGet), если ошибка -> скорее всего интернета нет. (Просто не могу представить, какая ещё может быть ошибка при скачивании картинки, но вдруг)

 

[Ganibal95]

ArtInt
Это займет время, особенно если интернет подключен, но за него не заплачено, думать будет долго.

 

[madmasles]

Можно проверять HEAD запросом на google.ru, или mail.ru, или yandex.ru.

 

[ArtInt]

Ganibal95
Да, несомненно ваш способ лучше. Однако данная альтернатива тоже имеет право жить.

 

[Ganibal95]

ArtInt
Я не говорил что лучше, я пользуюсь этим.
А вообще лучше через TCP/IP подключится к Google...

 

[joiner]

я пользуюсь фонарным выражением

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

 

[ArtInt]

Александр
ArtInt [?]

Можно юзать любую функцию связанную с интернетомъ, если ошибка -> скорее всего интернета нет.

По этому принципу, или я что-то не понимаю?

 

[joiner]

ArtInt
если в инет через прокси и в системе есть настройка на прокси с запоминанием логина и пароля или инет через модем или просто типа выделенка с дозвоном, то

InetRead

без особых обозначений..
в программе нужно учитывать возможность получения инета через прокси. иначе это будет недодел ;)

 

[Ganibal95]

Александр
Я не пользуюсь прокси, думаю мало кто сейчас им пользуется.

 

[Arei]

НЕ соглашусь, многие пользуются прокси.

 

[ArtInt]

Ganibal95 [?]

думаю мало кто сейчас им пользуется.

Очень многие, поверь. Большинство моих друзей (не простых юзверей, кстати) юзает именно его.