Wissen, wie man einen Chatraum zu programmieren, ohne Verwendung einer Datenbank kann Ihnen helfen, ein Client /Server- Anwendung , ohne die Zeit zu verbringen Entwerfen einer Datenbank . Ein Chat-Programm wird durch zwei Anwendungen , die Client- und die Server erstellt. Die Server-Anwendung kümmert sich um alle Client-Verbindungen , um die Kommunikation zu etablieren. Das Client-Programm wird in jedem Computer zu wollen, um mit dem Server verbinden , um mit anderen Clients chatten installiert . Sie können diese Anwendung mit Microsoft Visual Basic.NET , auch als VB.NET bekannt. Things You
Microsoft Visual Basic Express
brauchen anzeigen Weitere Anweisungen
1

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

Drücken Sie "Strg " und "A ", und drücken Sie dann auf "Löschen" , um alle vorhandenen Code zu entfernen. Kopieren Sie den Code unten in " Module1.vb ", um die Server-Anwendung zu erstellen :

Importe System.Net.Sockets

Imports System.Text

Module Module1

Dim As New Hashtable hshTbl

Sub Main () Dim

svrSckt As New TcpListener ( 8888 )

Dim TClient Wie TcpClient

Dim infntCntr As Integer Dim

cntr As Integer

svrSckt.Start ()

msg ("Server für den Chat gestartet .... " )

cntr = 0

infntCntr = 0

infntCntr = 1 To 2

infntCntr = 1

cntr + = 1

TClient = svrSckt.AcceptTcpClient () Dim

btsFrom ( 10024 ) As Byte Dim

clientData As String Dim

NetworkStream Wie NetworkStream = _

tClient.GetStream ()

NetworkStream.Read ( btsFrom , 0, CInt ( tClient.ReceiveBufferSize ) )

clientData = System.Text.Encoding.ASCII.GetString ( btsFrom )

clientData = _

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

hshTbl ( clientData ) = TClient

Broadcast ( clientData + " angeschlossen hat " , clientData , False)

msg ( clientData + " beigetreten Chatroom " )

Dim Client As New handleClinet

client.startClient ( TClient , clientData , Sub