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中沒有做什麼需要

回答

相關問題