关闭

检查邮件服务器是否有效

559人阅读 评论(0) 收藏 举报
检查邮件服务器是否有效
    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
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4931次
    • 积分:65
    • 等级:
    • 排名:千里之外
    • 原创:1篇
    • 转载:4篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档