[Hilfe benötigt] P2P Chat

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Slayers.

    [Hilfe benötigt] P2P Chat

    P2P Chat

    Hallo liebe VB-Paradise Community

    Ich bin seit einigen Tage beschäftigt eine Chat Programm zu erstellen habe dabei viele Möglichkeiten gefunden
    da erschien mir ein simples Tutorial habs ungefähr nachgebaut und es geht einfach nicht da ich keinen Hilfreihen
    Beitrag gefunden habe Frag ich einfach euch.     :cursing:


    Aufbau:

    txtbx_ip = Die ip mit der man kontaktiert wird
    txtbx_msg= Nachricht die gesendet werden soll
    txtbx_conversation= Log der gesendeten Nachrichten
    btn_connect= Connect Button
    btn_send= Sendet die Nachricht



    Source Code:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Threading
    3. Imports System.IO
    4. Imports System.Net


    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim Listener As New TcpListener(28960)
    3. Dim Client As New TcpClient
    4. Dim Message As String = ""
    6. Private Sub btn_Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Send.Click
    7. Dim Writer As New StreamWriter(Client.GetStream())
    8. Writer.Write((txtbx_conversation.Text) + vbCrLf)
    9. Writer.Flush()
    10. End Sub
    12. Private Sub Form1_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
    13. Dim ListThread As New Thread(New ThreadStart(AddressOf Listening)) 'Creates the thread
    14. ListThread.Start() 'Starts the thread
    15. End Sub
    16. Private Sub Listening()
    17. Listener.Start()
    18. End Sub



    VB.NET-Quellcode

    1. 'Gibt die globale Ip des Benutzer an um denn Chat benutzerfreundlicher zu machen
    2. Private Sub Form1_Load1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
    3. Dim webclient As New WebClient
    4. Dim leser As New StreamReader(webclient.OpenRead("Http://www.wieistmeineip.de"))
    5. Dim quelltext As String = leser.ReadToEnd()
    6. Dim ip As String = Split(quelltext, ("<h1 class=" & Chr(34) & "ip" & Chr(34) & ">"))(1).Split(CChar("</h1>"))(0)
    7. Label4.Text = ip
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. If Listener.Pending = True Then
    12. txtbx_conversation.Text = (txtbx_conversation.Text + "Message Pending" + vbCrLf)
    13. Message = ""
    14. Client = Listener.AcceptTcpClient()
    16. Dim Reader As New StreamReader(Client.GetStream())
    17. While Reader.Peek > -1
    18. Message = Message + Convert.ToChar(Reader.Read()).ToString
    19. End While
    21. txtbx_conversation.Text = (txtbx_conversation.Text + Message + vbCrLf)
    22. End If
    23. End Sub
    25. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    26. Listener.Stop()
    27. End Sub
    29. Private Sub btn_disconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_disconnect.Click
    30. Listener.Stop()
    31. txtbx_conversation.Clear()
    32. End Sub
    34. Private Sub btn_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_connect.Click
    35. Client = New TcpClient((txt_ip.Text), 28960)
    36. End Sub
    37. End Class






    Das Tutorial was ich benutzt habe ist dreamincode.net/forums/topic/21431-p2p-connections/ :)

    Sag im vorraus danke



    MfG AeQwA :D

    Edit by ~blaze~:
    *Thema verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()

Facebook
Telefonspende