VBScript SendKeys - 从输入框循环答案

【问题标题】：VBScript SendKeys - Loop from InputboxVBScript SendKeys - 从输入框循环
【发布时间】：2017-06-17 20:16:07
【问题描述】：

我基本上在工作场所的计算机上有一个软件（我称之为软件 X），我想在其中勾选数千行的复选框。最快的手动方法是按 (SPACE)，然后按 (DOWN) 键。所以我正在尝试使用 VBS sendkeys 将其自动化。

所以...我想要一个脚本来提示我要循环我的 (SPACE) 然后 (DOWN) 的次数，然后再执行该次数。

即如果我在框中输入“100”，它将按 (SPACE)，然后按 (DOWN) 并执行此操作 100 次。

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

【问题讨论】：

在 Google 中搜索 “如何在 VBScript 中循环”.....

标签： vbscript

【解决方案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 的更多信息。

【讨论】：