📄 frmmain.frm
字号:
Caption = "#1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 14737632
End
End
Begin VB.PictureBox PicA
AutoRedraw = -1 'True
BackColor = &H8000000D&
BorderStyle = 0 'None
Height = 285
Index = 1
Left = 45
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 149
TabIndex = 15
Top = 1230
Width = 2235
Begin VB.Label lblChrOut
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "选项设置"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 1
Left = 60
TabIndex = 16
Top = 30
Width = 720
End
End
Begin VB.PictureBox PicA
AutoRedraw = -1 'True
BackColor = &H8000000D&
BorderStyle = 0 'None
Height = 285
Index = 0
Left = 45
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 149
TabIndex = 13
Top = 4200
Width = 2235
Begin VB.Label lblChrOut
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "字符"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 195
Index = 0
Left = 75
TabIndex = 14
Top = 30
Width = 360
End
End
Begin VB.ListBox lstPasswords
Height = 4725
IntegralHeight = 0 'False
ItemData = "frmmain.frx":2D28
Left = 2760
List = "frmmain.frx":2D2A
MultiSelect = 2 'Extended
TabIndex = 12
Top = 1530
Width = 4920
End
Begin dmSpinFx.SpinFx SpinFx1
Height = 315
Left = 135
TabIndex = 9
Top = 1920
Width = 1335
_ExtentX = 2355
_ExtentY = 556
Max = 2000
Value = 10
Text = "10"
End
Begin VB.PictureBox PicDc
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 405
Left = 7725
Picture = "frmmain.frx":2D2C
ScaleHeight = 27
ScaleMode = 3 'Pixel
ScaleWidth = 9
TabIndex = 2
Top = 3915
Visible = 0 'False
Width = 135
End
Begin VB.PictureBox Picbar
AutoRedraw = -1 'True
BackColor = &H8000000D&
BorderStyle = 0 'None
Height = 405
Left = 0
ScaleHeight = 27
ScaleMode = 3 'Pixel
ScaleWidth = 524
TabIndex = 1
Top = 615
Width = 7860
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "|"
Height = 195
Left = 1110
TabIndex = 47
Top = 90
Width = 30
End
Begin VB.Label lblButton
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "退出"
ForeColor = &H00FFFFFF&
Height = 180
Index = 2
Left = 1230
MousePointer = 99 'Custom
TabIndex = 46
Top = 90
Width = 360
End
Begin VB.Label lblSpacer
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "|"
Height = 195
Left = 480
TabIndex = 7
Top = 90
Width = 30
End
Begin VB.Label lblButton
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "关于"
ForeColor = &H00FFFFFF&
Height = 180
Index = 1
Left = 615
MousePointer = 99 'Custom
TabIndex = 6
Top = 90
Width = 360
End
Begin VB.Label lblButton
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帮助"
ForeColor = &H00FFFFFF&
Height = 180
Index = 0
Left = 75
MouseIcon = "frmmain.frx":2E1F
MousePointer = 99 'Custom
TabIndex = 5
Top = 90
Width = 360
End
End
Begin VB.PictureBox PicTop
Align = 1 'Align Top
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 600
Left = 0
ScaleHeight = 600
ScaleWidth = 7860
TabIndex = 0
Top = 0
Width = 7860
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "完全免费软件"
ForeColor = &H00FF0000&
Height = 180
Left = 6555
TabIndex = 4
Top = 135
Width = 1080
End
Begin VB.Label lblver
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version 1.0"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 4800
TabIndex = 3
Top = 240
Width = 1050
End
Begin VB.Image imgLogo
Height = 510
Left = 60
Picture = "frmmain.frx":2F71
Top = 60
Width = 4665
End
End
Begin dmSpinFx.SpinFx SpinFx2
Height = 315
Left = 135
TabIndex = 11
Top = 2595
Width = 1335
_ExtentX = 2355
_ExtentY = 556
Max = 500
Value = 10
Text = "10"
End
Begin VB.Label lblSort
AutoSize = -1 'True
Caption = "排序"
Height = 180
Left = 135
TabIndex = 28
Top = 3330
Width = 360
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
Height = 2595
Index = 2
Left = 60
Top = 1530
Width = 2580
End
Begin VB.Shape Shape1
BorderColor = &H00FFFFFF&
Height = 2205
Index = 1
Left = 60
Top = 4500
Width = 2580
End
Begin VB.Shape Shape1
BorderColor = &H00808080&
Height = 2205
Index = 0
Left = 45
Top = 4485
Width = 2580
End
Begin VB.Label lblPassLenLst
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码位数:"
Height = 180
Left = 135
TabIndex = 10
Top = 2355
Width = 810
End
Begin VB.Label lblPassLen
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码长度:"
Height = 180
Left = 135
TabIndex = 8
Top = 1680
Width = 810
End
Begin VB.Line ln1
BorderColor = &H00C00000&
X1 = -30
X2 = 735
Y1 = 600
Y2 = 600
End
Begin VB.Shape Shape1
BorderColor = &H00808080&
Height = 2595
Index = 3
Left = 45
Top = 1515
Width = 2580
End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private cboTmp As String, cboIndex As Integer, TmpOld As String
Private Sort As Boolean, OptGenOption As Integer, bLoaded As Boolean
Sub GeneratePassword()
Dim X As Long, sLine As String, pLen As Integer
lstPasswords.Clear
pLen = Val(SpinFx1.Text)
If pLen < 4 Then
MsgBox "密码长度不能小于4位.", vbInformation, frmmain.Caption
Exit Sub
End If
For X = 0 To Val(SpinFx2.Text) - 1
top:
Select Case OptGenOption
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -