随机字符串生成器

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

软件介绍

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

使用方法

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

软件说明

Private Sub Check1_Click()snL红软基地
If Form1.Check1.Value = 1 ThensnL红软基地
    Form1.Text2.Locked = FalsesnL红软基地
    Form1.Text2.BackColor = &H80000005snL红软基地
End IfsnL红软基地
If Form1.Check1.Value = 0 ThensnL红软基地
    Form1.Text2.Locked = TruesnL红软基地
    Form1.Text2.BackColor = &HC0C0C0snL红软基地
End IfsnL红软基地
End SubsnL红软基地
Private Sub Command1_Click()snL红软基地
Dim zfc As StringsnL红软基地
zfc = \"123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\\{[7890QWERT}]:;\'<，we&*()_-+=|SDFGH>.?/ \"snL红软基地
If Form1.Check1.Value = 1 ThensnL红软基地
        If Form1.Text2.Text = \"\" ThensnL红软基地
               abc = MsgBox(\"自定义字符池不能为空！\"， vbCritical， \"出错了\")snL红软基地
               Exit SubsnL红软基地
        End IfsnL红软基地
        zfc = Form1.Text2.TextsnL红软基地
End IfsnL红软基地
cd = Form1.Text1.TextsnL红软基地
If cd = \"\" ThensnL红软基地
    abc = MsgBox(\"字符串长度不能为空！\"， vbCritical， \"出错了\")snL红软基地
    Exit SubsnL红软基地
End IfsnL红软基地
abc = IsNumeric(cd)snL红软基地
If abc = False ThensnL红软基地
    abc = MsgBox(\"字符串长度非法！（字符串长度只能填数字）\"， vbCritical， \"出错了\")snL红软基地
    Exit SubsnL红软基地
End IfsnL红软基地
RandomizesnL红软基地
Dim jgsnL红软基地
jg = \"\"snL红软基地
Dim isnL红软基地
For i = 1 To cdsnL红软基地
jg = jg & Mid(zfc， 1 + Int(Len(zfc) * Rnd)， 1)snL红软基地
Next isnL红软基地
Form1.Text3.Text = jgsnL红软基地
End SubsnL红软基地
Private Sub Text1_KeyPress(KeyAscii As Integer)snL红软基地
If KeyAscii = 13 Then Call Command1_ClicksnL红软基地
End SubsnL红软基地

软件截图

snL红软基地