随机字符串生成器V0.1

【基本介绍】随机字符串生成器用来生成随机字符串可指定字符串长度和用来生成的字符作密码的话强度应该非常强了使用前要装VB6运行库源码：Private Sub Check1_Click()If Form1.Check1.Value = 1 Then Form1.Text2.Locked = False Form1.Text2.BackColor = &H80000005End IfIf Form1.Check1.Value = 0 Then Form1.Text2.Locked = True Form1.Text2.BackColor = &HC0C0C0End IfEnd SubPrivate Sub Command1_Click()Dim zfc As Stringzfc = "123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\{[7890QWERT}]:;'.?/ "If Form1.Check1.Value = 1 Then If Form1.Text2.Text = "" Then abc = MsgBox("自定义字符池不能为空！", vbCritical, "出错了") Exit Sub End If zfc = Form1.Text2.TextEnd Ifcd = Form1.Text1.TextIf cd = "" Then abc = MsgBox("字符串长度不能为空！", vbCritical, "出错了") Exit SubEnd Ifabc = IsNumeric(cd)If abc = False Then abc = MsgBox("字符串长度非法！（字符串长度只能填数字）", vbCritical, "出错了") Exit SubEnd IfRandomizeDim jgjg = ""Dim iFor i = 1 To cdjg = jg & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)Next i Form1.Text3.Text = jgEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call Command1_ClickEnd Sub