📄 frmmain.frm
字号:
Width = 3990
End
Begin VB.TextBox txt_jia_PassWord1
BackColor = &H00FFFFFF&
Height = 270
IMEMode = 3 'DISABLE
Left = 1530
PasswordChar = "*"
TabIndex = 5
ToolTipText = "请输入密码"
Top = 855
Width = 3990
End
Begin VB.TextBox txt_jia_FileName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
Locked = -1 'True
TabIndex = 1
Top = 255
Width = 3990
End
Begin VB.TextBox txt_jia_SaveName
BackColor = &H00FFFFFF&
Height = 270
Left = 1530
TabIndex = 3
Top = 555
Width = 3990
End
Begin VB.ListBox lst_jia_Name
BackColor = &H00FFFFFF&
Height = 1500
Left = 6300
TabIndex = 10
Top = 885
Width = 3720
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "选择文件列表 (鼠标右击列表可进行添加删除操作) (单击开始加密后列表总的文件将被全部加密)"
Height = 555
Left = 6330
TabIndex = 45
Top = 240
Width = 3660
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "再输入一次密码:"
Height = 225
Index = 3
Left = 135
TabIndex = 44
Top = 1170
Width = 1395
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "密 码:"
Height = 225
Index = 2
Left = 135
TabIndex = 43
Top = 885
Width = 1365
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "加密 储存 位置:"
Height = 225
Index = 1
Left = 135
TabIndex = 42
Top = 600
Width = 1380
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = "加 密 文 件 名:"
Height = 225
Index = 0
Left = 135
TabIndex = 41
Top = 315
Width = 1395
End
End
Begin MSComDlg.CommonDialog dlgSelectFile
Left = 9915
Top = -270
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
MaxFileSize = 32760
End
Begin VB.Image Image1
Height = 765
Left = -74400
Picture = "frmMain.frx":0628
Stretch = -1 'True
Top = 2685
Width = 810
End
Begin VB.Label Label21
Caption = "组员：陈友军、范乾龙、罗熙、游娜娜"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -73485
TabIndex = 109
Top = 4890
Width = 7545
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "组长：王滋华"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = -73485
TabIndex = 108
Top = 4485
Width = 2670
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "多功能批量文件加密器"
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 765
Left = -73560
TabIndex = 107
Top = 2730
Width = 7365
End
Begin VB.Label Label18
Caption = "第三小组作品"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = -71280
TabIndex = 106
Top = 1800
Width = 2055
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "2001届计算机系毕业设计"
BeginProperty Font
Name = "宋体"
Size = 36
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1215
Left = -74055
TabIndex = 105
Top = 930
Width = 8520
End
Begin VB.Shape Shape1
Height = 5160
Left = -74880
Top = 435
Width = 9990
End
End
Begin VB.Menu mnuPop
Caption = "Popmenu"
Visible = 0 'False
Begin VB.Menu mnuJoin
Caption = "添加(&J)"
End
Begin VB.Menu mnuDel
Caption = "删除(&D)"
End
Begin VB.Menu mnu1
Caption = "-"
End
Begin VB.Menu mnuKillAll
Caption = "清空(&K)"
End
Begin VB.Menu mnuRest
Caption = "刷新(&R)"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：frmMain
'**创 建 人：王滋华
'**日 期：2004年03月23日
'**修 改 人：
'**日 期：
'**描 述：
'**版 本：V1.0
'*************************************************************************
Option Explicit
'*************************************************************************
'** 通用声明、过程、函数
'*************************************************************************
Private Const PtJiami As Integer = 1 '普通文件加密
Private Const PtJiemi As Integer = 2 '普通文件解密
Private Const EXEJiami As Integer = 3 'EXE文件加密
Private Const EXEJiemi As Integer = 4 'EXE文件解密
Private Const RenNames As Integer = 5 '批量更名
Private Const CutFiles As Integer = 6 '批量文件分割
Private Type FileInfo '自定义类型,记录文件信息
SaveName As String '储存文件名
SoureName As String '源文件名
End Type
Private Type info '自定义类型,记录文件信息,数量以及当前访问指针
SelectListIndex As Long '当前数据访问指针
FileNum As Long '文件数量
data() As FileInfo '文件信息
End Type
Private Type CutInfo '储存分割文件的信息
SaveName As String '储存文件名
SoureName As String '源文件名
CutSize As Single
CutType As String
End Type
Private Type CutFileInfo '储存分割文件的信息
SelectListIndex As Long
FileNum As Long
data() As CutInfo
End Type
Dim RenName As info '要更名的文件信息
Dim AllInfo() As info '各种文件加密解密信息
Dim SelList As Integer '加密解密列表框选择情况
Dim WithEvents jm As clsRC4 '加密类
Attribute jm.VB_VarHelpID = -1
Dim CutFile As CutFileInfo '要分割的文件信息
Dim bjFile1 As String
Dim bjFile2 As String
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
'创建文件夹
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Private Sub FORM_Initialize()
InitCommonControls
End Sub
Private Sub Form_Load()
Call InitToolTipText '调用过程InitToolTipText初始化控件的ToolTipText
ReDim AllInfo(0) '初始化数组AllInfo()
With cbo_fg_Size
.AddItem "360KB"
.AddItem "720KB"
.AddItem "1.2MB"
.AddItem "1.44MB"
.AddItem "2MB"
.AddItem "4MB"
.AddItem "8MB"
.AddItem "16MB"
.AddItem "32MB"
.AddItem "64MB"
.AddItem "128MB"
.AddItem "256MB"
.AddItem "512MB"
.AddItem "650MB"
.AddItem "680MB"
.AddItem "700MB"
.AddItem "自定义..."
.ListIndex = 3
End With
With cbo_fg_CutType
.AddItem "KB(千字节)"
.AddItem "MB(兆字节)"
.AddItem "份 "
.ListIndex = 1
.Enabled = False
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
bj_byte.Endme
End
End Sub
Private Sub jm_Progress(Percent As Long, State As String) '加密解密进度
frmState.lbMessage = State '加密解密状态信息
frmState.PrgFile.value = Percent '加密解密进度百分数
DoEvents '转移系统控制权
End Sub
Private Sub mnuDel_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -