TCP Networkstream aufrecht erhalten & Daten senden

  • VB.NET

    TCP Networkstream aufrecht erhalten & Daten senden

    Hallo Liebe VB Gemeinde,

    Vorweg gesagt, habe ich vor einigen Jahren aus Interesse mit VB 5 & 6 gearbeitet und am Anfang des Jahres die Installations CD's zufällig im Sortiment wiederentdeckt. Da ich aktuell Windows 7 als 64-Bit System nutze, hat sich die weitere Nutzung von o.g. VBVersionen von alleine erledigt, wobei ich mit denen noch auf einer virtuellen Windows XP mittels Virtualbox arbeiten kann. Nun habe ich nach einiger Wartezeit endlich in den letzten Tagen meine VB 2012 Version erhalten und wollte mal so entdecken, was es da so neues gibt in VB und wo die gravierenden Unterschiede sind und wollte daher mal parallel mit dem alten und den neuen VB Programmen einen Telnet Clienten schreiben.

    Bei VB 6 geht das ja recht einfach mit der Winsock Libary, wobei das stutzen bei VB 2012 groß war, dass Winsock heut zu Tage ja nicht mehr genutzt wird und musste mich daher in TCP Verbindungen lesen und üben. Soweit ist schon alles gut und die TCP Verbindung besteht und ich komme bis zum Telnet Login. Ab da fingen schon meine Probleme an, Die Login-daten zu senden, den ich sehe nicht was gesendet wurde und was der Telnet Server geantwortet hat.

    Sicherlich könnte ich mir nun hier aus dem Forum oder woanders schon den kompletten Source für einen TCP Clienten herunterladen und auf meine Bedürfnisse anpassen, jedoch hilft es mir aber wenig weiter beim selbstständigen erstellen des Programmes, wo für mich der Ehrgeiz und Reiz als Hobby Programmierer liegt. Jedoch komme ich da auch an einem Punkt, wo ich den Zeigefinger heben muss für einige Rückfragen, da die VB 2012 Version ja noch "relativ" neu ist und es noch nicht soviele Codebeispiele gibt an denen man sich eventuell orientieren könnte und daher die Try & Error Methode mich da schon schneller weiter gebracht hat als stundenlanges googlen.

    Hier ist bereits der von mir eigenständig erstellte Source in VB 2012 mit Unprofessionellem VB 6 Wissen angefertigt und wäre da nun über Denkanstösse erfreut zu folgenden Fragen:
    • Wie sende ich nun basierend auf meinem eigenen Source den Login zum Telnet, wobei ich mir sicher bin dass ich den schon sende.
    • Wie erhalte ich trotzdem einen permanenten Netzwerkstream mit dem vom Server gesendeten Daten?
    • Wie erhalte ich den TCP Netzwerkstream permanent zum Server aufrecht, ohne das der mich nach einer gewissen Zeit trennt?

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Net.Sockets
    5. Imports System.Text
    7. Public Class Form1
    9. Dim Socket As System.Net.Sockets.Socket
    10. Dim StreamIn As System.IO.TextReader
    11. Dim StreamOut As System.IO.TextWriter
    13. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    14. Cluster_Monitor.Text = Cluster_Monitor.Text & "> Programm bereit ..." & vbCrLf
    15. Connect.Enabled = True
    16. Disconnect.Enabled = False
    18. End Sub
    21. Private Sub Connect_Click(sender As Object, e As EventArgs) Handles Connect.Click
    23. Dim ServerAddress As String = RemoteHost.Text
    24. Dim ServerPort As Integer = RemotePort.Text
    26. Dim ipHostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(ServerAddress)
    27. Dim EP As New System.Net.IPEndPoint(ipHostInfo.AddressList(0), ServerPort)
    28. Socket = New System.Net.Sockets.Socket(EP.Address.AddressFamily, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
    29. Socket.Connect(ServerAddress, ServerPort)
    31. Cluster_Monitor.AppendText("> Initialisiere Verbindung zu " & Socket.RemoteEndPoint.ToString() & vbCrLf)
    33. Dim tcpClient As New System.Net.Sockets.TcpClient()
    34. tcpClient.Connect(ServerAddress, ServerPort)
    35. Dim networkStream As NetworkStream = tcpClient.GetStream()
    38. 'prüfen ob lesen/schreiben möglich ist
    39. If networkStream.CanRead And networkStream.CanWrite Then
    41. Dim myReceive(tcpClient.ReceiveBufferSize) As Byte
    42. networkStream.Read(myReceive, 0,
    43. CInt(tcpClient.ReceiveBufferSize))
    45. Dim myReturnData As String =
    46. Encoding.ASCII.GetString(myReceive)
    47. Cluster_Monitor.AppendText(myReturnData & vbCrLf)
    49. End If
    50. 'Ab hier sehe ich nur die Login Aufforderung und kann im Monitorfenster nichts mehr anderes sehen
    53. Dim sendRemoteUser As [Byte]()
    55. sendRemoteUser = Encoding.ASCII.GetBytes(RemoteUser.Text & vbCrLf)
    56. networkStream.Write(sendRemoteUser, 0, sendRemoteUser.Length)
    57. Cluster_Monitor.AppendText(myReturnData & vbCrLf)
    59. Connect.Enabled = False
    60. Disconnect.Enabled = True
    62. End Sub
    64. Private Sub Disconnect_Click(sender As Object, e As EventArgs) Handles Disconnect.Click
    66. Cluster_Monitor.Text = Cluster_Monitor.Text & vbCrLf & "> Verbindung beendet ..."
    68. Connect.Enabled = True
    69. Disconnect.Enabled = False
    71. End Sub
    73. Private Sub Cluster_Monitor_TextChanged(sender As Object, e As EventArgs) Handles Cluster_Monitor.TextChanged
    75. If Cluster_Monitor.Text.Length > 0 Then
    76. Cluster_Monitor.Focus()
    77. Cluster_Monitor.Select(Cluster_Monitor.Text.Length, 0)
    78. End If
    80. End Sub
    82. End Class


    In VB 6 mittels Winsock funktioniert indess ales tadellos ... ?(

Facebook
Telefonspende