Reciveing info sent to port 80.

[BrandonTurner]

i have this code and i thought that made when i surfed the internet it would pick up data being sent to me throguh port 80. But nothing happens.

Private Sub Form_Load()
Winsock1.LocalPort = 80
Winsock1.Listen
End Sub

Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strIncoming As String
Winsock1.GetData strIncoming
MsgBox strIncoming
End Sub