• Home
 · 
• Complete Applications
 · 
• Check Connection

Check Connection

This code will check if a connection is opened to the internet , if not , it will show a messagebox ! easy ... i like this way because am a new programmer!!!

Assumes
1- Add mswinsck.ocx to the form 2- Add a command button to the form (Caption = Detect) 3- Add a text box to the form (Visible = false) 4- Copy Code !!

Rate Check Connection

• 1
• 2
• 3
• 4
• 5

(9(9 Vote))

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "No Connnection!"
Else
MsgBox "Connection Detected"
End If
End Sub
Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP

End Sub
'Easy ha ? .. This is the way i like it !!