|
Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 5000
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
MsgBox ("Verbidung erfolgreich")
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)
MsgBox ("Keine Verbidnung")
End Sub
|
|