IP

[Чудик]

Как я могу узнать IP удаленного компа, если знаю его имя?

[KDima]

Зацени:

Код: Выделить всё

Declare Sub gethostbyaddr Lib "ws2_32.dll" ( _
    ByVal addr As String, _
    ByVal len As Long, _
    ByVal type As Long)


[Чудик]

Понимаю - хорошо. Но у меня в проекте используется класс CSokcet, который является почти исходником WinSock. Поэтому возникает конфликт.
Мне бы иначе... с использованием непосредственно контрола WinSock, чтоб его можно было заменить упомянутым классом.

[KDima]

Понимаю - хорошо. Но у меня в проекте используется класс CSokcet, который является почти исходником WinSock. Поэтому возникает конфликт.
Мне бы иначе... с использованием непосредственно контрола WinSock, чтоб его можно было заменить упомянутым классом.

Мне это ничего не говорит

[Чудик]

Хорошо, а разве gethostbyaddr не определяет наоборот по IP адресу имя компа?
Может gethostbyname?

[tyomitch]

Что-нибудь в духе:

Код: Выделить всё

WinSock.RemoteHost = "google.com"
MsgBox WinSock.RemoteIP


[Чудик]

MsgBox WinSock.RemoteIP - выдает постоянно пустые значения!

[tyomitch]

Ну тогда остаётся только gethostbyname
Пример где-то вокруг http://bbs.vbstreets.ru/viewtopic.php?t=9109

[Konst_One]

Код: Выделить всё

public Type HOSTENT
    h_name As Long
    h_aliases As Long
    h_addrtype As Integer
    h_length As Integer
    h_addr_list As Long
End Type
Public Const hostent_size = 16

Public Const INADDR_NONE = &HFFFFFFFF
Public Const INADDR_ANY = &H0


Public Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
Public Declare Function inet_ntoa Lib "wsock32.dll" (ByVal inn As Long) As Long
Public Declare Sub MemCopy Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&)
Public Declare Function gethostbyname Lib "wsock32.dll" (ByVal host_name As String) As Long
Public Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Long

'returns IP as long, in network byte order
Public Function GetHostByNameAlias(ByVal HostName$) As Long
    'Return IP address as a long, in network byte order
    Dim phe&
    Dim heDestHost As HOSTENT
    Dim addrList&
    Dim retIP&
    retIP = inet_addr(HostName$)
    If retIP = INADDR_NONE Then
        phe = gethostbyname(HostName$)
        If phe <> 0 Then
            MemCopy heDestHost, ByVal phe, hostent_size
            MemCopy addrList, ByVal heDestHost.h_addr_list, 4
            MemCopy retIP, ByVal addrList, heDestHost.h_length
        Else
            retIP = INADDR_NONE
        End If
    End If
    GetHostByNameAlias = retIP
End Function

Public Function GetAscIP(ByVal inn As Long) As String
    #If Win32 Then
        Dim nStr&
    #Else
        Dim nStr%
    #End If
    Dim lpStr&
    Dim retString$
    retString = String(32, 0)
    lpStr = inet_ntoa(inn)
    If lpStr Then
        nStr = lstrlen(lpStr)
        If nStr > 32 Then nStr = 32
        MemCopy ByVal retString, ByVal lpStr, nStr
        retString = Left(retString, nStr)
        GetAscIP = retString
    Else
        GetAscIP = "255.255.255.255"
    End If
End Function

'вызов такой
s=GetAscIP(GetHostByNameAlias("www.mail.ru"))




[Sirik]

2 Konst_One

Всегда выдаётся результат 255.255

[Konst_One]

ты это проверял, когда в инете был в момент запуска этой проги?

[Konst_One]

или ты работаешь через прокси

[Konst_One]

а все понял, вы похоже не сделали инициализацию винсокета

вот примерчик накропал, держи:

[Konst_One]

кстати, и через проксю работает нормально. только что проверил

[codemaster]

кстати, и через проксю работает нормально. только что проверил

прокси не имеет ни какого отношения к gethostbyname
Ключевое слово здесь
DNS.

[Чудик]

У меня все работает, даже получилось в проект впихнуть.
Кстати, tyomitch толкал в том же направлении, с чего я и начал копать.
А вообще, причем может быть прокси сервер. На что он влияет? В сетевых технологиях я слаб - объясните?

[Konst_One]

прокси тут на самом деле не причем, как было правильно замечено codemaster, только DSN за энто дело отвечает

я про прокси писал, чтобы удостовериться, что ты к инету подключен, а не только к локалке

[RayShade]

Не DSN а DNS

[Konst_One]

ладно уж, очепятаться один раз нельзя
Domain Name System
Database Source Name

[KiloGraf]

Интересно посмотреть на этот класс - CSocket, где его можно взять?

[KDima]

Хорошо, а разве gethostbyaddr не определяет наоборот по IP адресу имя компа?
Может gethostbyname?

Ой!

[Чудик]

Интересно посмотреть на этот класс - CSocket, где его можно взять?

http://bbs.vbstreets.ru/viewtopic.php?t=12552&highlight=csocket

[KiloGraf]

Кстати, на вопрос темы, у меня лежит пример, отвечающий требованиям.

Пингует, и выдает IP по доменному имени. И соответственно в LAN'е - по имени компа. И очень маленький.

http://kilograf.siteburg.com/page.php?id=10