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


嗯,网上注册个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

 

点击数: 1198    打印  添加到收藏   发布时间: 2016-10-27




上一篇:wintoUSB实现独立操作系统随你走!
下一篇:设置VB.NET 窗体的全局热键





» 相关内容
  字符型数组与字符串互相转换.n..
  Sendkeys你用对了吗,不再那么..
  VS2008集成Python新建工程模板..
  .Net调试线程方法-包括调用第..
  程序调用其他dll或com组件的参..
  mornsun隔离型DCDC输入输出共..
  .Net强制退出当前程序并彻底清..
  Matlab绘制表面平滑的3D图形-..
  激光致眩武器介绍
  CD4046锁相环的说明
  USB供电对音频设备可能的电流..
  碳化硅光源的电阻随温度变化研..
  引力波探测技术要点
  秋风起时
  谐波失真及评价方法