Nachdem das Wissen , wie man einen Chat-Raum unter Verwendung von Microsoft Visual Basic Express können Sie Zeit sparen , wenn Sie einen Chatraum zu Anwendung erstellen müssen erstellen. Visual Basic Express ist kostenlos erhältlich für alle Interessierten in die Erstellung von Anwendungen mit VB.NET . Ein Chat-Raum besteht aus zwei Anwendungen , den Server und den Client . Der Server übernimmt alle Client-Verbindungen , und die Client-Anwendung verbindet Benutzer zum Serverraum , um Nachrichten zu senden. Anleitung
1

Starten Sie Microsoft Visual Basic Express, und klicken Sie dann auf "Neues Projekt ". Auf der linken Seite des Bildschirms , wählen Sie " Console Application . " Klicken Sie auf " OK".
2

Drücken Sie "Strg " + " A ", und drücken Sie dann auf "Löschen". Kopieren Sie den folgenden Code auf Ihrer " Module1.vb ", um das Server-Programm zu erstellen :

Importe System.Net.Sockets

Imports System.Text

Module Module1

Dim As New Hashtable clientsList

Sub Main () Dim

ServerSocket As New TcpListener ( 8888 )

Dim clientSocket Wie TcpClient

Dim infiniteCounter As Integer Dim

Zähler As Integer

serverSocket.Start ()

msg ( " Chat -Server gestartet .... " )

Zähler = 0

infiniteCounter = 0

infiniteCounter = 1 To 2

infiniteCounter = 1

Zähler + = 1

clientSocket = serverSocket.AcceptTcpClient () Dim

bytesFrom ( 10024 ) As Byte Dim

dataFromClient As String Dim

NetworkStream Wie NetworkStream = _

clientSocket.GetStream ( )

NetworkStream.Read ( bytesFrom , 0, CInt ( clientSocket.ReceiveBufferSize ) )

dataFromClient = System.Text.Encoding.ASCII.GetString ( bytesFrom )

dataFromClient = _

dataFromClient.Substring (0, dataFromClient.IndexOf ( "$" ) )

clientsList ( dataFromClient ) = clientSocket

Broadcast ( dataFromClient + " Registriert " , dataFromClient , False)

msg ( dataFromClient + " Registriert Chat-Raum " )

Dim Client As New handleClinet

client.startClient ( clientSocket , dataFromClient , Sub