随机字符串生成器

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

软件介绍

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

使用方法

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

软件说明

Private Sub Check1_Click()fpg红软基地
If Form1.Check1.Value = 1 Thenfpg红软基地
    Form1.Text2.Locked = Falsefpg红软基地
    Form1.Text2.BackColor = &H80000005fpg红软基地
End Iffpg红软基地
If Form1.Check1.Value = 0 Thenfpg红软基地
    Form1.Text2.Locked = Truefpg红软基地
    Form1.Text2.BackColor = &HC0C0C0fpg红软基地
End Iffpg红软基地
End Subfpg红软基地
Private Sub Command1_Click()fpg红软基地
Dim zfc As Stringfpg红软基地
zfc = \"123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\\{[7890QWERT}]:;\'<，we&*()_-+=|SDFGH>.?/ \"fpg红软基地
If Form1.Check1.Value = 1 Thenfpg红软基地
        If Form1.Text2.Text = \"\" Thenfpg红软基地
               abc = MsgBox(\"自定义字符池不能为空！\"， vbCritical， \"出错了\")fpg红软基地
               Exit Subfpg红软基地
        End Iffpg红软基地
        zfc = Form1.Text2.Textfpg红软基地
End Iffpg红软基地
cd = Form1.Text1.Textfpg红软基地
If cd = \"\" Thenfpg红软基地
    abc = MsgBox(\"字符串长度不能为空！\"， vbCritical， \"出错了\")fpg红软基地
    Exit Subfpg红软基地
End Iffpg红软基地
abc = IsNumeric(cd)fpg红软基地
If abc = False Thenfpg红软基地
    abc = MsgBox(\"字符串长度非法！（字符串长度只能填数字）\"， vbCritical， \"出错了\")fpg红软基地
    Exit Subfpg红软基地
End Iffpg红软基地
Randomizefpg红软基地
Dim jgfpg红软基地
jg = \"\"fpg红软基地
Dim ifpg红软基地
For i = 1 To cdfpg红软基地
jg = jg & Mid(zfc， 1 + Int(Len(zfc) * Rnd)， 1)fpg红软基地
Next ifpg红软基地
Form1.Text3.Text = jgfpg红软基地
End Subfpg红软基地
Private Sub Text1_KeyPress(KeyAscii As Integer)fpg红软基地
If KeyAscii = 13 Then Call Command1_Clickfpg红软基地
End Subfpg红软基地

软件截图

fpg红软基地