VBScript SendKeys - 從輸入框循環

Question

我基本上有一個工作場所計算機上的軟件（我將其稱爲軟件X），我想在上千行的框中打勾。最快速的手動方法是按（SPACE）然後按（DOWN）鍵。所以我試圖用VBS的sendkeys自動化它。

所以......我想要一個腳本來提示我循環我的空間（空間）然後（下），然後做這個次數的次數。

I.e.如果我在框中輸入「100」，它將按（空格鍵），然後按（下）並執行此操作100次。

WshShell.AppActivate "Software X" 
WshShell.SendKeys " " 
WshShell.SendKeys "{DOWN}" 

Answer 1

For...Next Loop將成爲您的朋友。還需要使用Sleep方法才能讓按鍵正確發送一段時間。

Dim WshShell: Set WshShell = WScript.CreateObject("WScript.Shell") 
Dim Value: Value = "" 

Value = InputBox("Enter the number of times you want to SendKeys", "SendKeys - Software X", "1") 

For iNum = 1 To CInt(Value) 

    WshShell.AppActivate "Software X" 
    WScript.Sleep 500 

    WshShell.SendKeys " " 
    WScript.Sleep 500 

    WshShell.SendKeys "{DOWN}" 
    WScript.Sleep 500 

Next 

查看更多有關在VBScript loops。