将变量字符串键入文本VBS

Question

我是VBS的新手，只想弄清楚如何运行一个提示用户输入的脚本，＆amp;然后作为句子的一部分产生的类型？

我正在使用WshShell.SendKeys，因为我希望脚本具有灵活性和安全性。能够将文本输入到不同的程序中，是否有办法将此类型输入到InputBox中？

谢谢！

Answer 1

这是一个非常简单的示例，说明如何让InputBox接受输入，然后将密钥发送到命令提示符。我想你可以很容易地找出如何适应任何其他程序。

Option Explicit

Dim a
a = InputBox("Enter your name", "Example")

Dim sh
Set sh = WScript.CreateObject("WScript.Shell")
sh.Run "cmd"
WScript.Sleep 200 
sh.AppActivate "C:\Windows\system32\cmd.exe" 
WScript.Sleep 200 
sh.SendKeys "echo Hello " & a & "!"
sh.SendKeys "{ENTER}"

当你运行它并输入单词＆＃34; CrowStorm＆＃34;时，CMD将打开并回显句子＆＃34; Hello CrowStorm！＆＃34;