Server Checker

[frozenpost]

I am trying to create a program what checks that my pop3 server is still running, using Winsocket.
Has anyone got any better ways of doing it or sugestions.

[the182guy]

thats easy, use the winsock control, project>compnants>microsoft winsock control. add a button and winsock to the form and put:

Private Sub Command1_Click()
    Winsock1.Close
    Winsock1.Connect "pop.tiscali.co.uk", 110
End Sub
 
Private Sub Winsock1_Close()
    Winsock1.Close
    MsgBox "Server terminated the connection"
End Sub
 
Private Sub Winsock1_Connect()
    Winsock1.Close
    MsgBox "The server is alive"
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Winsock1.Close
    MsgBox "Server is down"
End Sub

Click the button to check if the server is alive or not

[frozenpost]

thanks for that