Private Sub Form_Load()
With Winsock1
.Protocol = sckTCPProtocol
.RemoteHost = "www.datenbankxxx.de"
.RemotePort = 23
Debug.Print "Verbinde"
.Connect
End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
 
Private Sub Winsock1_Connect()
'MsgBox "verbunden", vbOKOnly
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
MsgBox "request"
End Sub
 
Private Sub text1_keypress(KeyAscii As Integer)
Winsock1.SendData KeyAscii
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData something$
Text1.Text = Text1.Text + something$
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)
Debug.Print "es gab einen fehler!"
Debug.Print Number & Description
End Sub