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