📄 form1.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}#1.0#0"; "msscript.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form mainForm
Caption = "VBScript编译器"
ClientHeight = 6045
ClientLeft = 3750
ClientTop = 3150
ClientWidth = 10275
Icon = "Form1.frx":0000
LinkTopic = "Form1"
Picture = "Form1.frx":038A
ScaleHeight = 6045
ScaleWidth = 10275
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.ImageList ImageList2
Left = 1920
Top = 3120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 17
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":06CC
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0A58
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":0DDC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1160
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":14E4
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1868
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1BEC
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":1F70
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":22F4
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":2678
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":29FC
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":2D80
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3110
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3494
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3818
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3B9C
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Form1.frx":3F20
Key = ""
EndProperty
EndProperty
End
Begin VB.ListBox List1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 2430
ItemData = "Form1.frx":42A4
Left = 2160
List = "Form1.frx":42A6
Style = 1 'Checkbox
TabIndex = 2
Top = 360
Visible = 0 'False
Width = 3615
End
Begin VB.ListBox List2
Appearance = 0 'Flat
BackColor = &H00C00000&
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 238
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 2595
ItemData = "Form1.frx":42A8
Left = 2160
List = "Form1.frx":42AF
TabIndex = 8
Top = 45
Visible = 0 'False
Width = 3615
End
Begin VB.PictureBox Pic
BackColor = &H00E0E0E0&
BeginProperty Font
Name = "Courier New"
Size = 9.75
Charset = 178
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3015
Left = 0
ScaleHeight = 2955
ScaleWidth = 435
TabIndex = 12
Top = 360
Width = 495
Begin VB.Shape Shp
BorderWidth = 2
FillColor = &H00FFC0C0&
FillStyle = 0 'Solid
Height = 255
Left = 120
Top = 720
Width = 255
End
End
Begin VB.TextBox stringbox3
Height = 285
Left = 0
TabIndex = 7
Text = ".hta"
Top = 0
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox stringbox2
Height = 405
Left = 6240
TabIndex = 6
Top = 5160
Visible = 0 'False
Width = 975
End
Begin VB.TextBox stringbox
Height = 375
Left = 4800
TabIndex = 5
Top = 5160
Visible = 0 'False
Width = 1455
End
Begin VB.TextBox end
Height = 375
Left = 4800
TabIndex = 4
Text = $"Form1.frx":42BE
Top = 4800
Visible = 0 'False
Width = 2415
End
Begin VB.TextBox start
Height = 375
Left = 4800
TabIndex = 3
Text = $"Form1.frx":42CD
Top = 4440
Visible = 0 'False
Width = 2415
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 200
Left = 1200
Top = 1200
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 1
Left = 840
Top = 480
End
Begin VB.Timer Timer2
Interval = 1
Left = 120
Top = 1440
End
Begin MSScriptControlCtl.ScriptControl ScriptControl1
Left = 4920
Top = 4320
_ExtentX = 1005
_ExtentY = 1005
End
Begin VB.TextBox txtKeyWords
Height = 1965
Left = 720
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 0
Text = "Form1.frx":42ED
Top = 2400
Visible = 0 'False
Width = 9135
End
Begin VB.Timer Timer1
Interval = 1
Left = 2520
Top = 2760
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 375
Left = 0
TabIndex = 13
Top = 0
Width = 10275
_ExtentX = 18124
_ExtentY = 661
ButtonWidth = 609
ButtonHeight = 609
Appearance = 1
Style = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 24
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "New File"
Object.ToolTipText = "New File"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Open File"
Object.ToolTipText = "Open File"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Save File"
Object.ToolTipText = "Save File"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Test && Compile"
Object.ToolTipText = "Test && Compile"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Undo"
Object.ToolTipText = "Undo"
ImageIndex = 12
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Cut"
Object.ToolTipText = "Cut"
ImageIndex = 6
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Copy"
Object.ToolTipText = "Copy"
ImageIndex = 7
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Paste"
Object.ToolTipText = "Paste"
ImageIndex = 8
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "My Clipboard"
Object.ToolTipText = "My Clipboard"
ImageIndex = 17
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Plugins"
Object.ToolTipText = "Plugins"
ImageIndex = 14
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Insert Output"
Object.ToolTipText = "Insert Output"
ImageIndex = 11
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Tools"
Object.ToolTipText = "Tools"
ImageIndex = 13
EndProperty
BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Error Log"
Object.ToolTipText = "Error Log"
ImageIndex = 15
EndProperty
BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Run"
Object.ToolTipText = "Run"
ImageIndex = 4
EndProperty
BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "Test && Compile"
Object.ToolTipText = "Test && Compile"
ImageIndex = 5
EndProperty
BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628}
Description = "***Customize Toolbar***"
Object.ToolTipText = "Customize Toolbar"
ImageIndex = 16
EndProperty
EndProperty
BorderStyle = 1
End
Begin RichTextLib.RichTextBox Text1
DragIcon = "Form1.frx":45C6
Height = 3015
Left = 480
TabIndex = 1
Top = 360
Width = 9615
_ExtentX = 16960
_ExtentY = 5318
_Version = 393217
BackColor = 16777215
BorderStyle = 0
Enabled = -1 'True
ScrollBars = 3
TextRTF = $"Form1.frx":4950
MouseIcon = "Form1.frx":49F7
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -