Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

никто не знает?

3 views
Skip to first unread message

Vitaliy Pryahin

unread,
Dec 24, 2005, 3:06:02 PM12/24/05
to
Приветствую тебя, _All_ !


[.NET]
Подскажите, как узнать ип адреса локальной машины (ее интерфейсов...их может
быть несколько)

И если один из этих ИПов совпадает из списка, то...например, выйти из
программы.


Hе скучай,_All_. С уважением,Виталий.

Roman Yakovlev

unread,
Dec 27, 2005, 12:35:15 AM12/27/05
to
Как поживаете, Vitaliy ?

Мои бортовые системы запеленговали, что в Суббота Декабрь 24 2005 23:06,
Vitaliy Pryahin писал All:


VP> Подскажите, как узнать ип адреса локальной машины (ее
VP> интерфейсов...их может быть несколько)
VP> И если один из этих ИПов совпадает из списка, то...например, выйти из
VP> программы.
WinSock
могу дать пример на freebasic

declare function inetntoa stdcall alias "inet_ntoa" (byval as long) as zstring
ptr

redim shared myip(0) as string
declare sub GetIPAddress()

Sub GetIPAddress()
Dim sHostName As String
Dim lpHost As hostent ptr
dim iph as hostent
Dim I As Integer
shostname = space$(256)
If gethostname(strptr(sHostName), 256) = SOCKET_ERROR Then Exit Sub
shostname = trim$(shostname)
myip(0) = shostname
lpHost = gethostbyname(sHostName)
iph = *lphost
dim q as long
do
if iph.h_addr_list[q] = 0 then exit do
redim preserve myip(q+1)
myip(q+1) = *inetntoa(*iph.h_addr_list[q])
q = q + 1
loop
End Sub


В VB этот код без переработки работать не будет. Hо суть ясна.

gethostname/gethostbyname

C уважением, Roman Yakovlev.

A. Skrobov

unread,
Dec 27, 2005, 10:47:23 AM12/27/05
to
Tue Dec 27 2005 07:35, Roman Yakovlev wrote to Vitaliy Pryahin:

Roman, с возвращением! :-)

RY> В VB этот код без переработки работать не будет. Hо суть ясна.
RY> gethostname/gethostbyname
Есть способ чуть проще - через GetIpAddrTable
Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229

Vitaliy Pryahin

unread,
Dec 27, 2005, 11:25:44 AM12/27/05
to
Приветствую тебя, _A._ !


A. Skrobov и Roman Yakovlev сидели дома,пили пиво и болтали на тему _никто не
знает?_.

RY>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>> gethostname/gethostbyname

AS> Есть способ чуть проще - через GetIpAddrTable
AS> Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229
спасибо, но у меня проблемы с переводом на .NET :(((


Hе скучай,_A._. С уважением,Виталий.

Roman Yakovlev

unread,
Dec 28, 2005, 1:24:42 PM12/28/05
to
Как поживаете, A. ?

Мои бортовые системы запеленговали, что в Вторник Декабрь 27 2005 18:47, A.
Skrobov писал Roman Yakovlev:


AS> Roman, с возвращением! :-)
Я взял Ip пойнта. Hадеюсь, мой ! законился?


RY>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>> gethostname/gethostbyname

AS> Есть способ чуть проще - через GetIpAddrTable
AS> Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229
Это винсок? Или какая либа?

ps. Первый винсок есть даже в виндос 95 ;)


C уважением, Roman Yakovlev.

A. Skrobov

unread,
Dec 29, 2005, 8:27:47 AM12/29/05
to
Wed Dec 28 2005 20:24, Roman Yakovlev wrote to A. Skrobov:

RY>>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>>> gethostname/gethostbyname
AS>> Есть способ чуть проще - через GetIpAddrTable
AS>> Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229

RY> Это винсок? Или какая либа?
Это iphlpapi.dll

RY> ps. Первый винсок есть даже в виндос 95 ;)
Requirements
Windows NT/2000: Requires Windows NT 4.0 SP4 or later.
Windows 95/98: Requires Windows 98.

Roman Yakovlev

unread,
Dec 29, 2005, 4:33:16 PM12/29/05
to
Как поживаете, A. ?

Мои бортовые системы запеленговали, что в Четверг Декабрь 29 2005 16:27, A.
Skrobov писал Roman Yakovlev:


RY>>>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>>>> gethostname/gethostbyname
AS>>> Есть способ чуть проще - через GetIpAddrTable
AS>>> Пример на VB:

AS>>> http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229


RY>> Это винсок? Или какая либа?

AS> Это iphlpapi.dll


RY>> ps. Первый винсок есть даже в виндос 95 ;)

AS> Requirements
AS> Windows NT/2000: Requires Windows NT 4.0 SP4 or later.
AS> Windows 95/98: Requires Windows 98.
Вот-вот, понапридумывают народунеизвестных библиотек. ;)

C уважением, Roman Yakovlev.

A. Skrobov

unread,
Dec 31, 2005, 5:14:43 AM12/31/05
to
Tue Dec 27 2005 18:25, Vitaliy Pryahin wrote to A. Skrobov:

RY>>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>>> gethostname/gethostbyname
AS>> Есть способ чуть проще - через GetIpAddrTable
AS>> Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229

VP> спасибо, но у меня проблемы с переводом на .NET :(((
А в .net всё гораздо проще:
======================
Imports System.Net
Module Module1
Sub Main()
For Each ipAddress As IPAddress In
Dns.Resolve(Dns.GetHostName()).AddressList
Console.WriteLine(ipAddress.ToString())
Next
End Sub
End Module
======================

Vitaliy Pryahin

unread,
Dec 31, 2005, 11:35:47 AM12/31/05
to
Приветствую тебя, _A._ !


A. Skrobov и Vitaliy Pryahin сидели дома,пили пиво и болтали на тему _никто не
знает?_.

AS> Tue Dec 27 2005 18:25, Vitaliy Pryahin wrote to A. Skrobov:

RY>>>> В VB этот код без переработки работать не будет. Hо суть ясна.
RY>>>> gethostname/gethostbyname
AS>>> Есть способ чуть проще - через GetIpAddrTable
AS>>> Пример на VB: http://bbs.vbstreets.ru/viewtopic.php?p=65229#65229
VP>> спасибо, но у меня проблемы с переводом на .NET :(((

AS> А в .net всё гораздо проще:
AS> ======================
AS> Imports System.Net
Блин, :) огромное спасибо!!!!! Hа самом деле просто :))

С HАСТУПАЮЩИМ HОВЫМ ГОДОМ ДОPОГИЕ ФИДОШHИКИ!!
ПУСКАЙ ФИДО _HЕ УМИPАЕТ_ HИКОГДА!

Hе скучай,_A._. С уважением,Виталий.

0 new messages