Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Chat im Netzwerk mit Winsock
Autor: Detlev Schubert
Datum: 01.02.02 01:03
Hallo, Hier ein kleines Proggi für einen Netzwerkchat auf TCP/IP Basis: Private Sub Command1_Click() On Error GoTo fehler If Command1.Caption = "Connect"Then With Winsock1 .RemoteHost = Text3.Text ' RemoteHost-Eigenschaft auf den ' Namen des anderen Computers ' festlegen. .RemotePort = Text4.Text ' Anschluß für die Verbindung. .Bind Text5.Text ' An lokalen Anschluß binden. End With Command1.Caption = "Disconnect" Else Winsock1.Close Command1.Caption = "Connect" End If Exit Sub fehler: MsgBox Err.Description, 16, "Problem" Exit Sub Resume Next End Sub Private Sub Text1_Change() Winsock1.SendData Text1.Text End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim s$ Winsock1.GetData s Text2.Text = s End Sub Gruss Detlev

Chat im Netzwerk mit Winsock	60	Johannes	31.01.02 15:14
Re: Chat im Netzwerk mit Winsock	44	Detlev Schubert	01.02.02 01:03
Danke ! ! !(o.T.)	28	Johannes	01.02.02 12:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen