Hallo zusammen,
Ich würde gerne einen kleinen Chat in vb programmieren. Leider habe ich in der Netzwerkprogrammierung keinerlei Erfahrungen. Ich habe schon viele Tutorials gefunden doch meistens ist die Firewall im Weg. Es soll auch einer sein wo nicht
immer mein pc als server an sein muss. Ich habe 0 Erfahrungen. Es geht hier eher nicht um den Code sondern wie ich den Chat benutze also wie ich z.b. die ip heraus finde die ich beim anderen Eingeben soll. Ich habe schon diesen Code:
Imports System.Net.Sockets
Imports System.Threading
Imports System.IO
Public Class Form1
Dim server As New TcpListener(55555)
Dim client As New TcpClient
Dim nachricht As String
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
server.Stop()
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim listthread As New Thread(AddressOf listing)
listthread.Start()
End Sub
Private Sub listing()
server.Start()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
client = New TcpClient(TextBoxIp.Text, 55555)
Dim writer As New StreamWriter(client.GetStream)
writer.Write(TextBoxDeineNachricht.Text)
writer.Flush()
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
If server.Pending Then
nachricht = ""
client = server.AcceptTcpClient
Dim reader As New StreamReader(client.GetStream)
While reader.Peek > -1
nachricht &= Convert.ToChar(reader.Read()).ToString
End While
TextBoxNachrichten.Text &= nachricht & vbNewLine
End If
End Sub
End Class
Ich arbeite mit Visual Basic 2010 Express
