源码是老外的，俺做了点修改，写成了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

进入讨论组讨论。

Private DNSrecieved As Boolean
Private dnsReply() As Byte

Private Declare Function GetNetworkParams Lib "IPHlpApi" (FixedInfo As Any, pOutBufLen As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Declare Sub MemCopy Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb&)
Private Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long) As Integer
Private Declare Function ntohs Lib "wsock32.dll" (ByVal netshort As Long) As Integer

[1] [2] [3] [4] [5] [6] [7] 下一页

上一篇:VB基础:认识VB的文件系统对象FSO

下一篇:VB经典:操作.ini文件的通用类源代码

VB学习:MX记录获取组件相关文章：

·教你学习如何破解XP登陆密码

·离线查看QQ聊天记录有新招

·AIX 5L 学习大纲/简易教程（2）（未经许可，请勿COPY）

·学习SQL语句之SQL语句大全

·清除google搜索栏中的历史记录

·不用QQ密码查看聊天记录

·XPCOM--LINUX下的组件开发技术

·网上英语学习资源大整理

·在线设计：轻松获取个性篆刻印章

·Linux学习手册

VB学习:MX记录获取组件相关软件：

·洪恩轻松教你学电脑_internet学习

·查看QQ聊天记录V3.0 Build 20071108

·解放战争全记录

·鸟哥的linux私房菜：基础学习篇

·新东方演讲录俞敏洪老师学习英语与人生奋斗

·QQ聊天记录查看器绿色特别版 V5.3

·zemax教学视频和学习笔记

·双向式英语学习法mp3+文档

·学习Flash 8中的ActionScript 2.0

·全能鼠标键盘记录器 V2.81

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.viphot.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.viphot.com All Rights Reserved.	鄂ICP备05000083号Powered by:viphot