A voir également:
- Open udp port in inwi maroc
- Udp vs tcp - Guide
- Annuaire maroc telecom particulier ✓ - Forum Mobile
- In da place - Forum Mail
- Port ping ✓ - Forum Réseaux sociaux
- Code puk maroc telecom ✓ - Forum Mobile
2 réponses
brupala
Messages postés
110763
Date d'inscription
lundi 16 juillet 2001
Statut
Membre
Dernière intervention
8 janvier 2025
13 891
11 déc. 2006 à 23:48
11 déc. 2006 à 23:48
là,
il faudra documenter un peu plus si tu veux vraiment qu'on t'aide un peu plus .
tu ne ferais pas du multicast par hasard .
il faudra documenter un peu plus si tu veux vraiment qu'on t'aide un peu plus .
tu ne ferais pas du multicast par hasard .
Multicast? je crois pas. Voici le code:
-------------------------------------------------------
Public Sub InitialisationUDP()
'c'est le même programme qui tourne sur les deux PC
Winsock1.Protocol = sckUDPProtocol
If Winsock1.LocalHostName = "MEDION" Then cePChost = True
If cePChost Then
Winsock1.RemoteHost = "192.168.1.19" 'Toshiba
Winsock1.LocalPort = 50000: Winsock1.RemotePort = 50001
Else
Winsock1.RemoteHost = "192.168.1.15" 'Medion
Winsock1.LocalPort = 50001: Winsock1.RemotePort = 50000
End If
Winsock1.Bind Winsock1.LocalPort, Winsock1.LocalIP
End Sub
Public Sub EnvoiUDP(ByVal Message As String)
TCO.Winsock1.SendData Message
End Sub
Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'MessageEntrant est un string public
On Error GoTo ErrorHandler
Winsock1.GetData MessageEntrant, vbString
Exit Sub
ErrorHandler:
Debug.Print "erreur " & Err.Number & ": " & Err.Description
Resume Next
End Sub
-----------------------------------------------------------
J'ai aussi essayé avec le même port dans les deux sens: c'est pareil.
Merci,
Gaston06
-------------------------------------------------------
Public Sub InitialisationUDP()
'c'est le même programme qui tourne sur les deux PC
Winsock1.Protocol = sckUDPProtocol
If Winsock1.LocalHostName = "MEDION" Then cePChost = True
If cePChost Then
Winsock1.RemoteHost = "192.168.1.19" 'Toshiba
Winsock1.LocalPort = 50000: Winsock1.RemotePort = 50001
Else
Winsock1.RemoteHost = "192.168.1.15" 'Medion
Winsock1.LocalPort = 50001: Winsock1.RemotePort = 50000
End If
Winsock1.Bind Winsock1.LocalPort, Winsock1.LocalIP
End Sub
Public Sub EnvoiUDP(ByVal Message As String)
TCO.Winsock1.SendData Message
End Sub
Public Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'MessageEntrant est un string public
On Error GoTo ErrorHandler
Winsock1.GetData MessageEntrant, vbString
Exit Sub
ErrorHandler:
Debug.Print "erreur " & Err.Number & ": " & Err.Description
Resume Next
End Sub
-----------------------------------------------------------
J'ai aussi essayé avec le même port dans les deux sens: c'est pareil.
Merci,
Gaston06