• Home
 · 
• Internet/HTML
 · 
• Determine if Connected to Internet (even through network)

Determine if Connected to Internet (even through network)

Simple way to tell if a user is connected to the internet

Assumes
Assume MS Winsock control is added to app with name Winsock1 you can replace www.yahoo.com with any site you want, just make sure its on the net somewhere...

Rate Determine if Connected to Internet (even through network)

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

Public Sub CheckIfConnected()
 Winsock1.Close
 Winsock1.Connect "www.yahoo.com", 80
 
 While Winsock1.state <> sckConnected
  If Winsock1.state = sckError Then GoTo Offline
  DoEvents
 Wend
 
 MsgBox "Online"
 Winsock1.Close
 Exit Sub
Offline:
 MsgBox "Offline"
End Sub