Telnet fehler beim Senden

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Lupus.

    Telnet fehler beim Senden

    hyhy

    hab hier den schönen telnet clienten:

    VB.NET-Quellcode

    1. ' -----------------------------------------------------------------------------------
    2. ' Quick easy TELNET (synchronous) quide in 100% VB.NET (no silly Asock.dll needed!!!)
    3. ' Please use this code freely NO RESTRICTIONS, change as you like.
    4. ' -----------------------------------------------------------------------------------
    5. ' This demo is intended to help developers with no experience of telnet
    6. ' to get started. The demo is just that a DEMO, it is NOT a finished product
    7. ' and MAY contain bugs.
    8. ' Rimmel©
    9. ' Please email nemo1966:gmail.com for questions/help with this code.
    10. ' -----------------------------------------------------------------------------------
    11. ' Note: the bytes received from the telnet socket will need formatting to
    12. ' get rid unwanted chars and/or converting to a different format. This demo
    13. ' simply converts to ASCII.
    14. ' -----------------------------------------------------------------------------------
    16. ' -----------------------------------------------------------------------------------
    17. ' Note: An error can occur if the recv byte lenth on the last call is exacly
    18. ' 256 bytes. Will will cause the receive call in the loop to block (waiting).
    19. ' This is where an asynchronous solution would be better.
    20. ' -----------------------------------------------------------------------------------
    23. Imports System.Net
    24. Imports System.Net.Sockets
    25. Imports System.Text
    27. Public Class Form1
    29. ' These vars can be formwide or local (in procedure) depending on how you want to use them.
    30. Dim remoteIPAddress As IPAddress
    31. Dim ep As IPEndPoint
    32. Dim tnSocket As Socket
    34. Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
    35. SendCommands("die ip", "port")
    36. End Sub
    38. Private Sub SendCommands(ByVal PIPAddress As String, ByVal PPort As String)
    39. ' LCommand: Actual command we are going to send through telnet
    40. ' Quite often this is the password or login (or both)
    41. Dim Command As String = "sys reboot" ' Example command only - you need to use your own
    43. ' LRecvString: data returned from the telnet socet
    44. Dim RecvString As String = String.Empty
    46. ' NumBytes: Number of bytes return from telnet socket (count)
    47. Dim NumBytes As Integer = 0
    49. ' Get the IP Address and the Port and create an IPEndpoint (ep)
    50. remoteIPAddress = IPAddress.Parse(PIPAddress.Trim)
    51. ep = New IPEndPoint(remoteIPAddress, CType(PPort.Trim, Integer))
    53. ' Set the socket up (type etc)
    54. tnSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    56. ' Convert the ASCII command into bytes, adding a line termination on (vbCrLf)
    57. Dim SendBytes As [Byte]() = Encoding.ASCII.GetBytes(Command & vbCrLf)
    59. ' Create a byte array for recieving bytes from the telnet socket
    60. Dim RecvBytes(255) As [Byte]
    62. Try
    63. ' Connect
    64. tnSocket.Connect(ep)
    65. Catch oEX As SocketException
    66. ' error
    67. ' You will need to do error cleanup here e.g killing the socket
    68. ' and exiting the procedure.
    69. Exit Sub
    70. End Try
    72. ' If we get to here then all seems good (we are connected)
    73. Try
    74. ' Wait a few seconds (3) (depending on connection) telnet can be slow.
    75. Wait(3000)
    77. ' Double check we are connected
    78. If tnSocket.Connected Then
    79. ' Send the command
    80. tnSocket.Send(SendBytes, SendBytes.Length, SocketFlags.None)
    82. ' -------------------------------------------------------------------
    83. ' The below "do loop" is not actually needed. This loop is used to
    84. ' Provide feedback for the commands you issue. e.g. like a hyperterm
    85. ' window. If you simply want to send command with no feedback rem it out
    86. ' -------------------------------------------------------------------
    88. ' loop getting 256 bytes of data from telnet socket at a time
    89. Do
    90. ' RecvBytes with contain 256 bytes if data returned
    91. ' numbytes with have the count of bytes returned
    92. NumBytes = tnSocket.Receive(RecvBytes, RecvBytes.Length, 0)
    93. RecvString = RecvString + Encoding.ASCII.GetString(RecvBytes, 0, NumBytes)
    94. Loop While NumBytes = 256 ' if less than 256 we are at the end of the recv stream
    96. ' Send recieved bytes to the output text box
    97. txtRecv.Text = RecvString
    98. ' -------------------------------------------------------------------
    99. Wait(1000)
    101. ' Disconnect
    102. tnSocket.Close()
    103. End If
    104. Catch oEX As Exception
    105. ' Error cleanup etc needed
    106. End Try
    108. ' Cleanup
    109. remoteIPAddress = Nothing
    110. ep = Nothing
    111. tnSocket = Nothing
    112. Command = Nothing
    113. RecvString = Nothing
    116. End Sub
    118. Private Sub Wait(ByVal PMillseconds As Integer)
    119. ' Function created to replace thread.sleep()
    120. ' Provides responsive main form without using threading.
    122. Dim TimeNow As DateTime
    123. Dim TimeEnd As DateTime
    124. Dim StopFlag As Boolean
    126. TimeEnd = Now()
    127. TimeEnd = TimeEnd.AddMilliseconds(PMillseconds)
    128. StopFlag = False
    129. While Not StopFlag
    130. TimeNow = Now()
    131. If TimeNow > TimeEnd Then
    132. StopFlag = True
    133. End If
    134. Application.DoEvents()
    135. End While
    137. ' Cleanup
    138. TimeNow = Nothing
    139. TimeEnd = Nothing
    140. End Sub
    144. Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
    145. Application.Exit()
    147. End Sub
    149. Private Sub cmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSend.Click
    150. Dim text As [Byte]() = Encoding.ASCII.GetBytes(TextBox1.Text & vbCrLf)
    152. tnSocket.Send(text, SendBytes.Length, SocketFlags.None)
    154. End Sub
    156. End Class



    funktioniert alles 1a nur das senden von befehlen. leider bekomme ich auch keine fehlermeldung warum auch immer.

    könnte mir jemand sagen was ich falsch gemacht habe??

    thx

    Thema verschoben

    Dein Satz ergibt kein Sinn. Also das Senden von Befehlen funktioniert nicht. Welche Befehle? Wie sehen die aus? Sollen die irgendwas besonderes bewirken?

    vG,
    Lupus