Function CheckInternet() As Boolean
#if TargetWin32 then
Declare Function InternetGetConnectedState Lib "WinInet" ( ByRef state as Integer, reserved as Integer ) as Boolean
Dim n as Integer
if InternetGetConnectedState( n, 0 ) then
return True
else
return False
end if
#else
return False
#endif
End Function
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.