|
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 |
闂傚倸鍊峰ù鍥Υ閳ь剟鏌涚€ｎ偅宕岄柡宀€鍠栭、娑樷堪閸愮偓姣夋俊鐐€戦崕鏌ュ垂閸ф钃熼柣鏃囥€€閸嬫挸鈽夊▍顓т簼閹便劑宕惰閺€鑺ャ亜閺囩偞顥為悗姘炬嫹闂傚倸鍊风粈渚€骞栭銈嗗仏妞ゆ劧绠戠壕鍧楁煕閹邦垼鍤嬮柤鏉挎健閺屾稑鈽夊▎鎰▏缂傚倷璁查弲鐘诲蓟閻旂⒈鏁嶆繝濠傚枤閺嗩厼顪冮妶鍐ㄥ姷闁瑰嚖鎷�>>
正在阅读：VB学习:MX记录获取组件VB学习:MX记录获取组件
2004-03-10 09:52
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
