Code Problem

  • VB.NET

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

    Code Problem

    Hi ich hab hier n code der es meiner meinung nach über eine Ip möglich macht zu chatten.
    jetzt hab ich hier aber ein Problem.
    meiner meinung nach brauche ich da zwei Formen kann dass sein ?
    Ich bekomme auch immer Probleme mit dem Formdesinger woran kann das liegen ??

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.Net.Sockets
    4. Imports System.Threading
    5. Imports System.Text
    7. Imports System.Windows.Forms
    9. public class ChatTool
    10. public Shared Sub Main
    11. Application.Run(New Form1)
    12. End Sub
    13. End class
    15. Public Class Form1
    16. Inherits System.Windows.Forms.Form
    18. Public Sub New()
    19. MyBase.New()
    21. InitializeComponent()
    22. End Sub
    24. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    25. If disposing Then
    26. If Not (components Is Nothing) Then
    27. components.Dispose()
    28. End If
    29. End If
    30. MyBase.Dispose(disposing)
    31. End Sub
    33. Private components As System.ComponentModel.IContainer
    34. Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    35. Friend WithEvents Label1 As System.Windows.Forms.Label
    36. Friend WithEvents Label2 As System.Windows.Forms.Label
    37. Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    38. Friend WithEvents Label3 As System.Windows.Forms.Label
    39. Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    40. Friend WithEvents Button1 As System.Windows.Forms.Button
    41. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    42. Me.TextBox1 = New System.Windows.Forms.TextBox
    43. Me.Label1 = New System.Windows.Forms.Label
    44. Me.Label2 = New System.Windows.Forms.Label
    45. Me.TextBox2 = New System.Windows.Forms.TextBox
    46. Me.Label3 = New System.Windows.Forms.Label
    47. Me.TextBox3 = New System.Windows.Forms.TextBox
    48. Me.Button1 = New System.Windows.Forms.Button
    49. Me.SuspendLayout()
    50. '
    51. 'TextBox1
    52. '
    53. Me.TextBox1.Location = New System.Drawing.Point(88, 16)
    54. Me.TextBox1.Name = "TextBox1"
    55. Me.TextBox1.Size = New System.Drawing.Size(136, 20)
    56. Me.TextBox1.TabIndex = 0
    57. Me.TextBox1.Text = ""
    58. '
    59. 'Label1
    60. '
    61. Me.Label1.Location = New System.Drawing.Point(32, 16)
    62. Me.Label1.Name = "Label1"
    63. Me.Label1.Size = New System.Drawing.Size(48, 24)
    64. Me.Label1.TabIndex = 1
    65. Me.Label1.Text = "Message"
    66. '
    67. 'Label2
    68. '
    69. Me.Label2.Location = New System.Drawing.Point(0, 64)
    70. Me.Label2.Name = "Label2"
    71. Me.Label2.Size = New System.Drawing.Size(80, 24)
    72. Me.Label2.TabIndex = 2
    73. Me.Label2.Text = "Target IP"
    74. '
    75. 'TextBox2
    76. '
    77. Me.TextBox2.Location = New System.Drawing.Point(88, 64)
    78. Me.TextBox2.Name = "TextBox2"
    79. Me.TextBox2.Size = New System.Drawing.Size(136, 20)
    80. Me.TextBox2.TabIndex = 3
    81. Me.TextBox2.Text = ""
    82. '
    83. 'Label3
    84. '
    85. Me.Label3.Location = New System.Drawing.Point(8, 104)
    86. Me.Label3.Name = "Label3"
    87. Me.Label3.Size = New System.Drawing.Size(72, 24)
    88. Me.Label3.TabIndex = 4
    89. Me.Label3.Text = "Record"
    90. '
    91. 'TextBox3
    92. '
    93. Me.TextBox3.AutoSize = False
    94. Me.TextBox3.Location = New System.Drawing.Point(80, 104)
    95. Me.TextBox3.Name = "TextBox3"
    96. Me.TextBox3.Size = New System.Drawing.Size(184, 136)
    97. Me.TextBox3.TabIndex = 5
    98. Me.TextBox3.Text = ""
    99. '
    100. 'Button1
    101. '
    102. Me.Button1.Location = New System.Drawing.Point(232, 16)
    103. Me.Button1.Name = "Button1"
    104. Me.Button1.Size = New System.Drawing.Size(56, 24)
    105. Me.Button1.TabIndex = 6
    106. Me.Button1.Text = "Send"
    107. '
    108. 'Form1
    109. '
    110. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    111. Me.ClientSize = New System.Drawing.Size(292, 266)
    112. Me.Controls.Add(Me.Button1)
    113. Me.Controls.Add(Me.TextBox3)
    114. Me.Controls.Add(Me.Label3)
    115. Me.Controls.Add(Me.TextBox2)
    116. Me.Controls.Add(Me.Label2)
    117. Me.Controls.Add(Me.Label1)
    118. Me.Controls.Add(Me.TextBox1)
    119. Me.ResumeLayout(False)
    121. End Sub
    123. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    124. Dim bytes(200) As Byte
    125. Dim MyIP As IPAddress
    126. Dim RemoteIP As IPAddress
    127. Dim str As String
    129. RemoteIP = IPAddress.Parse(TextBox2.Text)
    130. MyIP = IPAddress.Parse("912.168.1.100")
    132. Dim Port1 As Integer = 8080
    133. Dim port2 As Integer = 8081
    135. Dim myLocal As New IPEndPoint(MyIP, Port1)
    136. Dim myRemote As New IPEndPoint(RemoteIP, port2)
    137. Dim receive1 As New UdpClient(myRemote)
    138. Dim send1 As New UdpClient(myLocal)
    140. Try
    141. bytes = System.Text.Encoding.ASCII.GetBytes(TextBox1.Text.ToUpper)
    142. send1.Send(bytes, bytes.Length, myRemote)
    143. str = System.Text.Encoding.ASCII.GetString(bytes)
    144. TextBox3.Text = TextBox3.Text & vbCrLf & str
    146. bytes = receive1.Receive(myLocal)
    147. str = System.Text.Encoding.ASCII.GetString(bytes)
    148. TextBox3.Text = TextBox2.Text & vbCrLf & str
    151. Catch ex As Exception
    152. Console.WriteLine("")
    153. End Try
    154. send1.Close()
    155. receive1.Close()
    156. End Sub
    157. End Class

    Kann es einfach sein, das dort designer code zwischen gekommen ist ?(

    und dann ist es fragwürdig dieses Programm "chat" zu nennen

    Das programm baut eine verbindung auf
    sendet daten
    wartet so lange bis daten zurückkommen
    schließ dann die verbindung gibt aber den reservierten speicher nicht direkt frei, und ich bin mir net mal sicher ob ein einfach .close reicht.

    Und ein zweites Formular brauchst du nicht.

Facebook
Telefonspende