Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить IP-адрес компа? / 5 сообщений из 5, страница 1 из 1
29.09.2006, 21:17
    #34023545
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить IP-адрес компа?
Как определить IP-адрес компьютера, с которого запущена программа? И вообще другие данные - какая OS, какая система (оперативная память и прочее)
...
Рейтинг: 0 / 0
29.09.2006, 21:54
    #34023586
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить IP-адрес компа?
Ну? Люди, вопрос-то вроде не сильно страшный
...
Рейтинг: 0 / 0
29.09.2006, 22:18
    #34023604
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить IP-адрес компа?
Да ты уже всех достал как шахтер уголь. Сам не пробовал ответы искать? Например поиском ?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
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

Private Function GetIP() As String
Dim Table As MIB_IPADDRTABLE
    If GetIpAddrTable(Table, Len(Table),  0 ) =  0  Then GetIP = Table.Table( 1 ).dwAddr( 0 ) & "." & Table.Table( 1 ).dwAddr( 1 ) & "." & Table.Table( 1 ).dwAddr( 2 ) & "." & Table.Table( 1 ).dwAddr( 3 )
End Function
...
Рейтинг: 0 / 0
29.09.2006, 23:08
    #34023646
Paul Sacks
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить IP-адрес компа?
Да сходил бы в поиск... ьам такого добра жуть!
...
Рейтинг: 0 / 0
30.09.2006, 11:21
    #34023847
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как определить IP-адрес компа?
я в поиске налазился!!! Даже достал три темы годовой давности....
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как определить IP-адрес компа? / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]