Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Chat
Autor: Nepster
Datum: 01.04.05 00:38
Hi @ all, Schaut mal: ' Winsock initialisieren Private Sub Form_Load() With WSockServer(0) .Close .LocalPort = 1234 .Listen End With End Sub ' Verbinden Private Sub cmdConnect_Click() On Error Resume Next WSockClient.Connect txtConnectTo.Text, 1234 End Sub ' Verbindungsanforderung Private Sub WSockServer_ConnectionRequest(Index As Integer, _ ByVal requestID As Long) Load WSockServer(1) WSockServer(1).LocalPort = 0 WSockServer(1).Accept requestID End Sub ' Daten werden empfangen Private Sub WSockServer_DataArrival(Index As Integer, _ ByVal bytesTotal As Long) Dim sNachricht As String WSockServer(1).GetData sNachricht lstChat.AddItem "Client: " & sNachricht End Sub ' Winsock-Fehler (Empfangen) Private Sub WSockServer_Error(Index As Integer, _ ByVal Number As Integer, Description As String, _ ByVal Scode As Long, ByVal Source As String, _ ByVal HelpFile As String, ByVal HelpContext As Long, _ CancelDisplay As Boolean) On Error Resume Next MsgBox "Fehler: " & Description CancelDisplay = True End Sub ' Nachricht senden Private Sub cmdSend_lick() WSockClient.SendData txtMessage.Text lstChat.AddItem "Server: " & txtMessage.Text End Sub ' Winsock-Fehler (Senden) Private Sub WSockClient_Error(ByVal Number As Integer, _ Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, _ ByVal HelpContext As Long, CancelDisplay As Boolean) On Error Resume Next MsgBox "Fehler: " & Description CancelDisplay = True End Sub Ist da irgendwas falsch ??? Danke im Vorraus Nepster :xool:

Chat	1.151	Nepster	01.04.05 00:38
Re: Chat	713	Tomot	01.04.05 01:51
Re: Chat	707	Nepster	01.04.05 14:32
Re: Chat	857	KaMiKaZe	10.04.05 17:36
Re: Chat	727	Tomot	10.04.05 20:05
Re: Chat	791	KaMiKaZe	11.04.05 00:50

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