Модераторы: Akina
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Winsock По Модемам, Использование Winsock при модем. подключ 
:(
    Опции темы
Winsock
  Дата 30.11.2011, 03:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 30.11.2011

Репутация: нет
Всего: нет



Здравствуйте уважаемые.
Я не так довно начал изучать 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 или предложите альтернативный тип соединения компьютеров по сети для предачи данный и выполнения команд.

С Уважением Евгений.
PM MAIL   Вверх
Akina
Дата 30.11.2011, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



В случае, когда 
Цитата(Winsock @  30.11.2011,  04:09 Найти цитируемый пост)
модемы разные в разных домах
необходимо организация VPN между модемами (если поддерживают).
Учите основы маршрутизации.

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



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1039 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.