Problem mit Stream

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Torenjk.

    Problem mit Stream

    Hallo Leute,

    ich hab mir nen kleines Programm gebastelt mit Client-Server struktur. Nur versuche ich jetzt bei bestimmten Strings funktionen aufzurufen, das macht er aber ned.
    Wisst ihr woran das liegt?


    Das ist der Server (Auf dem PC werden die Befehle dann ausgeführt)

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System
    4. Imports Microsoft.Win32
    5. Public Class Form1
    6. Dim port As Integer = 6961
    7. Dim sock As New TcpClient()
    8. Dim tcpc As New TcpListener(port)
    10. 'Auf Port hörn
    11. Private Sub listen()
    12. Try
    13. tcpc.Start()
    14. sock = tcpc.AcceptTcpClient()
    15. Catch ex As Exception
    16. End Try
    17. End Sub
    19. Private Sub check()
    20. If sock.Connected = True Then
    21. sock.SendTimeout = 5000
    22. Try
    23. Dim nstream As NetworkStream = sock.GetStream
    24. Dim bit(sock.ReceiveBufferSize) As Byte
    25. nstream.Read(bit, 0, CInt(sock.ReceiveBufferSize))
    26. Dim str As String = System.Text.Encoding.ASCII.GetString(bit)
    27. Dim id() As String = Split(str, "*", -1, CompareMethod.Text)
    29. If id(0) = 0 Then
    30. Dim stri As String = id(1)
    31. MessageBox.Show(stri)
    33. If stri = "Shutdown" Then
    34. testest()
    35. Call max()
    36. End If
    37. End If
    39. If id(0) = 0 Then
    40. Dim stri As String = id(1)
    41. MessageBox.Show(stri)
    42. MessageBox.Show("Befehl war" & stri)
    43. If stri = "test" Then
    44. testest()
    45. Call max()
    46. End If
    47. If stri = "Shutdown" Then
    48. Call max()
    49. End If
    50. End If
    51. Catch ex As Exception
    52. check()
    53. End Try
    54. End If
    55. End Sub
    58. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    59. Me.Visible = True
    60. While sock.Connected = False
    61. Try
    62. listen()
    63. Catch ex As Exception
    64. End Try
    65. End While
    67. While True
    68. check()
    69. End While
    70. End Sub
    71. End Class



    Und das ist der Client (der die Befehle in form eines Strings gibt)

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Public Class Form1
    4. Dim sock As New TcpClient()
    5. Dim ip As IPAddress = IPAddress.Parse("127.0.0.1")
    6. Dim port As Integer = 6961
    8. Private Sub connect()
    9. ip = IPAddress.Parse(TextBox1.Text)
    10. port = 6961
    11. Try
    12. sock.Connect(ip, port)
    14. Catch ex As Exception
    15. MsgBox("Kann ned zur IP connecten!")
    16. End Try
    17. End Sub
    19. Private Sub dat(ByVal dat As String)
    20. Dim nstream As NetworkStream = sock.GetStream()
    21. Dim bit As [Byte]() = System.Text.Encoding.ASCII.GetBytes(dat)
    22. nstream.Write(bit, 0, bit.Length)
    23. End Sub
    25. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    27. End Sub
    29. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    30. Call connect()
    31. End Sub
    33. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. dat("0*" + TextBox2.Text)
    35. End Sub
    36. End Class



    Nun die Msgboxen mit dem String gibt er aus, aber nicht die Befehle die in den Funktionen vorgegeben sind (in ner eigenen klasse)
    Die befehle in den Klassen sind halt solche sachen wie:

    VB.NET-Quellcode

    1. msgbox("Funktionsmsg :D")

Facebook
Telefonspende