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


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

 

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




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





» 相关内容
  手机
  情深不寿,慧极必伤
  BGA封装及焊接方法
  划痕的几种修复方法
  忘却的纪念
  GPRS和NB-IOT的特点及选用原则
  金菊茶的功效
  数据传输中FIFO或缓冲存在的意..
  关于静电防护的一些解释
  串口通讯影响鼠标指针乱蹿的终..
  GC气相色谱原理简介-物理分离..
  使用STM32提供的DSP库函数进行..
  设置VB.NET 窗体的全局热键
  产生随机注册名称和信息的方法
  wintoUSB实现独立操作系统随你..