📄 frmnew.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmNew
BorderStyle = 3 'Fixed Dialog
Caption = "新建脚本文件"
ClientHeight = 7065
ClientLeft = 45
ClientTop = 330
ClientWidth = 8580
HelpContextID = 6
Icon = "frmNew.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7065
ScaleWidth = 8580
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Caption = "程序关闭设置"
Height = 1995
Left = 180
TabIndex = 25
Top = 3270
Width = 8205
Begin VB.ComboBox cmbDefConst
Height = 315
ItemData = "frmNew.frx":058A
Left = 2370
List = "frmNew.frx":05AC
Style = 2 'Dropdown List
TabIndex = 11
Tag = "LaunchIfKilled"
Top = 1440
Width = 1845
End
Begin VB.TextBox txtAppTitle
Height = 315
Left = 2370
TabIndex = 9
Tag = "UpdateAppTitle"
Top = 720
Width = 5595
End
Begin VB.TextBox txtAppClass
Height = 315
Left = 2370
TabIndex = 10
Tag = "UpdateAppClass"
Text = "ThunderRT6Main"
Top = 1080
Width = 5595
End
Begin VB.TextBox txtLaunch
Height = 315
Left = 4230
TabIndex = 12
Tag = "LaunchIfKilled"
Text = "\"
Top = 1440
Width = 3735
End
Begin VB.CheckBox chkUpdateAppKill
Height = 195
Left = 2370
TabIndex = 8
Tag = "UpdateAppKill"
Top = 420
Width = 195
End
Begin VB.Label lbl
Caption = "UpdateAppTitle="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 7
Left = 240
TabIndex = 29
Top = 770
Width = 2025
End
Begin VB.Label lbl
Caption = "UpdateAppClass="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 8
Left = 240
TabIndex = 28
Top = 1130
Width = 2025
End
Begin VB.Label lbl
Caption = "LaunchIfKilled="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 9
Left = 240
TabIndex = 27
Top = 1490
Width = 2025
End
Begin VB.Label lbl
Caption = "UpdateAppKill="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 10
Left = 240
TabIndex = 26
Top = 410
Width = 1725
End
End
Begin VB.Frame Frame1
Caption = "脚本要素"
Height = 2955
Left = 180
TabIndex = 14
Top = 180
Width = 8205
Begin VB.CheckBox chkRegRISFiles
Height = 195
Left = 7740
TabIndex = 30
Tag = "RegRISFiles"
Top = 730
Value = 1 'Checked
Width = 195
End
Begin VB.CheckBox chkAdmin
Height = 195
Left = 2370
TabIndex = 0
Tag = "AdminRequired"
Top = 405
Width = 195
End
Begin VB.CheckBox chkReboot
Height = 195
Left = 2370
TabIndex = 1
Tag = "ForceReboots"
Top = 730
Width = 195
End
Begin VB.TextBox txtShort
Height = 315
Left = 2370
MaxLength = 15
TabIndex = 3
Tag = "AppShortName"
Top = 990
Width = 1755
End
Begin VB.TextBox txtLong
Height = 315
Left = 2370
TabIndex = 4
Tag = "AppLongName"
Top = 1350
Width = 5595
End
Begin VB.TextBox txtPrim
Height = 315
Left = 2370
TabIndex = 5
Tag = "ScriptURLPrim"
Top = 1710
Width = 5595
End
Begin VB.TextBox txtAlt
Height = 315
Left = 2370
TabIndex = 6
Tag = "ScriptURLAlt"
Top = 2070
Width = 5595
End
Begin VB.TextBox txtNotifyIcon
Height = 315
Left = 2370
TabIndex = 7
Tag = "NotifyIcon"
Top = 2430
Width = 5595
End
Begin VB.CheckBox chkShowIcons
Height = 195
Left = 7740
TabIndex = 2
Tag = "ShowFileIcons"
Top = 405
Value = 1 'Checked
Width = 195
End
Begin VB.Label lbl
Caption = "RegRISFiles="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 225
Index = 12
Left = 5640
TabIndex = 31
Top = 737
Width = 1725
End
Begin VB.Label lbl
Caption = "AdminRequired="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 240
TabIndex = 24
Top = 390
Width = 1725
End
Begin VB.Label lbl
Caption = "ForceReboots="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 240
TabIndex = 23
Top = 737
Width = 1725
End
Begin VB.Label lbl
Caption = "AppShortName="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 2
Left = 240
TabIndex = 22
Top = 1050
Width = 1725
End
Begin VB.Label lbl
Caption = "AppLongName="
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -