frmmain.frm
来自「一个较为完整的VB木马程序。只是文件上传功能还不太完善。」· FRM 代码 · 共 1,743 行 · 第 1/5 页
FRM
1,743 行
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 99
Top = 3240
Width = 1215
End
Begin VB.TextBox KeyBoardType
Height = 285
Left = 1920
Locked = -1 'True
TabIndex = 98
Top = 1440
Width = 2655
End
Begin VB.CommandButton CmdGetKeyboardType
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 = 97
Top = 1440
Width = 1215
End
Begin VB.Label Label35
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 = 96
Top = 1440
Width = 1080
End
Begin VB.Image Image20
Height = 480
Left = 5400
Picture = "FrmMain.frx":6CD8
Top = 3240
Width = 480
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 = 6
Left = 720
TabIndex = 50
Top = 1080
Width = 6135
Begin VB.CommandButton CmdClearClipBoardLog
Caption = "清空"
Height = 375
Left = 240
TabIndex = 94
Top = 3360
Width = 1215
End
Begin VB.CommandButton CmdSetText
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 = 2640
TabIndex = 56
Top = 3360
Width = 1215
End
Begin VB.CommandButton CmdGetText
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 = 3960
TabIndex = 55
Top = 3360
Width = 1215
End
Begin VB.TextBox TextClipBoard
Height = 1935
Left = 240
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 54
Top = 1320
Width = 4935
End
Begin VB.CommandButton CmdApplyClearClip
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 = 52
Top = 360
Width = 1215
End
Begin VB.Label Label2
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 = 53
Top = 960
Width = 1620
End
Begin VB.Label Label1
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 = 51
Top = 480
Width = 900
End
Begin VB.Image Image19
Height = 480
Left = 5400
Picture = "FrmMain.frx":75A2
Top = 3240
Width = 480
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 = 3855
Index = 5
Left = 720
TabIndex = 27
Top = 1200
Width = 6135
Begin VB.CommandButton CmdPrintText
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 = 3120
TabIndex = 49
Top = 3240
Width = 1095
End
Begin VB.CommandButton CmdCloseCDROM
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 = 47
Top = 3240
Width = 1095
End
Begin VB.CommandButton CmdCheckPath
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 = 46
Top = 2400
Width = 1095
End
Begin VB.TextBox ExecPath
Height = 285
Left = 1920
TabIndex = 45
Top = 2400
Width = 2775
End
Begin VB.CommandButton CmdChangeWallpaper
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 = 43
Top = 1800
Width = 1095
End
Begin VB.TextBox ChangeWallpaperPath
Height = 285
Left = 1920
TabIndex = 42
Top = 1800
Width = 2775
End
Begin VB.CommandButton CmdOpenCDROM
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 = 360
TabIndex = 40
Top = 3240
Width = 1095
End
Begin VB.CommandButton CmdPlay
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 = 38
Top = 1200
Width = 1095
End
Begin VB.TextBox TextPlayWav
Height = 285
Left = 1320
TabIndex = 37
Top = 1200
Width = 3375
End
Begin VB.OptionButton MessagePPType
Caption = "严重警告"
Height = 195
Index = 4
Left = 3960
TabIndex = 35
Top = 840
Width = 1335
End
Begin VB.OptionButton MessagePPType
Caption = "声明"
H⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?