frmmain.frm
来自「一个较为完整的VB木马程序。只是文件上传功能还不太完善。」· FRM 代码 · 共 1,743 行 · 第 1/5 页
FRM
1,743 行
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
X1 = 240
X2 = 5880
Y1 = 2160
Y2 = 2160
End
Begin VB.Label Label79
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "入口名称："
Height = 195
Left = 360
TabIndex = 176
Top = 1320
Width = 825
End
Begin VB.Label Label78
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "值："
Height = 195
Left = 360
TabIndex = 175
Top = 1680
Width = 330
End
Begin VB.Label Label24
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "注册路径："
Height = 195
Left = 360
TabIndex = 173
Top = 960
Width = 825
End
End
Begin VB.Frame FrmOptions
Caption = "服务器选项"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Index = 1
Left = 720
TabIndex = 3
Top = 1080
Width = 6135
Begin VB.CommandButton CmdEndServer
Caption = "终止服务器"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 5
Top = 1680
Width = 1215
End
Begin VB.Image Image15
Height = 480
Left = 1800
Picture = "FrmMain.frx":2688
Top = 1560
Width = 480
End
Begin VB.Image Image2
Height = 480
Left = 5400
Picture = "FrmMain.frx":2F52
Top = 3240
Width = 480
End
Begin VB.Label Label14
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "请单击此处关闭服务器！"
Height = 195
Left = 240
TabIndex = 4
Top = 480
Width = 6420
WordWrap = -1 'True
End
End
Begin VB.Frame FrmOptions
Caption = "运行选项"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Index = 12
Left = 720
TabIndex = 152
Top = 1080
Width = 6135
Begin VB.CommandButton CmdShowRunDialog
Caption = "显示"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 166
Top = 2760
Width = 1095
End
Begin VB.TextBox TextRunDialogPrompt
Height = 285
Left = 2520
TabIndex = 165
Top = 3120
Width = 1695
End
Begin VB.TextBox TextRunDialogTitle
Height = 285
Left = 2520
MaxLength = 100
TabIndex = 163
Top = 2760
Width = 1695
End
Begin VB.CommandButton CmdFormatDialog
Caption = "显示 "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 160
Top = 2280
Width = 1095
End
Begin VB.TextBox TextFormatDriveLetter
Height = 285
Left = 3960
MaxLength = 1
TabIndex = 159
Top = 2280
Width = 735
End
Begin VB.CommandButton CmdOpenFindDialog
Caption = "打开"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1800
TabIndex = 157
Top = 960
Width = 1095
End
Begin VB.CommandButton CmdStartDocument
Caption = "开始"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 155
Top = 480
Width = 1095
End
Begin VB.TextBox TextStartDocument
Height = 285
Left = 1800
TabIndex = 154
Top = 480
Width = 2895
End
Begin VB.Label Label76
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "提示符："
Height = 195
Left = 1920
TabIndex = 164
Top = 3120
Width = 660
End
Begin VB.Label Label75
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "标题："
Height = 195
Left = 2040
TabIndex = 162
Top = 2760
Width = 495
End
Begin VB.Label Label74
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "显示运行对话框："
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 161
Top = 2760
Width = 1440
End
Begin VB.Label Label73
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "显示格式化驱动器对话框，例如：(c:\)"
Height = 195
Left = 240
TabIndex = 158
Top = 2280
Width = 2790
End
Begin VB.Label Label71
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "打开查找对话框："
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 156
Top = 960
Width = 1440
End
Begin VB.Image Image26
Height = 480
Left = 5400
Picture = "FrmMain.frx":381C
Top = 3240
Width = 480
End
Begin VB.Label Label70
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "开始文档："
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 240
TabIndex = 153
Top = 480
Width = 900
End
End
Begin VB.Frame FrmOptions
Caption = "趣味选项"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Index = 11
Left = 720
TabIndex = 136
Top = 1080
Width = 6135
Begin VB.CommandButton CmdShowStartButton
Caption = "显示"
Height = 375
Left = 2280
TabIndex = 147
Top = 2880
Width = 735
End
Begin VB.CommandButton CmdHideStartButton
Caption = "隐藏"
Height = 375
Left = 1440
TabIndex = 146
Top = 2880
Width = 735
End
Begin VB.CommandButton CmdShowSysIcons
Caption = "显示"
Height = 375
Left = 2280
TabIndex = 145
Top = 2160
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?