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