Option Explicit
Private ip As String
Private port As Integer
Private strData As Variant
Private sendstr(10) As String
Private tmpstr As String
Private n As Integer
Private Connection As Boolean
Public LinuxAktion As String
Public LinuxUser As String
Public LinuxPW As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
    MousePointer = vbHourglass
    Connection = False
    Call Connect
    Timer1.Enabled = True
 
    End Sub
Private Sub Connect()
    Label1.Caption = "Verbinde..."
    'initialize variables
    ip = "10.10.56.2"  'ip address of unix machine your connecting to
    port = 8000       '23 is the std telnet port
 
    'reset the socket
    sckMain.Close
 
    'set the new properties
    sckMain.RemoteHost = ip
    sckMain.RemotePort = port
 
    'initiate the connection
    sckMain.Connect
End Sub
 
Private Sub sckMain_Connect()
    Label1.Caption = "Verbindung OK"
    Label2.Caption = "Telnet DOS ... "
    Connection = True
    Sleep (600)
    Dim Message As String
    sckMain.SendData "S"
    Dim F As Integer
    sckMain.GetData Message
    F = FreeFile
    Open "C:\test.txt" For Output As #F
    Print #F, Message
    Close #F
    End Sub
 
Private Sub Send()
sckMain.SendData "S"
 'Label3.Caption "Send S"
End Sub
'Also zum Datensenden nimmst du:
'Die empfangenen Daten werden hier abgeholt:
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
Dim Message As String
Dim F As Integer
sckMain.GetData Message
F = FreeFile
Open "C:\test.txt" For Output As #F
Print #F, Message
Close #F
End Sub
'Das ist glaub ich das Einfachste, was genau die
'FUnktion hat die du wünschst. Allerdings muss du bedenken,
'das der bisherige Inhalt der Datei gelöscht wird!
'Hoffe es hilft...