Question

我基本上在工作场所计算机上有一个软件（我称之为软件X），我想在数千行上打勾。最快的手动方式是按（空格），然后按（向下）键。所以我试图用VBS sendkeys自动化它。

所以......我想要一个脚本来提示我想要循环我的（SPACE）然后（DOWN）的次数，然后再做那么多次。

即。如果我在框中输入“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的更多信息。

VBScript SendKeys - 从Inputbox循环

1 个答案: