Option Explicit
Private ip As String
Private port As Integer
Private Connection As Boolean
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
    MousePointer = vbHourglass
    Connection = False
    Call Connect
End Sub
Private Sub Connect()
    Label1.Caption = "Verbinde..."
    ip = "10.10.56.2"
    port = 8000
    sckMain.Close
    sckMain.RemoteHost = ip
    sckMain.RemotePort = port
    sckMain.Connect
End Sub
 
Private Sub sckMain_Connect()
    Label1.Caption = "Verbindung OK"
    Label2.Caption = "Telnet DOS ... "
    Connection = True
    Sleep (600)
    Timer1.Interval = 3000
    Timer1.Enabled = True
End Sub
 
Private Sub Send()
sckMain.SendData "S"
 'Label3.Caption "Send S"
End Sub
 
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim Message As String
Dim F As Integer
   sckMain.GetData Message
   F = FreeFile
   Message = Right(Message, Len(Message) - 4)
   Open "C:\test.txt" For Output As #F
   Print #F, Message
   Close #F
End Sub
 
Private Sub Timer1_Timer()
   Send
   DoEvents
End Sub

[u]Mein System online

MfG ICE-MAN