Function to check if there is internet connection (Windows)

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.