08
2014
09

按键精灵随机字母和数字 随机用户名或密码生成集合

按键精灵随机字母加数字组合:

1:

Dim i,位置,字符串,字母

字母 = "0123456789abcdefghijklmnopqrstuvwxyz"

字符串=""

    For i=0 To 9 - 1 //位数是你想要字符串的的长度

        Randomize

        位置 = Int((Len(字母) * Rnd) + 1)

        字符串 = 字符串 & Mid(字母,位置,1)

    Next

2:

'随机用户名生成器


字母 = "abcdefghijklmnopqrstuvwxyz"


数字 = "0123456789"


位数 = 8 //位数是你想要用户名的长度,按需要填写


Do Until 随机用户名编号 >= 10   //随机10个用户名


  字符串 = ""

  

 位置 = Int((Len(字母) * Rnd) + 1)

        

 首字母 = 字符串 & Mid(字母, 位置, 1)  //某些系统,用户名首位不能为数字

 

 可用字符 = 字母 & 数字

  

    For i=1 To 位数 - 1 //位数是你想要用户名的长度,第7行已经赋值

    

        Randomize

                

        位置 = Int((Len(可用字符) * Rnd) + 1)

                

        字符串 = 字符串 & Mid(可用字符, 位置, 1)

                

    Next

    

    随机用户名 = 首字母 & 字符串

    

        随机用户名编号 = 随机用户名编号 + 1


TracePrint "随机用户名" & 随机用户名编号 & ":" & 随机用户名


Loop


3:

y=""
//清空随机种子数
For 8
    Randomize
    //得到 0~35 之间的一个随机数
    x = Int(36 * Rnd)
    // 大于或等于10则转换为小写字母
    If x>9
        x=chr(x+87)
    EndIf 
    y=y&x
EndFor 
SayString y



按键精灵随机数字:


Rem start
VBS Randomize
//得到 1~99999999 之间的一个随机数
VBS x = Int((99999999 * Rnd) + 1)
//判断这个数字是否8位数字,如果不是8位数字,就重新生成
If x<10000000
    Goto start
EndIf 
SayExpression x


(按顺序0000  0001  0002  0003  一直延续下去,可修改


用户名位数 = 4     //几位的自己填


For i = 1 To 100   //100个用户名,多少自己修改

        

用户名序号 = 用户名序号 + 1


num = Len(用户名序号)


零位 = 用户名位数 - num


用户名a = String(零位, "0")


用户名 = CStr(用户名a) + CStr(用户名序号)


TracePrint "用户名:" & 用户名


Next


按键精灵随机字母:

1:

Randomize For 8    

VBS m = Int((99 * Rnd) + 1)    

If m>0 and m<11 KeyPress "S", 1    

EndIf 

 If m>10 and m<21 KeyPress "D", 1    

End If    

If m>20 and m<31 KeyPress "J", 1    

End If    

If m>30 and m<41 KeyPress "Q", 1    

End If    

If m>40 and m<51 KeyPress "O", 1    

End If    

If m>50 and m<61 KeyPress "T", 1    

End If    

If m>60 and m<71 KeyPress "A", 1    

End If    

If m>70 and m<81 KeyPress "M", 1    

End If    

If m>80 and m<91 KeyPress "E", 1    

End If    

If m>90 and m<101 KeyPress "U", 1    

End If


2:

VBS x=""
For 8
    randomize
    x=x & chr(int(RND*26+97))
EndFor 
SayString x


按键精灵随机汉字:

Rem A
Randomize
a=-1*(2050+int(Rnd*18367))
If chr(a)="?" or chr(a)=""
    Goto A
EndIf 
SayString chr(a)

« 上一篇 下一篇 »