>>procedure checkInternetConnection >> >> local lcWebAddress >> lcWebAddress = "http://mail.airmail.net" && change this to a web address located close >> && to you >> >> * lcWebAddress = "http://206.66.12.86" && or you can hard code the IP address >> && of a web server >> >> Declare Integer InternetCheckConnection in Wininet.dll String Url, Long dwFlags, Long Reserved >> >> If InternetCheckConnection(lcWebAddress, 1, 0) != 0 >> return .t. >> Else >> return .f. >> EndIf >> >>endproc>>