VB6查找主机在IP，指定DNS服务器

Question

我知道如何从IPv4网络使用GetHostByAddr的Windows API调用（this的伟大工程）查找主机名在VB。但是，该功能不允许指定要使用的DNS服务器。有时默认的公司DNS服务器是好的，但有时候我需要指定一个外部的DNS服务器来查找，我不认为在这里，做一个shell nslookup和解析输出是最好的方法。

注：这实际上是将要使用的VBA代码在Excel工作簿，以帮助别人做他的工作，而当一些简单的功能，他就满足它不值得写一个大的应用程序。

我想法我可能在API调用getnameinfo中找到答案，但仔细阅读似乎表明它不提供servername参数。

经过一番激烈的搜索，我发现reference to the pExtra parameter to the DNSQuery function。但我甚至不知道如何开始在VB6中使用它。

谁能帮我在从VB6做DNS查找，指定要使用的服务器名什么办法？当然

一个完整的可行的解决方案将是不错，但我愿意努力工作：只是点我朝着正确的方向发展。

更新：对于一些奇怪的原因，它并没有点击DNSQuery是Windows API调用。它听起来不像一个。如果我收集了一个细节，我当然可以在这个问题上取得更大的进展。

Answer 1

试试这个：

Option Explicit 

Private Declare Function DnsQuery Lib "dnsapi" Alias "DnsQuery_A" (ByVal strname As String, ByVal wType As Integer, ByVal fOptions As Long, ByVal pServers As Long, ppQueryResultsSet As Long, ByVal pReserved As Long) As Long 
Private Declare Function DnsRecordListFree Lib "dnsapi" (ByVal pDnsRecord As Long, ByVal FreeType As Long) As Long 
Private Declare Function lstrlen Lib "kernel32" (ByVal straddress As Long) As Long 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, ByVal Source As Long, ByVal Length As Long) 
Private Declare Function inet_ntoa Lib "ws2_32.dll" (ByVal pIP As Long) As Long 
Private Declare Function inet_addr Lib "ws2_32.dll" (ByVal sAddr As String) As Long 

Private Const DnsFreeRecordList   As Long = 1 
Private Const DNS_TYPE_A    As Long = &H1 
Private Const DNS_QUERY_BYPASS_CACHE As Long = &H8 

Private Type VBDnsRecord 
    pNext   As Long 
    pName   As Long 
    wType   As Integer 
    wDataLength  As Integer 
    flags   As Long 
    dwTel   As Long 
    dwReserved  As Long 
    prt    As Long 
    others(35)  As Byte 
End Type 

Private Sub Command1_Click() 
    MsgBox Resolve("google.com", "208.67.222.222") 
End Sub 

Private Function Resolve(sAddr As String, Optional sDnsServers As String) As String 
    Dim pRecord  As Long 
    Dim pNext  As Long 
    Dim uRecord  As VBDnsRecord 
    Dim lPtr  As Long 
    Dim vSplit  As Variant 
    Dim laServers() As Long 
    Dim pServers As Long 
    Dim sName  As String 

    If LenB(sDnsServers) <> 0 Then 
     vSplit = Split(sDnsServers) 
     ReDim laServers(0 To UBound(vSplit) + 1) 
     laServers(0) = UBound(laServers) 
     For lPtr = 0 To UBound(vSplit) 
      laServers(lPtr + 1) = inet_addr(vSplit(lPtr)) 
     Next 
     pServers = VarPtr(laServers(0)) 
    End If 
    If DnsQuery(sAddr, DNS_TYPE_A, DNS_QUERY_BYPASS_CACHE, pServers, pRecord, 0) = 0 Then 
     pNext = pRecord 
     Do While pNext <> 0 
      Call CopyMemory(uRecord, pNext, Len(uRecord)) 
      If uRecord.wType = DNS_TYPE_A Then 
       lPtr = inet_ntoa(uRecord.prt) 
       sName = String(lstrlen(lPtr), 0) 
       Call CopyMemory(ByVal sName, lPtr, Len(sName)) 
       If LenB(Resolve) <> 0 Then 
        Resolve = Resolve & " " 
       End If 
       Resolve = Resolve & sName 
      End If 
      pNext = uRecord.pNext 
     Loop 
     Call DnsRecordListFree(pRecord, DnsFreeRecordList) 
    End If 
End Function 

Answer 2

您可以使用DNS WMI提供程序来设置系统的DNS然后使用GetHostByAddr