|
源码是老外的，俺做了点修改，写成了dll 方法： Public Function GetDNSinfo() As String 获取dns信息 Public Function MX_Query(DNS_Addr As String, ByVal Domain_Addr As String) As String 获取mx最佳记录， dns_addr,域名解析服务器，可以用getdnsinfo获取，也可以用nslookup命令 domain_addr，想要获取邮件服务器的域名，如163.com ,hotmail.com http://www.aspcdrom.com/down/mxquery.rar VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "mxquery" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Option Explicit Private WithEvents objWinSock As MSWinsockLib.Winsock Attribute objWinSock.VB_VarHelpID = -1 Private Const ERROR_BUFFER_OVERFLOW = 111 |
闂傚倸鍊峰ù鍥Υ閳ь剟鏌涚€ｎ偅宕岄柡宀€鍠栭、娑樷堪閸愮偓姣夋俊鐐€戦崕鏌ュ垂閸ф钃熼柣鏃囥€€閸嬫挸鈽夊▍顓т簼閹便劑宕惰閺€鑺ャ亜閺囩偞顥為悗姘炬嫹闂傚倸鍊风粈渚€骞栭銈嗗仏妞ゆ劧绠戠壕鍧楁煕閹邦垼鍤嬮柤鏉挎健閺屾稑鈽夊▎鎰▏缂傚倷璁查弲鐘诲蓟閻旂⒈鏁嶆繝濠傚枤閺嗩厼顪冮妶鍐ㄥ姷闁瑰嚖鎷�>>
正在阅读：VB学习:MX记录获取组件VB学习:MX记录获取组件
2004-03-10 09:52
出处：CSDN
责任编辑：linjixiong
键盘也能翻页，试试“← →”键
