Private Sub Form_Load()
' Le nom du contrôle est udpPeerA
With udpPeerA
' IMPORTANT: assurez-vous de changer la valeur de RemoteHost
' pour lui donner le nom de votre ordinateur
.RemoteHost = "PeerB"
.RemotePort = 1001 ' Port auquel on se connecte.
.Bind 1002 ' Établit le lien avec le port local.
End With
frmPeerB.Show ' Affiche la seconde feuille.
End Sub
Private Sub txtSend_Change()
' Envoie le texte dès qu'il est tapé.
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
Private Sub Winsock1_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)
End Sub
----------------------------------------------------------------
argument non valide :
[#f00e00]udpPeerA.SendData txtSend.Text
[#00000e]comment faire ?????????
---------------
