Public NickName As String Public intmax As Integer Public IsServeur As Boolean Private Sub Command1_Click() IsServeur = False NickName = "Client" Winsock1(0).Close Winsock1(0).Connect "127.0.0.1", 30002 End Sub Private Sub Command2_Click() IsServeur = True NickName = "Serveur" Winsock1(0).LocalPort = 30002 Winsock1(0).Listen lstChat.AddItem "Serveur online" End Sub Private Sub txtPhrase_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Trim(txtPhrase) <> "" Then If IsServeur Then For I = 1 To intmax If Winsock1(I).State = sckConnected Then Winsock1(I).SendData NickName & " : " & txtPhrase End If Next lstChat.AddItem txtPhrase Else Winsock1(0).SendData NickName & " : " & txtPhrase End If txtPhrase = "" End If End Sub Private Sub Winsock1_Connect(Index As Integer) lstChat.AddItem "Connection etablie" End Sub Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then intmax = intmax + 1 Load Winsock1(intmax) Winsock1(intmax).LocalPort = 30002 Winsock1(intmax).Accept requestID lstChat.AddItem "Client" & intmax & " connecté" End If End Sub Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim tmp As String Winsock1(Index).GetData tmp If IsServeur Then For I = 1 To intmax If Winsock1(I).State = sckConnected Then Winsock1(I).SendData tmp End If Next End If lstChat.AddItem tmp End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question