[远程串流]不花钱无网络要求!!上班用公司电脑键盘玩家里PS5 脚本详情

脚本详情
我不懂脚本不懂代码的写出来，哪里不对了直接骂我就行

代码详情：
Dim LastX, LastY, x, y, ex, ey
BeginThread shoot
Call GetCursorPos(LastX,LastY)
While True
Delay 5
Call GetCursorPos(x,y)
ex = x - LastX
ey = y - LastY
If ex>10
KeyUp 190,1
KeyUp 188,1
KeyDown 190, 1
//鼠标向右移动，把 KeyDown 190,1中的190改成你想要的键位
ElseIf ex < -10
KeyUp 188,1
KeyUp 190,1
KeyDown 188, 1
//鼠标向左移动，把 KeyDown 188,1中的188改成你想要的键位
End If

If ey>10
KeyUp 101,1
KeyUp 104,1
KeyDown 101, 1
//鼠标向下移动，把 KeyDown 101,1中的101改成你想要的键位
ElseIf ey < -10
KeyUp 101,1
KeyUp 104,1
KeyDown 104, 1
//鼠标向上移动，把 KeyDown 104,1中的104改成你想要的键位
End If
If ey = 0 And ex = 0
KeyUp 190,1
KeyUp 188,1
KeyUp 101,1
KeyUp 104, 1
End If
LastX = x : LastY = y
Wend

Sub shoot
Rem start
key1 = WaitClick()
If key1 = 32769
KeyDown 80, 1
//鼠标左键开火，把 KeyDown 80,1中的80改成你想要的键位
ElseIf key1 = 32770
KeyUp 80, 1
//鼠标左键开火，把 KeyUp 80,1中的80改成你想要的键位
ElseIf key1 = 32773
KeyDown 82, 1
//鼠标右键瞄准，把 KeyDown 82,1中的82改成你想要的键位
ElseIf key1 = 32774
KeyUp 82, 1
//鼠标右键瞄准，把 KeyUp 82,1中的82改成你想要的键位
End If
Goto start
End Sub