Я использую программирование сокетов в vb.net для создания удаленного клиентского приложения.Проблема возникает, когда я использую как клиента, так и сервера в win 7 box.Он отлично работает для win xp или кроссплатформенного общения (например, win xp to win 7).Ниже приведены коды, используемые на стороне клиента и сервера:
Клиент:
Dim ips As IPAddress()
ips = Dns.GetHostAddresses(HostName)
For index = 0 To ips.Length - 1
Next index
================================================================
private sub sendFile(byval ip as string)
Dim client As TcpClient = Nothing client = New TcpClient(ips(index).ToString, 8000)
'Code to send file
End sub
Сервер:
Dim Listener As TcpListener = Nothing
Listener = New TcpListener(IPAddress.Any, 8000)
Listener.Start()
Dim client As TcpClient = Nothing
Dim netstream As NetworkStream = Nothing
If Listener.Pending() Then
client = Listener.AcceptTcpClient()
netstream = client.GetStream()
При запуске клиента и сервера на win 7 выдается следующее сообщение:
Попытка подключения не удалась, поскольку подключенная сторона не ответила должным образом через определенный промежуток времени,или не удалось установить соединение, так как подключенный хост не смог ответить
Пожалуйста, помогите мне выяснить, в чем проблема.Это уровень разрешений, который имеет win 7?