用记事本打开frmLogin.frm文件，copy以下内容到其中：
VERSION 5.00
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "登录"
ClientHeight = 1545
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 3750
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 912.837
ScaleMode = 0 'User
ScaleWidth = 3521.047
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtUserName
Height = 345
Left = 1290
TabIndex = 1
Text = "123"
Top = 135
Width = 2325
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
Height = 390
Left = 495
TabIndex = 4
Top = 1020
Width = 1140
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 390
Left = 2100
TabIndex = 5
Top = 1020
Width = 1140
End
Begin VB.TextBox txtPassword
Height = 345
IMEMode = 3 'DISABLE
Left = 1290
PasswordChar = "*"
TabIndex = 3
Text = "123"
Top = 525
Width = 2325
End
Begin VB.Label lblLabels
Caption = "用户名称(&U):"
Height = 270
Index = 0
Left = 105
TabIndex = 0
Top = 150
Width = 1080
End
Begin VB.Label lblLabels
Caption = "密码(&P):"
Height = 270
Index = 1
Left = 105
TabIndex = 2
Top = 540
Width = 1080
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click()
'检查正确的密码
If UCase(txtPassword) = "123" And UCase(txtUserName) = "123" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Unload Me
frmAddInfo.Show 1, frmMain
Else
MsgBox "无效的用户或密码密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
用记事本打开frmAddInfo.frm文件，copy以下内容到其中：
VERSION 5.00
Object = "{831FDD16
Begin VB.Form frmAddInfo
BorderStyle = 3 'Fixed Dialog
Caption = "信息打包"
ClientHeight = 5505
ClientLeft = 45
ClientTop = 330
ClientWidth = 8655
ControlBox = 0 'False
Icon = "frmAddInfo.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5505
ScaleWidth = 8655
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.TextBox txtEditInfo
Height = 285
Index = 3
Left = 1530
TabIndex = 15
Tag = "商务频道系统文件更新"
Text = "商务频道系统文件更新"
Top = 3420
Width = 5535
End
Begin VB.CommandButton cmdok
Caption = "导入包列表"
Height = 375
Index = 2
Left = 3930
TabIndex = 14
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = "关 闭"
Height = 375
Index = 3
Left = 5850
TabIndex = 8
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = "导出包列表"
Enabled = 0 'False
Height = 375
Index = 1
Left = 2010
TabIndex = 7
Top = 5040
Width = 1245
End
Begin VB.CommandButton cmdok
Caption = "信息打包"
Enabled = 0 'False
Height = 375
Index = 0
Left = 90
TabIndex = 6
Top = 5040
Width = 1245
End
Begin VB.Frame framInfo
Caption = "编辑命令"
Height = 2235
Index = 1
Left = 7110
TabIndex = 2
Top = 3270
Width = 1545
Begin VB.CommandButton cmdinfo
Caption = "删除精选项"
Enabled = 0 'False
Height = 345
Index = 1
Left = 60
TabIndex = 9
Top = 750
Width = 1425
End
Begin VB.CommandButton cmdinfo
Caption = "修改信息"
Enabled = 0 'False
Height = 345
Index = 2
Left = 60
TabIndex = 5
Top = 1280
Width = 1425
End
Begin VB.CommandButton cmdinfo
Caption = "添加信息"
Height = 345
Index = 3
Left = 60
TabIndex = 4
Top = 1800
Width = 1425
End
Begin VB.CommandButton cmdinfo
Caption = "清空列表"
Enabled = 0 'False
Height = 345
Index = 0
Left = 60
TabIndex = 3
Top = 240
Width = 1425
End
End
Begin VB.Frame framInfo
Caption = "编辑与察看"
Enabled = 0 'False
Height = 1005
Index = 0
Left = 60
TabIndex = 1
Tag = "编辑与察看"
Top = 3900
Width = 7035
Begin VB.TextBox txtEditInfo
Height = 285
Index = 1
Left = 870
TabIndex = 12
Top = 660
Width = 6105
End
Begin VB.TextBox txtEditInfo
Height = 285
Index = 0
Left = 870
TabIndex = 10
Top = 270
Width = 6105
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "目标信息："
Height = 180
Index = 1
Left = 60
TabIndex = 13
Top = 660
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "源信息："
Height = 180
Index = 0
Left = 90
TabIndex = 11
Top = 270
Width = 720
End
End
Begin MSComctlLib.ListView lstInfo
Height = 3165
Left = 60
TabIndex = 0
Top = 60
Width = 8565
_ExtentX = 15108
_ExtentY = 5583
View = 3
Arrange = 1
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD
Text = "序号"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(2) {BDD
SubItemIndex = 1
Text = "源信息"
Object.Width = 6068
EndProperty
BeginProperty ColumnHeader(3) {BDD
SubItemIndex = 2
Text = "目标信息"
Object.Width = 7832
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "信息打包名称："
Height = 180
Index = 2
Left = 60
TabIndex = 16
Top = 3480
Width = 1260
End
End
Attribute VB_Name = "frmAddInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ===================================================================
' 信息打包与展开 (打包模块，在此对包文件添加信息并进行压缩)
'
' 功能 :利用系统所存在的资源自作压缩与解压缩程序
'
' 作 者 :谢家峰
' 整理日期 :
' Email :douhapy@sina.com
'
' ===================================================================
'
Option Explicit
' --------------------------------------------
' 设置编辑信息框
'
' --------------------------------------------
'
Sub EditLstvInfo(ByVal Item As MSComctlLib.ListItem)
Dim i As Integer
If Item Is Nothing Then
For i = 0 To 1
txtEditInfo(i) = ""
Next
framInfo(0) = framInfo(0).Tag
framInfo(0).Enabled = False
cmdinfo(0).Enabled = False
cmdinfo(1).Enabled = False
cmdinfo(2).Enabled = False
cmdinfo(2).Caption = "修改信息"
cmdOK(0).Enabled = False
cmdOK(1).Enabled = False
Exit Sub
End If
framInfo(0) = "第" & Item.text & "列" & framInfo(0).Tag
With Item
txtEditInfo(0) = .SubItems(1)
txtEditInfo(1) = .SubItems(2)
End With
framInfo(0).Enabled = True
cmdinfo(0).Enabled = True
cmdinfo(1).Enabled = True
cmdinfo(2).Enabled = True
cmdinfo(2).Tag = Item.Index
cmdinfo(2).Caption = "修改第" & cmdinfo(2).Tag & "行信息"
cmdOK(0).Enabled = True
cmdOK(1).Enabled = True
End Sub
' -------------------------------------------------------------
' ListView控件重新排序，且返回最后一个被精选的项，若没有返回0
'
' -------------------------------------------------------------
'
Function lstInfo_sort() As Long
Dim i, j As Long
j = 0
For i = 1 To lstInfo.ListItems.count
lstInfo.ListItems(i).text = i
If lstInfo.ListItems(i).Selected Then j = i
Next
lstInfo_sort = j
End Function
' --------------------------------------------
'检索所添加的信息在ListView控件中是否有重复
'
' --------------------------------------------
'
Function Check_OverLap(infoname As String) As Boolean
Dim i As Long
With lstInfo.ListItems
For i = 1 To .count
If Trim(LCase(.Item(i).SubItems(1))) = Trim(LCase(infoname)) Then
Check_OverLap = True
Exit Function
Else
Check_OverLap = False
End If
Next
End With
End Function
Private Sub cmdinfo_Click(Index As Integer)
Dim AddFileName() As String
Dim str As String
Dim Value As String
Dim i As Long
Dim j As Long
Dim selIndex() As Long