用VB产生随机密码

• 
  　　用VB产生随机密码  
  
  VERSION 5.00
  Begin VB.Form frmMain
  Caption = "ProdUCe random num"
  ClientHeight = 3195
  ClientLeft = 60
  ClientTop = 345
  ClientWidth = 4680
  LinkTopic = "Form1"
  LockControls = -1 注释：True
  ScaleHeight = 3195
  ScaleWidth = 4680
  StartUpPosition = 3 注释：系統預設值
  Begin VB.TextBox txtDigit
  Height = 285
  Left = 810
  MaxLength = 2
  TabIndex = 2
  Text = "5"
  Top = 2460
  Width = 465
  End
  Begin VB.ListBox lstPassWord
  Height = 1860
  Left = 60
  TabIndex = 1
  Top = 210
  Width = 4455
  End
  Begin VB.CommandButton cmdOK
  Caption = "GetRandPassword"
  Height = 375
  Left = 2610
  TabIndex = 0
  Top = 2400
  Width = 1575
  End
  Begin VB.Label Label1
  Alignment = 2 注释：置中對齊
  Caption = "Double Click to copy the selected item to clipboard."
  Height = 195
  Left = 0
  TabIndex = 4
  Top = 2970
  Width = 4695
  End
  Begin VB.Label lbDigit
  Caption = "digits:"
  Height = 255
  Left = 210
  TabIndex = 3
  Top = 2460
  Width = 525
  End
  End
  Attribute VB_Name = "frmMain"
  Attribute VB_GlobalNameSpace = False
  Attribute VB_Creatable = False
  Attribute VB_PredeclaredId = True
  Attribute VB_EXPosed = False
  Option Explicit
  Private Sub cmdOK_Click()
  Dim strArray() As String, str As String, strPWD As String
  Dim i As Integer, iDigit As Integer, ilen As Integer
  
  str = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  str = str & LCase(str) & "0123456789-=[];注释：,./"
  str = str & ")!@#$%^&*(_+{}:""<>?"
  
  ilen = Len(str)
  iDigit = txtDigit.Text
  strPWD = ""
  For i = 0 To iDigit - 1
  Randomize
  strPWD = strPWD & Mid(str, Int(ilen * Rnd() + 1), 1)
  Next
  lstPassWord.AddItem strPWD
  End Sub
  
  Private Sub Form_Load()
  lstPassWord.FontSize = 11
  lstPassWord.ForeColor = RGB(255, 0, 0)
  End Sub
  
  Private Sub lstPassWord_DblClick()
  Clipboard.SetText lstPassWord.Text
  End Sub
  
• [1] [2] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB产生随机密码 相关文章：
• ·用VB产生随机密码
• 用VB产生随机密码 相关软件

上一篇:用VB创建FTP组件(put)

下一篇:用VB编写一个弹出菜单类

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐