WINSOCK - что это и с чем его едят?

Мне необходимо создать прогу для обмена данными по локальной сети. При ближайшем изучении доступных средств VB набрел на Winsock. Почитав инфу в MSDN понял что ничего не понял... Вот результат моих изысканий:

---1 форма---Запускается на моем компе
'При загрузке формы
Private Sub Form_Load()
With Winsock1
.RemoteHost = 'NIKE'
.RemotePort = '1035' 'Как определить по какому порту обращаться?
.Connect
End With
End Sub
'При установлении контакта
Private Sub Winsock1_Connect()
MsgBox 'УРА! СОЕДИНИЛИСЬ!!!'
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 Number & ' ' & Description
End Sub

---2 форма---Запускается на компе NIKE
'При загрузке формы устанавливается в прослушивание
Private Sub Form_Load()
Winsock1.Listen
End Sub
'Когда есть контакт
Private Sub Winsock1_Connect()
With Winsock1
MsgBox 'К вам присоединился ' & Chr(13) & _
.RemoteHost & ' ' & .RemoteHostIP & ' ' & _
.RemotePort
End With
End Sub
'При попытке конекта
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Буквально через секунду после старта проги на моем компе выдается сообщение об ошибке 'Connection is forcefully rejected' (соединение отклонено). К чему бы это?
Оюъясните пожалуйста как правильно работать с Winsock!!!

0

попробуй вместо TCP использовать UDP.
Я год назад на такие же грабли наступил, но уже не помню деталий.
помоему в MSDN есть объяснение.

0

День добрый.

А где, собственно, описание настроек сокета на втором компе?
Или они прописаны в свойствах сокета непосредственно?
Сокету на серверной машине надо настроить локалпорт в значение равное ремотпорт на клиентской машине - ИМХО грабли в этом...
Если что не так - напиши, попробуем разобраться.

С наилучшими.

Я когда-то посал компонент для работы с сетью. Ну в общем тоже что и стандартный но только проще с ним работать:

создаём сервер с 6000 портом
Server.InitServer(6000)

коннектимся в 6000 порт по IP 192.168.0.0
Client.Connect 192.168.0.0 6000

чтоб получить месягу

private sub Message(Message as string)

end sub

Могу выслать на мыло!

0