正在阅读：VB学习:MX记录获取组件VB学习:MX记录获取组件

2004-03-10 09:52 出处：CSDN 作者：glling 责任编辑：linjixiong

Dim Buffer As IP_ADDR_STRING
Dim FixedInfoBuffer() As Byte

FixedInfoSize = 0
error = GetNetworkParams(ByVal 0&, FixedInfoSize)
If error <> 0 Then
If error <> ERROR_BUFFER_OVERFLOW Then
MsgBox "GetNetworkParams sizing failed with error: " & error
Exit Function
End If
End If
ReDim FixedInfoBuffer(FixedInfoSize - 1)

error = GetNetworkParams(FixedInfoBuffer(0), FixedInfoSize)
If error = 0 Then
CopyMemory FixedInfo, FixedInfoBuffer(0), Len(FixedInfo)
strDNS = FixedInfo.DnsServerList.IpAddress
strDNS = Replace(strDNS, vbCr, "")
strDNS = Replace(strDNS, vbLf, "")
strDNS = Replace(strDNS, vbNullChar, "")
strDNS = Trim(strDNS)
GetDNSinfo = strDNS
End If

End Function

Private Sub Class_Initialize()
Set objWinSock = New MSWinsockLib.Winsock
objWinSock.Protocol = sckUDPProtocol
objWinSock.RemotePort = 53
End Sub

Private Sub Class_Terminate()
Set objWinSock = Nothing '
End Sub

''''''''''''''''''''
''class
''''''''''''''''''''
Private Sub objWinSock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Debug.Print Description
End Sub

Private Sub objWinSock_DataArrival(ByVal bytesTotal As Long)
DNSrecieved = True
ReDim dnsReply(bytesTotal) As Byte

察看评论详细内容我要发表评论