Имитация пользовательского нажатия клавиш VBScript

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