Avere la conoscenza di come creare una chat room utilizzando Microsoft Visual Basic Express è possibile risparmiare tempo quando è necessario creare un'applicazione di chat room . Visual Basic Express è disponibile gratuitamente a tutti coloro che sono interessati a creare applicazioni utilizzando VB.NET . Una chat room coinvolge due applicazioni, il server e il client . Il server gestisce tutte le connessioni client , e l'applicazione client si connette gli utenti alla sala server per inviare i messaggi . Istruzioni
1

Avviare Microsoft Visual Basic Express e quindi fare clic su "Nuovo progetto ". Nel riquadro a sinistra dello schermo , selezionare " Applicazione console . " Fare clic su " OK ".
2 Premere

"Ctrl " + " A ", quindi premere "Elimina ". Copia e incolla il seguente codice nel tuo " Module1.vb " per creare il programma server :

Importazioni System.Net.Sockets

Imports System.Text

Module Module1

Dim clientsList As New Hashtable

Sub Main ( ) per

Dim serverSocket As New TcpListener ( 8888 ) per

Dim clientSocket Come TcpClient

dim infiniteCounter As Integer

dim contatore As Integer

serverSocket.Start ( ) per

msg ( " Chat Server è iniziato .... " ) per

contatore = 0

infiniteCounter = 0

infiniteCounter = 1 To 2

infiniteCounter = 1

contatore + = 1

clientSocket = serverSocket.AcceptTcpClient ( ) per

Dim bytesFrom ( 10024 ) As Byte Dim

dataFromClient As String Dim

NetworkStream Come NetworkStream = _

clientSocket.GetStream ( ) per

networkStream.Read ( bytesFrom , 0 , CInt ( clientSocket.ReceiveBufferSize ) ) per

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

dataFromClient = _

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

clientsList ( dataFromClient ) = clientSocket

broadcast ( dataFromClient + " Iscritto " , dataFromClient , False ) per

msg ( dataFromClient + " Iscritto chat " ) per

Dim client As New handleClinet

client.startClient ( clientSocket , dataFromClient , Sub