VBScript中没有做什么需要

Dim checkon, check 
checkon = 1 
toggle = 0 
Do While checkon = 1 
    If (Chr(window.event.keyode = "m")) and toggle = 0 Then 
     toggle = 1 
     MsgBox "working" 
    End If 
    If (Chr(window.event.keyode = "m")) and toggle = 1 Then 
     toggle = 0 
    End If 
    Do While toggle = 1 
     If window.event.button = 1 Then 
      MsgBox "working" 
      WshShell.Sendkeys ("-{F10}") 
      WScript.Sleep 500 
     End If 
    Loop 
Loop

这样做的目标是有它运行，不断检查用户按中号，其中0和1。当toggle是真的之间交替toggle，程序应该检查鼠标是否被按住，是否每秒钟点击两次。VBScript中没有做什么需要

目前它给了一个错误需要

对象：“窗口”

在此之前，它没有根本不算什么，我知道代码看起来很丑，可是我粘贴msgboxes的方法。调试什么是错误的，并且它们都没有激活

来源

2017-08-09 Free Crawler

'keyode'？ 'keyCode' –

'Chr（window.event.keyode =“m”）''可能应该是'Chr（window.event.keyode）=“m”）' –

'你如何运行这个？在浏览器中，还是通过WScript或CScript？ –

从我读到的，你不能在VBScript CScript环境中听那样的事件通常window.event意味着存在一个网页，但你sa你是从桌面运行这个，所以也许你从一个不好的例子中复制了代码。您可能需要使用其他语言或工具来执行此操作。

来源

2017-08-14 12:45:34 BoffinbraiN

VBScript中没有做什么需要

回答

相关问题