wow.vbs

Set Processes = GetObject("winmgmts:").InstancesOf("Win32_Process")

intProcessId = ""
For Each Process In Processes
    If StrComp(Process.Name, "Wow-64.exe", vbTextCompare) = 0 Then
        intProcessId = Process.ProcessId
        Exit For
    End If
Next

If Len(intProcessId) > 0 Then
    set WshShell = CreateObject("WScript.Shell")
    While True
        WshShell.AppActivate intProcessId
        WshShell.SendKeys " "
        WshShell.SendKeys "%{ESC}"
        WScript.Sleep Int((240000 - 60000) * Rnd + 60000)
    Wend
End If