Question

我正在尝试编写一个脚本，该脚本将防止我的朋友因未参与视频游戏而被踢踢用户。我可以按预期工作，但它不会影响游戏中玩家的移动，只需键入按键即可。我想知道是否有任何方法可以使密钥看起来像是来自用户的，因为从我发现的内容来看，用户发送的密钥有所不同。（我已经尝试过.AppActivate("GAME TITLE")）

到目前为止，这是我的工作：

 WScript.Sleep 4000

我将在上述时间内点击进入游戏，或使用r.AppActivate("GAME TITLE")。

Set r = WScript.CreateObject("WScript.Shell")
intHighNumber = 5
intLowNumber = 1
var = 0
Randomize

下面的代码确定要“按下”的随机移动键。

Do Until b = 1
    c = Int((intHighNumber - intLowNumber + 1) * Rnd + intLowNumber)
    If c = 1 Then d()
    If c = 2 Then a()
    If c = 3 Then w()
    If c = 4 Then w()
    If c = 5 Then s()
    WScript.Sleep 1000
Loop

这些是我用来模拟按键操作的子例程。

Sub w()
    Do Until var = 500
        r.SendKeys "w"
        WScript.Sleep 10
        var = var + 1
    Loop
    var = 0
End Sub

Sub s()
    Do Until var = 500
        r.SendKeys "s"
        WScript.Sleep 10
        var = var + 1
    Loop
    var = 0
End Sub

Sub a()
    Do Until var = 500
        r.SendKeys "a"
        WScript.Sleep 10
        var = var + 1
    Loop
    var = 0
End Sub

Sub d()
    Do Until var = 500
        r.SendKeys "d"
        WScript.Sleep 10
        var = var + 1
    Loop
    var = 0
End Sub

模拟用户按键VBScript

0 个答案: