检查邮件服务器是否有效

转载 2006年05月22日 21:25:00
检查邮件服务器是否有效
    Private Function GetMailServer(ByVal sDomain As String) As String
        Dim info As New ProcessStartInfo
        Dim ns As Process
        '调用Windows的nslookup命令,查找邮件服务器
        info.UseShellExecute = False
        info.RedirectStandardInput = True
        info.RedirectStandardOutput = True
        info.FileName = "nslookup"
        info.CreateNoWindow = True
        '查找类型为MX。关于nslookup的详细说明,请参见
        'Windows帮助
        info.Arguments = "-type=MX " + sDomain.ToUpper.Trim
        '启动一个进行执行Windows的nslookup命令()
        ns = Process.Start(info)
        Dim sout As StreamReader
        sout = ns.StandardOutput
        ' 利用正则表达式找出nslookup命令输出结果中的邮件服务器信息
        Dim reg As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex("mail exchanger = (?<server>[^///s]+)")
        Dim mailserver As String
        Dim response As String = ""
        Do While (sout.Peek() > -1)
            response = sout.ReadLine()
            Dim amatch As System.Text.RegularExpressions.Match = reg.Match(response)
            If (amatch.Success) Then
                mailserver = amatch.Groups("server").Value
                Exit Do
            End If
        Loop
        Return mailserver
    End Function

相关文章推荐

使用hmailserver搭建邮件服务器

安装 使用outlook访问 配置TLS AND SSL 支持 使用java收发邮件 支持IPV6 查看数据文件位置 常见错误 附录 本文参考地址: 官方帮助文档 软件下载 各个邮件服务器软件比...
  • scugxl
  • scugxl
  • 2015-09-02 00:19
  • 7246

cmailserver邮件服务器

  • 2015-05-26 12:24
  • 1.67MB
  • 下载

Linux搭建apache james邮件服务器

首先说明下环境,我用的是腾讯云的服务器(Centos 7)系统安装的apache james,安装过程中也遇到贼多问题,现在自己写一篇博客纪念一下。 ps:写在最前面,感觉http://www.c...

Ubuntu 14.04 邮件服务器配置

Ubuntu 14.04 Postfix+什么是Postfix?Postfix是一种邮件传输代理(Mail Transfer Agent ,MTA),它的主要工作是将电子邮件从一台主机发送到另一台主机...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)