Bonjour , j'essaie de faire un programme qui ecoute un port et me dit des qu il y a une connection dessus.
Voici mon Code :
J'ecoute le port 80, ensuite je lance un navigateur et normalement il doit m'ecrire connection. Mais il ne fait qu'ecouter, il ne voit pas les connexions.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Timer1_Timer() Winsock1.Close Winsock1.RemotePort = 80 Winsock1.Listen Text1.Text = Winsock1.State DoEvents End If End Sub Private Sub Winsock1_connexionRequest(ByVal requestID As Long) MsgBox ("connection") End Sub
Je n'arrive pas à trouver pourquoi, si quelqu'un à une idée , Merci
Partager