Eine permante Verbindung halten

  • VB.NET
  • .NET (FX) 4.0

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Eine permante Verbindung halten

    Hallo liebe Community,

    Ich habe folgendes Problem. Ich suche gerade ein Tool oder ein Script, womit ich eine Client Anwendung(IP: 8.7.2.1) mit einem MasterServer(213.136.72.97) verbinden kann. Ohne das ich dann im Router des Clients die Port Weiterleitung aktivieren muss. Sodass dann der Master Server dem Client antworten kann ohne das die Portweiterleitung aktiviert ist..... Wie zum Beispiel Skype, Minecraft etc...



    Danke im Vorraus.

    Mit freundlichem Gruß
    Daniel Elskamp

    Ja aber so habe ich bis jetzt meine Clients ...

    VB.NET-Quellcode

    1. ​Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    4. Imports System.Text.RegularExpressions
    6. Public Class frm_main_direct
    7. Dim listener As New TcpListener(25476)
    8. Dim client As TcpClient
    9. Dim message As String = ""
    10. Const BufferSize = 1024
    11. Dim FileTransferFolder = "C:\"
    13. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    14. VoIP.ExitVoIP()
    15. listener.Stop()
    16. End Sub
    18. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    19. Me.Text = "Direkte Verbindung: " & VoIP.Status & " | VoIP | " & My.Settings.nickname
    20. End Sub
    22. Private Sub frm_main_direct_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    23. Dim listthread As New Thread(New ThreadStart(AddressOf listening))
    24. listthread.Start()
    25. End Sub
    27. Private Sub listening()
    28. listener.Start()
    29. End Sub
    31. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    32. If listener.Pending = True Then
    33. message = ""
    34. client = listener.AcceptTcpClient()
    36. Dim reader As New StreamReader(client.GetStream)
    38. While reader.Peek > -1
    39. message = message + Convert.ToChar(reader.Read()).ToString
    40. End While
    42. RichTextBox2.Text = RichTextBox2.Text & vbCrLf & My.Settings.nickname & " : " & message
    43. Else
    45. End If
    46. End Sub
    48. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    49. If RichTextBox1.Text = "" Then
    51. Else
    52. client = New TcpClient(frm_login.TextBox3.Text, 25476)
    53. Dim writer As New StreamWriter(client.GetStream())
    54. writer.Write(RichTextBox1.Text)
    55. RichTextBox2.Text = RichTextBox2.Text & vbCrLf & My.Settings.nickname & " : " & RichTextBox1.Text
    56. writer.Flush()
    57. End If
    58. End Sub
    60. Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
    61. Dim i As Int16
    62. Dim s As String
    64. ' Get start position to drop the text.
    65. i = RichTextBox1.SelectionStart
    66. s = RichTextBox1.Text.Substring(i)
    67. RichTextBox1.Text = RichTextBox1.Text.Substring(0, i)
    69. ' Drop the text on to the RichTextBox.
    70. RichTextBox1.Text = RichTextBox1.Text + _
    71. e.Data.GetData(DataFormats.Text).ToString()
    72. RichTextBox1.Text = RichTextBox1.Text + s
    73. End Sub
    75. Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
    76. If (e.Data.GetDataPresent(DataFormats.Text)) Then
    77. e.Effect = DragDropEffects.Copy
    78. Else
    79. e.Effect = DragDropEffects.None
    80. End If
    81. End Sub
    83. Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown
    84. If e.KeyCode = Keys.Enter Then
    85. Button1.PerformClick()
    86. RichTextBox1.Clear()
    87. e.Handled = True
    88. End If
    89. End Sub
    91. Private Sub ChatSpeichernToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChatSpeichernToolStripMenuItem.Click
    92. SaveFileDialog1.ShowDialog()
    93. System.IO.File.WriteAllText(SaveFileDialog1.FileName, RichTextBox2.Text)
    95. End Sub
    97. End Class


    Und jetzt möchte ich es aber gerne so haben das die Verbindung dauerhaft bleibt.

    Hi.

    Du brauchst keinen Timer für einen Chat. Du verwendest Events. Hier im Forum gibt es mehrere gute Chats im Sourcecodeaustausch:

    zB hier:
    VersuchsChat mit leistungsfähigem Server
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende