tzinfo
这样做的目的是让它运行,并不断检查用户是否按下 M ,它在0和1之间交替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
。toggle
是是的,该程序应该检查鼠标是否被按下以及是否每秒点击两次。
目前正在发出错误
需要对象:'Window'
之前它没有做任何事。我知道代码看起来很难看,但是我将msgboxes粘贴为调试出错的方法,并且没有激活它们。
答案 0 :(得分:0)
根据我的阅读,您无法在VBScript CScript环境中收听类似的事件。通常window.event
意味着网页的存在,但是你说你正在从桌面运行它,所以也许你从一个糟糕的例子中复制了代码。您可能需要使用其他语言或工具来执行此操作。