产生随机注册名称和信息的方法

嗯，网上注册个ID，现在都费劲的要死，老是重名的，基本你能想到的，各种宝宝们早已经占用了，不过来个随机的名称，估计不太容易被占用。废话少说，看代码叻。喜欢直接拿去！

Public Sub Gen_Rand_Info()  '产生随机用户名和密码邮箱等

        Dim pwd_src As String = "0123456789ABCDEFGHIJKLMNOPQRSTabcdefghijklmn_-!"

        Dim usr_src As String = "abcdefghijklmnopqrstuvwxyz_"

        Dim mail_domain() As String = {"163.com", "sina.com", "yahoo.cn", "126.com", "foxmail.com", "sohu.com"}

        Dim user_name As String = ""

        Dim user_pwd As String = ""

        Dim user_email As String = ""

        Dim rand = New System.Random()

        For i = 0 To 6

            user_name &= Mid(usr_src, (rand.Next(Len(usr_src))) + 1, 1)

        Next

        For i = 0 To 7

            user_pwd &= Mid(pwd_src, rand.Next(Len(pwd_src)) + 1, 1)

        Next

        For i = 0 To 8

            user_email &= Mid(usr_src, rand.Next(Len(usr_src)) + 1, 1)

        Next


        user_email = user_email & "@" & mail_domain(rand.Next(5))

        cur_reg_user = ""

        cur_reg_mail = ""

        cur_reg_pwd = ""

        cur_reg_user = user_name  '将随机的种子 变量 赋给全局变量！

        cur_reg_mail = user_email  '将随机的种子 变量 赋给全局变量！

        cur_reg_pwd = user_pwd    '将随机的种子 变量 赋给全局变量！

      End Sub