NetPing()

NetPing(url$)

This function pings the specified url$ and returns the ping time in milliseconds. url$ may be any valid HTTP host name or IP address. A response of -1 means the ping failed.

' Test if connected to the internet.

ms = NetPing("www.google.com")

If ms >= 0 Then
Print "Connected to internet"
Else
Print "Not connected to internet"
Endif