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.
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
- Public Class Form1
- Dim Listener As New TcpListener(28960)
- Dim Client As New TcpClient
- Dim Message As String = ""
- Private Sub btn_Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Send.Click
- Dim Writer As New StreamWriter(Client.GetStream())
- Writer.Write((txtbx_conversation.Text) + vbCrLf)
- Writer.Flush()
- End Sub
- Private Sub Form1_Load2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim ListThread As New Thread(New ThreadStart(AddressOf Listening)) 'Creates the thread
- ListThread.Start() 'Starts the thread
- End Sub
- Private Sub Listening()
- Listener.Start()
- End Sub
VB.NET-Quellcode
- 'Gibt die globale Ip des Benutzer an um denn Chat benutzerfreundlicher zu machen
- Private Sub Form1_Load1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
- Dim webclient As New WebClient
- Dim leser As New StreamReader(webclient.OpenRead("Http://www.wieistmeineip.de"))
- Dim quelltext As String = leser.ReadToEnd()
- Dim ip As String = Split(quelltext, ("<h1 class=" & Chr(34) & "ip" & Chr(34) & ">"))(1).Split(CChar("</h1>"))(0)
- Label4.Text = ip
- End Sub
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- If Listener.Pending = True Then
- txtbx_conversation.Text = (txtbx_conversation.Text + "Message Pending" + vbCrLf)
- Message = ""
- Client = Listener.AcceptTcpClient()
- Dim Reader As New StreamReader(Client.GetStream())
- While Reader.Peek > -1
- Message = Message + Convert.ToChar(Reader.Read()).ToString
- End While
- txtbx_conversation.Text = (txtbx_conversation.Text + Message + vbCrLf)
- End If
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- Listener.Stop()
- End Sub
- Private Sub btn_disconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_disconnect.Click
- Listener.Stop()
- txtbx_conversation.Clear()
- End Sub
- Private Sub btn_connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_connect.Click
- Client = New TcpClient((txt_ip.Text), 28960)
- End Sub
- End Class
Das Tutorial was ich benutzt habe ist dreamincode.net/forums/topic/21431-p2p-connections/
Sag im vorraus danke
MfG AeQwA
Edit by ~blaze~:
*Thema verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()