推荐您安装2345加速浏览器,保护上网安全,瞬间启动,极速浏览网页!一键安装关闭
您的位置:软件下载 > 系统工具 > 系统其它 > 随机字符串生成器
随机字符串生成器 V0.1 无病毒
[下载地址]
  • 软件大小:10KB
  • 更新日期:2011-07-04
  • 软件语言:简体中文
  • 软件授权:免费软件
  • 软件评论:1条
  • 官方网站:Home Page
  • 适用平台:Win2003/WinXP/Win7/
立即下载
您可能还需要
【基本介绍】
随机字符串生成器
用来生成随机字符串
可指定字符串长度和用来生成的字符
作密码的话强度应该非常强了
使用前要装VB6运行库
源码:
Private Sub Check1_Click()
If Form1.Check1.Value = 1 Then
Form1.Text2.Locked = False
Form1.Text2.BackColor = &H80000005
End If
If
【基本介绍】
随机字符串生成器
用来生成随机字符串
可指定字符串长度和用来生成的字符
作密码的话强度应该非常强了
使用前要装VB6运行库
源码:
Private Sub Check1_Click()
If Form1.Check1.Value = 1 Then
Form1.Text2.Locked = False
Form1.Text2.BackColor = &H80000005
End If
If Form1.Check1.Value = 0 Then
Form1.Text2.Locked = True
Form1.Text2.BackColor = &HC0C0C0
End If
End Sub

Private Sub Command1_Click()
Dim zfc As String
zfc = "123456YUvbnm`~!@#$IOPrtyuiopasdfghjklzxc%AVBNMqJK^LZXC\{[7890QWERT}]:;'<,we&*()_-+=|SDFGH>.?/ "
If Form1.Check1.Value = 1 Then
If Form1.Text2.Text = "" Then
abc = MsgBox("自定义字符池不能为空!", vbCritical, "出错了")
Exit Sub
End If
zfc = Form1.Text2.Text
End If
cd = Form1.Text1.Text
If cd = "" Then
abc = MsgBox("字符串长度不能为空!", vbCritical, "出错了")
Exit Sub
End If
abc = IsNumeric(cd)
If abc = False Then
abc = MsgBox("字符串长度非法!(字符串长度只能填数字)", vbCritical, "出错了")
Exit Sub
End If
Randomize
Dim jg
jg = ""
Dim i
For i = 1 To cd
jg = jg & Mid(zfc, 1 + Int(Len(zfc) * Rnd), 1)
Next i
Form1.Text3.Text = jg
End Sub




Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub


[展开全部↓]
软件截图
网友评论
多特网友 2011-07-05 回复
啊哈哈哈天天
多特网友 2011-07-05 回复
啊哈哈哈天天
相关说明
多特软件站欢迎用户将网页内容和下载地址转发到博客、微博、论坛等。
所有软件已经过工作人员安装检测,如不能正常运行,请检查运行环境和硬件配置,或在评论中反馈,工作人员会及时处理。
判断软件好坏,请用户参考用户评论或者软件好评度
编辑推荐软件
专业加速线:500+专线加速节点及充足的带宽资源,覆盖主杆线路中转节点,根据网吧与玩家所在地区,就近提供优质的线路资源将大部分网吧链接steam服务器的延迟降到50左右,解决网吧与玩家问题: 游戏角色获取失败/loading时间长,因游戏中丢包导致游戏卡顿、角色瞬移等问题。[详情]