PowerBuilder

Check Internet Connectivity

See more Socket/SSL/TLS Examples

Demonstrates an efficient way to test for Internet connectivity. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Socket
string ls_TargetIp
integer li_Port
integer li_Ssl
integer li_TimeoutMs

li_Success = 0

loo_Socket = create oleobject
li_rc = loo_Socket.ConnectToNewObject("Chilkat.Socket")
if li_rc < 0 then
    destroy loo_Socket
    MessageBox("Error","Connecting to COM object failed")
    return
end if
// 1. Use a reliable Anycast IP. 
//    8.8.8.8 (Google) or 1.1.1.1 (Cloudflare) are the industry standards.
ls_TargetIp = "8.8.8.8"

// 2. Use Port 53 (DNS). 
//    DNS servers typically listen on TCP Port 53 as well as UDP. 
//    (Alternatively, use port 443 if you suspect port 53 is blocked).
li_Port = 53

// 3. Disable SSL (0). 
//    We are not doing a handshake, just a TCP connection.
li_Ssl = 0

// 4. Short Timeout (1500ms).
//    If you can't reach Google in 1.5 seconds, the connection is 
//    likely too poor for practical use anyway.
li_TimeoutMs = 1500

// Connect
li_Success = loo_Socket.Connect(ls_TargetIp,li_Port,li_Ssl,li_TimeoutMs)
if li_Success = 0 then
    Write-Debug loo_Socket.LastErrorText
    destroy loo_Socket
    return
end if

loo_Socket.Close(10)

Write-Debug "We have Internet connectivity."


destroy loo_Socket