Опять Winsock

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
GPP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 351
Зарегистрирован: 02.11.2005 (Ср) 8:02
Откуда: г.Невельск о.Сахалин

Опять Winsock

Сообщение GPP » 21.08.2008 (Чт) 9:56

Здравствуйте! Столкнулся с такой проблемой... В системе имеются две сетевые карты... одна смотрит в инет другая в локалку. Мне нужно что бы программа "вешалась" на ту карту которая смотрит в инет. А программа автоматически "вешается" не на ту которая нужна. В качестве компонента для обмена данными использую Winsock 6.0. Вообще он может работать через инет? Заранее ОГРОМНОЕ человеческое спасибо!
GPP(c) Gorlo Pavel Programming

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Re: Опять Winsock

Сообщение Antonariy » 21.08.2008 (Чт) 14:17

Bind
Лучший способ понять что-то самому — объяснить это другому.

GPP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 351
Зарегистрирован: 02.11.2005 (Ср) 8:02
Откуда: г.Невельск о.Сахалин

Re: Опять Winsock

Сообщение GPP » 21.08.2008 (Чт) 15:15

ОГРОМНОЕ спасибо Antonariy. Еще вопрос :) Как узнать все IP адреса всех интерфейсов на компютере программно?
GPP(c) Gorlo Pavel Programming

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Re: Опять Winsock

Сообщение Antonariy » 21.08.2008 (Чт) 17:07

Код: Выделить всё
Private Declare Function GetIpAddrTable Lib "iphlpapi" (pIpAddrTable As MIB_IPADDRTABLE, pdwSize As Long, ByVal Border As Long) As Long
Private Const ANY_SIZE = 16

Private Type MIB_IPADDRROW
    dwAddr(0 To 3) As Byte                ' IP address
    dwIndex As Long                       ' interface index
    dwMask(0 To 3) As Byte                ' subnet mask
    dwBCastAddr(0 To 3) As Byte           ' broadcast address
    dwReasmSize As Long                   ' rassembly size
    unused As Long                        ' not currently used
End Type

Private Type MIB_IPADDRTABLE
    dwNumEntries As Long                  ' number of entries in the table
    Table(1 To ANY_SIZE) As MIB_IPADDRROW ' array of IP address entries
End Type

Dim Table As MIB_IPADDRTABLE
GetIpAddrTable Table, Len(Table), 0
Лучший способ понять что-то самому — объяснить это другому.

GPP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 351
Зарегистрирован: 02.11.2005 (Ср) 8:02
Откуда: г.Невельск о.Сахалин

Re: Опять Winsock

Сообщение GPP » 22.08.2008 (Пт) 3:31

Все отлично! Повешал Winsock на нужный мне ip адрес. Но при попытке подключения клиентской программы через интернет не чего не выходит :(. Из-за чего это может быть?! Во внутренней сети организации программа подключается нормально и на самом сервере тоже. Помогите советом :)

P.S: Программа сервер запущенна на системе Windows 2003 Serever
Еще раз ОГРОМНОЕ спасибо Antonariy
GPP(c) Gorlo Pavel Programming

GPP
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 351
Зарегистрирован: 02.11.2005 (Ср) 8:02
Откуда: г.Невельск о.Сахалин

Re: Опять Winsock

Сообщение GPP » 22.08.2008 (Пт) 5:53

Все! Всем спасибо! Разобрался :)
GPP(c) Gorlo Pavel Programming


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 70

    TopList  
cron