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
    'initialize variables
    sendstr(0) = ""
    sendstr(1) = ""
    sendstr(2) = ""
    sendstr(3) = LinuxUser             'Username
    sendstr(4) = LinuxPW & vbCrLf      'Passwort
    sendstr(5) = LinuxAktion & vbCrLf  'z.b."reboot" & vbCrLf  'Befehl
    n = -1
    Connection = False
    Call Connect
    Timer1.Enabled = True
End Sub
 
Private Sub Connect()
    Label1.Caption = "Verbinde..."
    'initialize variables
    ip = "172.16.2.26"  'ip address of unix machine your connecting to
    port = 23       '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"
    Connection = True
    Sleep (100)
End Sub
 
Private Sub sckMain_DataArrival(ByVal bytesTotal As Long)
    'initialize the variable
    strData = ""
    'get the data
    sckMain.GetData strData ', vbString
 
    If n < 3 Then
        sendstr(n + 1) = strData & sendstr(n + 1)
    End If
         n = n + 1
        If n > 6 Then
            Connection = False
            Unload Me
            Exit Sub
        End If
        tmpstr = sendstr(n)
        If sckMain.State = sckConnected Then
            Label1.Caption = "Sende Daten..."
            sckMain.SendData tmpstr
            DoEvents
        Else
            If Connection = False Then
                Timer1.Enabled = False
                MousePointer = vbDefault
                MsgBox "Keine Verbindung zum Linux-Rechner!"
                Unload Me
            End If
        End If
End Sub
 
Private Sub sckMain_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)
    'alert the user to the error
    MsgBox "Error: " & Description
End Sub
 
Private Sub sckMain_SendComplete()
    Label1.Caption = "Daten gesendet"
End Sub
 
 
 
Private Sub Timer1_Timer()
        If sckMain.State = sckConnected Then
        ElseIf Connection = False Then
            MousePointer = vbDefault
            MsgBox "Zeitüberschreitung bei Verbindung!"
            FrmMain.Show
            Connection = False
            Timer1.Enabled = False
            Unload Me
            Exit Sub
        End If
        Timer1.Enabled = False
End Sub

Private Sub TelnetStart(User as String, Pw as String, Action as String)
   With LinuxSteuerung
      .LinuxUser = User
      .LinuxPW = Pw
      .LinuxAktion = Action
      Call .Show(vbModal)
   End With
End Sub

------------------------------------------------

man lernt nie aus...