Vet inte riktigt vad du menar med "scanna", men du kan ju testa att göra en anslutning till porten såhär: Jag menar att "logga" all data som skickas på en viss port ut eller in i min dator via internet. Enklast är att bygga en proxy, där du har två portar. En där du tar emot trafik och en annan där du skickar vidare trafiken till den riktiga servern.Sv: "Skanna" port
    
    
<code>
Private Sub Command1_Click()
    With Winsock1
        .RemoteHost = "min.dator.se"
        .RemotePort = 23
        .Connect
    End With
End Sub
Private Sub Winsock1_Connect()
    Winsock1.Close
    MsgBox "Anslutning lyckades!"
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)
    MsgBox "Fel: " & Number & " " & Description
    Winsock1.Close
End Sub
</code>
/JohanSv: "Skanna" port
    
    Sv: "Skanna" port
    
    
Annars får du göra en nätverkskortsniffer, och det är inte det enklaste, alt använder du en färdig såsom EtherPeek