|
源码是老外的，俺做了点修改，写成了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
键盘也能翻页，试试“← →”键
