UC知道VB 鼠标操作外挂在游戏里怎么没办法动了也没办法点击
来源：百度知道 编辑：UC知道 时间：2024/05/30 14:28:59
Private Declare Sub mouse_event Lib "user32" _
( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long _
)
'Option_Tag标示选择了哪一种模拟事件
Dim Option_Tag As Integer
'OnTest标示是否处于模拟状态，以便我们停止模拟
Dim OnTest As Boolean
'对API变量的定义
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
'控制 模拟的开始与结束
Private Sub Command1_Click()
'如果不处于模拟状态
If OnTest = False Then
Command1.Caption = "快停下来吧"
Timer1.Enabled = True
OnTest = True
'如果处于模拟状态
Else
Command1.Caption = "试一试"
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 6945
ClientLeft = 60
ClientTop = 345
ClientWidth = 9540
LinkTopic = "Form1"
ScaleHeight = 6945
ScaleWidth = 9540
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 2655
Left = 720
TabIndex = 3
Text = "Text1"
Top = 1080
Width = 8415
End
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 855
Left = 6360
TabIndex = 2
Top = 5520
Width = 2175
End
Begin VB.CommandButton Command2
Caption = "Co