frmmain.frm
来自「一个较为完整的VB木马程序。只是文件上传功能还不太完善。」· FRM 代码 · 共 1,743 行 · 第 1/5 页
FRM
1,743 行
Width = 735
End
Begin VB.CommandButton CmdHideSysIcons
Caption = "隐藏"
Height = 375
Left = 1440
TabIndex = 144
Top = 2160
Width = 735
End
Begin VB.CommandButton CmdShowClock
Caption = "显示"
Height = 375
Left = 2280
TabIndex = 143
Top = 1560
Width = 735
End
Begin VB.CommandButton CmdHideClock
Caption = "隐藏"
Height = 375
Left = 1440
TabIndex = 142
Top = 1560
Width = 735
End
Begin VB.CommandButton CmdShowDesktop
Caption = "显示"
Height = 375
Left = 2280
TabIndex = 141
Top = 960
Width = 735
End
Begin VB.CommandButton CmdHideDesktop
Caption = "隐藏"
Height = 375
Left = 1440
TabIndex = 140
Top = 960
Width = 735
End
Begin VB.CommandButton CmdShowTaskBar
Caption = "显示"
Height = 375
Left = 2280
TabIndex = 139
Top = 360
Width = 735
End
Begin VB.CommandButton CmdHideTaskBar
Caption = "隐藏"
Height = 375
Left = 1440
TabIndex = 138
Top = 360
Width = 735
End
Begin VB.Image Image27
Height = 480
Left = 5400
Picture = "FrmMain.frx":40E6
Top = 3240
Width = 480
End
Begin VB.Label Label67
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "开始按钮："
Height = 195
Left = 240
TabIndex = 151
Top = 3000
Width = 825
End
Begin VB.Label Label65
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系统图标："
Height = 195
Left = 240
TabIndex = 150
Top = 2280
Width = 825
End
Begin VB.Label Label64
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "桌面："
Height = 195
Left = 240
TabIndex = 149
Top = 960
Width = 495
End
Begin VB.Label Label63
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "时钟："
Height = 195
Left = 240
TabIndex = 148
Top = 1560
Width = 495
End
Begin VB.Label Label62
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "任务栏："
Height = 195
Left = 240
TabIndex = 137
Top = 480
Width = 660
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 = 10
Left = 720
TabIndex = 133
Top = 1080
Width = 6135
Begin VB.CommandButton CmdBrowser
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 = 480
TabIndex = 135
Top = 1560
Width = 1335
End
Begin VB.Image Image25
Height = 480
Left = 3960
Picture = "FrmMain.frx":49B0
Top = 1440
Width = 480
End
Begin VB.Image Image24
Height = 480
Left = 4080
Picture = "FrmMain.frx":527A
Top = 3120
Width = 480
End
Begin VB.Label Label56
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 = 134
Top = 480
Width = 2880
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 = 9
Left = 720
TabIndex = 123
Top = 1080
Width = 6135
Begin VB.CommandButton CmdCheckForSoundCard
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 = 132
Top = 2520
Width = 1215
End
Begin VB.CommandButton CmdAddtoDoc
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 = 130
Top = 1680
Width = 1215
End
Begin VB.TextBox TextDocumentAddfilename
Height = 285
Left = 2160
TabIndex = 129
Top = 1680
Width = 2295
End
Begin VB.CommandButton CmdClearDocuments
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 = 127
Top = 960
Width = 1215
End
Begin VB.CommandButton CmdOpenSystemInfo
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 = 125
Top = 360
Width = 1215
End
Begin VB.Label Label51
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 = 131
Top = 2520
Width = 900
End
Begin VB.Label Label50
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 = 128
Top = 1800
Width = 1440
End
Begin VB.Label Label49
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 = 126
Top = 1080
Width = 1440
End
Begin VB.Label Label48
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 = 124
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?