Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Winsock По Модемам

Автор: Winsock 30.11.2011, 03:09

Здравствуйте уважаемые.
Я не так довно начал изучать Visual Basic.
Пользуюсь 6 версией.
Некоторое время пытаюсь создать программку Связывающая несколько компьютеров по сети интернет.
Выходил из положения используя Winsock Control 6.0
Но!
В самом конце наткнулся просто на жуткую вещь.
Я могу соединяться по Winsock только с тем компьютером, который подключен со мной к одному модему.
Использую ADSL модем фирмы Thomson модели TG585 v7 (если это играет какую либо роль).
Если я на одном компьютере подключен к одному модему и имею IP адресс: 192.168.10.9 а на другом IP адрес: 192.168.10.2 (модемы разные в разных домах) соединение не происходит.
Если же на одном компьютере я подключаюсь к модему и имею IP : 192.168.10.1 и с другого компа подключаюсь к этому же модему и имею IP:192.168.10.2 то соединение происходит.
Вопрос: Как сделать так, чтобы находясь в разных домах а то и районах серверская часть и клиентская могли соединяться по winsock через разные Wi-fi модемы.
Winsok конектил так:

Код


Private Sub Form_Load()
m = FreeFile
ws1.Close
ws1.RemoteHost = "192.168.10.2"
ws1.RemotePort = 123
ws1.Connect
Do
If ws1.State <> sckConnected And ws1.State <> sckConnecting Then
ws1.Close
ws1.Connect
End If
DoEvents
Loop
End Sub

Это часть которая находится на удаленном компьютере т.е. она стоит на каком либо компе и соединяется с тем IP который я имею на своем компе.

Код


Private Sub Form_Load()
Form1.Show
Do
If ws1.State <> sckConnected And ws1.State <> sckListening Then
ws1.Close
ws1.Listen
End If
DoEvents
Loop
End Sub

Private Sub ws1_ConnectionRequest(ByVal requestID As Long)
ws1.Close
ws1.Accept requestID
End Sub

Эта часть которая стоит у меня.

Прошу, подскажите как выйти из положения используя Winsock или предложите альтернативный тип соединения компьютеров по сети для предачи данный и выполнения команд.

С Уважением Евгений.

Автор: Akina 30.11.2011, 07:58

В случае, когда

Цитата(Winsock @ 30.11.2011, 04:09

)

модемы разные в разных домах

необходимо организация VPN между модемами (если поддерживают).
Учите основы маршрутизации.

Модератор: вопрос не имеет отношения ни к WinSock Control, ни к Visual Basic.
Тема закрыта.