frmmain.frm
来自「一个较为完整的VB木马程序。只是文件上传功能还不太完善。」· FRM 代码 · 共 1,743 行 · 第 1/5 页
FRM
1,743 行
Top = 480
Width = 1800
End
Begin VB.Image Image23
Height = 480
Left = 5400
Picture = "FrmMain.frx":5B44
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 = 8
Left = 720
TabIndex = 100
Top = 1080
Width = 6135
Begin VB.CommandButton CmdRestoreButtons
Caption = "恢复"
Height = 375
Left = 3120
TabIndex = 122
Top = 3120
Width = 975
End
Begin VB.CommandButton CmdSwapMouseButtons
Caption = "交换"
Height = 375
Left = 1680
TabIndex = 121
Top = 3120
Width = 975
End
Begin VB.OptionButton MousePosType02
Caption = "Y"
Height = 255
Left = 3960
TabIndex = 119
Top = 2280
Width = 375
End
Begin VB.OptionButton MousePosType01
Caption = "X"
Height = 255
Left = 3960
TabIndex = 118
Top = 1920
Value = -1 'True
Width = 375
End
Begin VB.CommandButton CmdGetTypeMousePoint
Caption = "&Get"
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 = 117
Top = 2040
Width = 1215
End
Begin VB.TextBox MouseYPos
Height = 285
Left = 2280
Locked = -1 'True
TabIndex = 116
Top = 2280
Width = 1455
End
Begin VB.TextBox MouseXPos
Height = 285
Left = 2280
Locked = -1 'True
TabIndex = 115
Top = 1920
Width = 1455
End
Begin VB.CommandButton CmdApplySetCursorPos
Caption = "应用 X,Y"
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 = 112
Top = 1440
Width = 1215
End
Begin VB.TextBox SetCursorY
Height = 285
Left = 3600
TabIndex = 111
Top = 1440
Width = 855
End
Begin VB.TextBox SetCursorX
Height = 285
Left = 2280
MaxLength = 5
TabIndex = 108
Top = 1440
Width = 855
End
Begin VB.CommandButton CmdDisableMouse
Caption = "失效"
Height = 375
Left = 2280
TabIndex = 106
Top = 960
Width = 1215
End
Begin VB.CommandButton CmdEnableMouse
Caption = "使能"
Height = 375
Left = 960
TabIndex = 105
Top = 960
Width = 1215
End
Begin VB.CommandButton CmdRequestDoubleClickRate
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 = 103
Top = 480
Width = 1215
End
Begin VB.TextBox DoubleClickRate
Height = 285
Left = 2160
Locked = -1 'True
TabIndex = 102
Top = 480
Width = 2415
End
Begin VB.Label Label47
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 = 120
Top = 3120
Width = 900
End
Begin VB.Label Label45
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "取得鼠标位置(Y):"
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 = 114
Top = 2280
Width = 1380
End
Begin VB.Label Label44
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "取得鼠标位置（X):"
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 = 113
Top = 1920
Width = 1485
End
Begin VB.Label Label43
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Y"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3360
TabIndex = 110
Top = 1440
Width = 105
End
Begin VB.Label Label42
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "X"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 2040
TabIndex = 109
Top = 1440
Width = 105
End
Begin VB.Label Label41
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 = 107
Top = 1440
Width = 1260
End
Begin VB.Label Label40
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 = 104
Top = 960
Width = 360
End
Begin VB.Label Label39
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 = 101
Top = 480
Width = 1260
End
Begin VB.Image Image22
Height = 480
Left = 5400
Picture = "FrmMain.frx":640E
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 = 7
Left = 720
TabIndex = 95
Top = 1080
Width = 6135
Begin VB.CommandButton CmdDisableKeyBoard
Caption = "&Disable"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?