Telnetverbindung auf Windows CE

  • VBScript

    Telnetverbindung auf Windows CE

    Hallo,

    vorweg ich bin kein großer Programmierer, und stückel mir meine Programme mit Hilfe und Tutorials zusammen, doch zu folgendem Problem habe ich bisher noch nichts finden können. Ich schreibe ein kleines Programm welches Verbindung mit einem Telnetserver aufnimmt und easy Befehle wie "ren" und "md" ausführt. Bei meinen Probeservern ging das alles gut doch wenn ich die Verbindung mit meinem Telnetserver auf Windows CE aufbaue, sendet er zwar die Befehle, doch sie werden nicht ausgeführt und es kommt auch keine Rückmeldung. Woran könnte das liegen?

    Visual Basic Code:

    Dim Adress As String

    Private Sub Form_Load()
    cmdgo.Enabled = False
    End Sub

    Private Sub cmdConnect_Click()
    If comboIP.Text = "IP Adress" Then
    MsgBox "please insert the IP of the device"
    Else
    socket.Connect comboIP.Text, 23
    Adress = comboIP.Text
    End If
    End Sub

    Private Sub cmdDisconnect_Click()
    socket.Close
    comboIP.BackColor = vbRed
    cmdgo.Enabled = False
    End Sub


    Private Sub socket_Connect()
    comboIP.BackColor = vbGreen
    comboIP.AddItem Adress$
    comboIP.ListIndex = comboIP.NewIndex
    cmdgo.Enabled = True
    End Sub

    Private Sub cmdgo_Click()
    If socket.State = sckConnected Then
    socket.SendData "cd nanddisk" & Chr(13) & Chr(10)
    socket.SendData "ren startup.bat start.bat" & Chr(13) & Chr(10)
    Else
    MsgBox "not connected"
    End If
    End Sub

    Private Sub socket_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    frameUpdater.BackColor = vbYellow
    End Sub

    Vielen Dank im Voraus