Création d'un chat
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question"pour ma publicité"?
je poste ma question pour vous demandez si il est possible de créer
un tchat
je poste ma question pour vous demandez si il est possible de créer un tchat, et que je puisse envoyé l'application pour que l'on puissent ce parler.
Imports System.Net.Sockets Imports System.IO Imports System.Net Module Module1 Private server As TcpListener Private client As New TcpClient Private ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8656) ' eingestellt ist port 8000. dieser muss ggf. freigegeben sein! Private list As New List(Of Connection) Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader Dim nick As String End Structure Sub Main() Console.WriteLine("Serveur lancé !") server = New TcpListener(ipendpoint) server.Start() While True client = server.AcceptTcpClient Dim c As New Connection c.stream = client.GetStream c.streamr = New StreamReader(c.stream) c.streamw = New StreamWriter(c.stream) c.nick = c.streamr.ReadLine list.Add(c) Console.WriteLine(c.nick & " s'est connecté.") Dim t As New Threading.Thread(AddressOf ListenToConnection) t.Start(c) End While End Sub Private Sub ListenToConnection(ByVal con As Connection) Do Try Dim tmp As String = con.streamr.ReadLine Console.WriteLine(con.nick & ": " & tmp) For Each c As Connection In list Try c.streamw.WriteLine(con.nick & ": " & tmp) c.streamw.Flush() Catch End Try Next Catch list.Remove(con) Console.WriteLine(con.nick & " s'est déconnecté.") Exit Do End Try Loop End Sub End Module
Imports System.Net.Sockets Imports System.IO Public Class Form1 Private stream As NetworkStream Private streamw As StreamWriter Private streamr As StreamReader Private client As New TcpClient Private t As New Threading.Thread(AddressOf Listen) Private Delegate Sub DAddItem(ByVal s As String) Private nick As String = "unknown" Private Sub AddItem(ByVal s As String) ListBox1.Items.Add(s) End Sub Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Try client.Connect("Mon ip hamachi", 8656) If client.Connected Then stream = client.GetStream streamw = New StreamWriter(stream) streamr = New StreamReader(stream) streamw.WriteLine(nick) streamw.Flush() t.Start() Else MessageBox.Show("Le serveur n'est pas lancé!") Application.Exit() End If Catch ex As Exception MessageBox.Show("Le serveur n'est pas lancé!") Application.Exit() End Try End Sub Private Sub Listen() While client.Connected Try Me.Invoke(New DAddItem(AddressOf AddItem), streamr.ReadLine) Catch MessageBox.Show("Le serveur n'est pas lancé!") Application.Exit() End Try End While End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click streamw.WriteLine(TextBox1.Text) streamw.Flush() TextBox1.Clear() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load nick = InputBox("Pseudo: ", "Choisir un pseudo", "") End Sub End Class