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

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

objWinSock.GetData dnsReply, vbArray + vbByte
End Sub

Public Function MX_Query(DNS_Addr As String, ByVal Domain_Addr As String) As String
Dim IpAddr As Long
Dim iRC As Integer
Dim dnsHead As DNS_HEADER
Dim iSock As Integer

' Set the DNS parameters
dnsHead.qryID = htons(&H11DF)
dnsHead.options = DNS_RECURSION
dnsHead.qdcount = htons(1)
dnsHead.ancount = 0
dnsHead.nscount = 0
dnsHead.arcount = 0

' Query Variables
Dim dnsQuery() As Byte
Dim sQName As String
Dim dnsQueryNdx As Integer
Dim iTemp As Integer
Dim iNdx As Integer
dnsQueryNdx = 0
ReDim dnsQuery(4000)

' Setup the dns structure to send the query in

' First goes the DNS header information
MemCopy dnsQuery(dnsQueryNdx), dnsHead, 12
dnsQueryNdx = dnsQueryNdx + 12

' Then the domain name (as a QNAME)
sQName = MakeQName(Domain_Addr)
iNdx = 0
While (iNdx < Len(sQName))
dnsQuery(dnsQueryNdx + iNdx) = Asc(Mid(sQName, iNdx + 1, 1))
iNdx = iNdx + 1
Wend

dnsQueryNdx = dnsQueryNdx + Len(sQName)

' Null terminate the string
dnsQuery(dnsQueryNdx) = &H0
dnsQueryNdx = dnsQueryNdx + 1

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