Salut tout le monde je me nome Hyp3r dans le milieu informatique. j'ais 14 ans je fait du codage depuis déjà 2 ans. ma passion est le développement de site web ("HTML/PHP/JAVA/CSS"), et trouver des fail dans des site quand je ne sais pas quoi faire.
Donc Le Tuto arrive juste avant de débuter je tien a vous dires que je suis dyslexique ("Dysorthographie") Exactement. Voila Ma Bref Présentation. On est partit pour le tuto :).
________________________________________________________
Matériel
-Mon Tuto-
-Un Cerveaux-
-VB 2010-
________________________________________________________
Déjà vous devez créé une application console et lui donner comme nom ("ServerTchat")
Des que vous avez créé l'application console une fenêtre va s’ouvrir avec 4 code ligne si je ne me trompe pas, et supprimer tout le contenue et mètre sa a la place.
Donc Apres Enregistrer sur votre BUREAU ou DOSSIER.
________________________________________________________
Maintenance Nous Allons passer a la L'application.
Donc Deja Créé une nouvelle WindowsApplication1.
Vous pouvez la renommer de votre chois bien-sure :p.
Apres Nous allons placez les outil ("Indispensable").
-1 Bouton x1 (" Renomme le ("Envoyer")
-2 ListBox x1
-3 TexteBox x1
Une fois cela tout créé cliquer x2 sur votre form1 et supprimer les 4 ou 5 ligne de code et metez
Apres Enregistrez sur votre BUREAU ou DOSSIER.
Lancée Deja L'emulateur que nous avons créé pour que sa marche.
Donc Voila Pour Mon Tutorial j’espère que il vous auras plus :$.
("C'est mon premier tuto, me dirt se qu'il ne vas pas et autre
")
Donc Le Tuto arrive juste avant de débuter je tien a vous dires que je suis dyslexique ("Dysorthographie") Exactement. Voila Ma Bref Présentation. On est partit pour le tuto :).
________________________________________________________
Matériel
-Mon Tuto-
-Un Cerveaux-
-VB 2010-
________________________________________________________
Déjà vous devez créé une application console et lui donner comme nom ("ServerTchat")
Des que vous avez créé l'application console une fenêtre va s’ouvrir avec 4 code ligne si je ne me trompe pas, et supprimer tout le contenue et mètre sa a la place.
PHP:
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, 80) ' eingestellt ist port 80. 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 OK!")
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 ModuleDonc Apres Enregistrer sur votre BUREAU ou DOSSIER.
________________________________________________________
Maintenance Nous Allons passer a la L'application.
Donc Deja Créé une nouvelle WindowsApplication1.
Vous pouvez la renommer de votre chois bien-sure :p.
Apres Nous allons placez les outil ("Indispensable").
-1 Bouton x1 (" Renomme le ("Envoyer")
-2 ListBox x1
-3 TexteBox x1
Une fois cela tout créé cliquer x2 sur votre form1 et supprimer les 4 ou 5 ligne de code et metez
PHP:
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) Handles Me.Shown
Try
client.Connect("IP VPS OU HAMACHI", 80)
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 ClassApres Enregistrez sur votre BUREAU ou DOSSIER.
Lancée Deja L'emulateur que nous avons créé pour que sa marche.
Donc Voila Pour Mon Tutorial j’espère que il vous auras plus :$.
("C'est mon premier tuto, me dirt se qu'il ne vas pas et autre
")
