随机字符串生成器

随机字符串生成器是一款可以帮助用户生成随机字符串的小工具，用户可以将生成的字符串作为密码来使用！gzB红软基地

软件介绍

其实很多时候我们设置密码，总是喜欢以自己的生日或者身份证最为密码，其实现在只需要来这里选择随机字符串生成器，就能获得很多不一样的字符串，这样随机生成的密码，保密等级相当高！gzB红软基地

使用方法

　　1、下载解压并打开这款随机字符串生成工具； gzB红软基地
　　2、填写所生成字符串的长度； gzB红软基地
　　3、可勾选自定义字符池来自定义生成的字符串字符； gzB红软基地
　　4、点击“生成！”按钮即可。gzB红软基地

软件说明

Private Sub Check1_Click()gzB红软基地
If Form1.Check1.Value = 1 ThengzB红软基地
    Form1.Text2.Locked = FalsegzB红软基地
    Form1.Text2.BackColor = &H80000005gzB红软基地
End IfgzB红软基地
If Form1.Check1.Value = 0 ThengzB红软基地
    Form1.Text2.Locked = TruegzB红软基地
    Form1.Text2.BackColor = &HC0C0C0gzB红软基地
End IfgzB红软基地
End SubgzB红软基地
Private Sub Command1_Click()gzB红软基地
Dim zfc As StringgzB红软基地
zfc = \"123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\\{[7890QWERT}]:;\'<，we&*()_-+=|SDFGH>.?/ \"gzB红软基地
If Form1.Check1.Value = 1 ThengzB红软基地
        If Form1.Text2.Text = \"\" ThengzB红软基地
               abc = MsgBox(\"自定义字符池不能为空！\"， vbCritical， \"出错了\")gzB红软基地
               Exit SubgzB红软基地
        End IfgzB红软基地
        zfc = Form1.Text2.TextgzB红软基地
End IfgzB红软基地
cd = Form1.Text1.TextgzB红软基地
If cd = \"\" ThengzB红软基地
    abc = MsgBox(\"字符串长度不能为空！\"， vbCritical， \"出错了\")gzB红软基地
    Exit SubgzB红软基地
End IfgzB红软基地
abc = IsNumeric(cd)gzB红软基地
If abc = False ThengzB红软基地
    abc = MsgBox(\"字符串长度非法！（字符串长度只能填数字）\"， vbCritical， \"出错了\")gzB红软基地
    Exit SubgzB红软基地
End IfgzB红软基地
RandomizegzB红软基地
Dim jggzB红软基地
jg = \"\"gzB红软基地
Dim igzB红软基地
For i = 1 To cdgzB红软基地
jg = jg & Mid(zfc， 1 + Int(Len(zfc) * Rnd)， 1)gzB红软基地
Next igzB红软基地
Form1.Text3.Text = jggzB红软基地
End SubgzB红软基地
Private Sub Text1_KeyPress(KeyAscii As Integer)gzB红软基地
If KeyAscii = 13 Then Call Command1_ClickgzB红软基地
End SubgzB红软基地

软件截图

gzB红软基地