产生随机注册名称和信息的方法
嗯,网上注册个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