📄 frminsert.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmInsert
BorderStyle = 3 'Fixed Dialog
Caption = "插入更新文件"
ClientHeight = 5760
ClientLeft = 45
ClientTop = 330
ClientWidth = 8400
HelpContextID = 3
Icon = "frmInsert.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5760
ScaleWidth = 8400
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox txtUpdateMessage
Height = 555
Left = 2550
MultiLine = -1 'True
TabIndex = 8
Tag = "UpdateMessage"
Top = 2940
Width = 5595
End
Begin VB.CommandButton cmdHelp
Cancel = -1 'True
Caption = "帮助"
Height = 375
Left = 5250
TabIndex = 20
Top = 5190
Width = 915
End
Begin VB.ComboBox cmbDefConst
Height = 315
ItemData = "frmInsert.frx":058A
Left = 2550
List = "frmInsert.frx":05AC
Style = 2 'Dropdown List
TabIndex = 3
Tag = "InstallPath"
Top = 1560
Width = 1845
End
Begin VB.TextBox txtPath
Height = 315
Left = 4380
TabIndex = 4
Tag = "InstallPath"
Text = "\"
Top = 1560
Width = 3765
End
Begin VB.TextBox txtFileSize
Height = 315
Left = 2550
TabIndex = 5
Tag = "FileSize"
Top = 1920
Width = 1575
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 375
Left = 6240
TabIndex = 10
Top = 5190
Width = 915
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
Height = 375
Left = 7230
TabIndex = 9
Top = 5190
Width = 915
End
Begin VB.TextBox txtURL
Height = 315
Left = 2550
TabIndex = 2
Tag = "DownloadURL"
Top = 1200
Width = 5595
End
Begin VB.TextBox txtDesc
Height = 315
Left = 2550
TabIndex = 0
Tag = "Description"
Top = 480
Width = 5595
End
Begin VB.TextBox txtVer
Height = 315
Left = 2550
TabIndex = 1
Tag = "UpdateVersion"
Top = 840
Width = 1575
End
Begin VB.CheckBox chkMustExist
Height = 195
Left = 2550
TabIndex = 7
Tag = "MustExist"
Top = 2625
Value = 1 'Checked
Width = 195
End
Begin VB.CheckBox chkMustUpdate
Height = 195
Left = 2550
TabIndex = 6
Tag = "MustUpdate"
Top = 2295
Width = 195
End
Begin RichTextLib.RichTextBox rtTip
Height = 1275
Left = 330
TabIndex = 22
TabStop = 0 'False
Top = 3720
Width = 7830
_ExtentX = 13811
_ExtentY = 2249
_Version = 393217
BackColor = 14286847
ReadOnly = -1 'True
ScrollBars = 2
AutoVerbMenu = -1 'True
TextRTF = $"frmInsert.frx":0611
End
Begin VB.Label lbl
Caption = "更新信息="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 780
TabIndex = 21
Top = 2970
Width = 1725
End
Begin VB.Label lbl
Caption = "文件大小="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 6
Left = 780
TabIndex = 19
Top = 1950
Width = 1725
End
Begin VB.Label lblSelFile
Caption = "选择文件"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 195
Left = 7410
TabIndex = 18
Top = 150
Width = 735
End
Begin VB.Label lbl
Caption = "安装路径="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 5
Left = 780
TabIndex = 17
Top = 1590
Width = 1725
End
Begin VB.Label lbl
Caption = "下载地址="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 4
Left = 780
TabIndex = 16
Top = 1230
Width = 1725
End
Begin VB.Label lbl
Caption = "描述="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 3
Left = 780
TabIndex = 15
Top = 510
Width = 1725
End
Begin VB.Label lbl
Caption = "更新版本="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 2
Left = 780
TabIndex = 14
Top = 870
Width = 1725
End
Begin VB.Label lbl
Caption = "必须退出="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 780
TabIndex = 13
Top = 2610
Width = 1725
End
Begin VB.Label lbl
Caption = "必须更新="
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 780
TabIndex = 12
Top = 2280
Width = 1725
End
Begin VB.Label lblSec
Caption = "[File XX]"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Left = 150
TabIndex = 11
Top = 150
Width = 1080
End
End
Attribute VB_Name = "frmInsert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'//DECLARES FOR GetFileVersion
Private Declare Function GetFileVersionInfo Lib "Version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwhandle As Long, ByVal dwlen As Long, lpData As Any) As Long
Private Declare Function GetFileVersionInfoSize Lib "Version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
Private Declare Function VerQueryValue Lib "Version.dll" Alias "VerQueryValueA" (pBlock As Any, ByVal lpSubBlock As String, lplpBuffer As Long, puLen As Long) As Long
Private Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)
Private Type VS_FIXEDFILEINFO
dwSignature As Long
dwStrucVersion As Long
dwFileVersionMS As Long
dwFileVersionLS As Long
dwProductVersionMS As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -