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


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

 

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




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





» 相关内容
  关于静电防护的一些解释
  串口通讯影响鼠标指针乱蹿的终..
  GC气相色谱原理简介-物理分离..
  使用STM32提供的DSP库函数进行..
  设置VB.NET 窗体的全局热键
  产生随机注册名称和信息的方法
  wintoUSB实现独立操作系统随你..
  提升FPGA扇出能力方法及扇出效..
  原子力显微镜的那些事儿
  FPGA中nCEO引脚的重新分配
  PIC18F4550实现鼠标操作代码
  .Net下PostMessage发送字符串..
  字符型数组与字符串互相转换.n..
  Sendkeys你用对了吗,不再那么..
  VS2008集成Python新建工程模板..