Is this of any use?
; test for an internet connection ; userlibs ; ********************************** ; .lib "wininet.decls" ; InternetCheckConnection%(Url$,Flags%,Reserved%):"InternetCheckConnectionA" ; ********************************** Const FORCE_CONNECTION = 1 url$="http://www.blitzbasic.com" If InternetCheckConnection(url$, FORCE_CONNECTION, 0) = 0 Notify "Connection NOT present" Else Notify "Connection present" End If End