VB学习:MX记录获取组件

1 2 3 4 5 6 7 8 9 下一页

源码是老外的，俺做了点修改，写成了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超频快餐，让我一次用个够！（一）
下一篇： VB超频快餐，让我一次用个够！（二）

1 2 3 4 5 6 7 8 9 下一页

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有