Question

vbs高手，请指导一下关于把内容写入剪切板

我要建立一个vbs实现的功能是这样，点一下vbs，就类似按了win+r 调处“运行”框，然后自动输入rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 C:\inst.inf，，然后模拟按回车。

Answer 1

Dim a,b
Set WshShell=Wscript.CreateObject("Wscript.Shell")
WshShell.SendKeys "^{ESC}r"
wscript.sleep 200
WshShell.SendKeys "rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 C:\inst.inf"
wscript.sleep 200
WshShell.SendKeys "{enter}"

追问

你的，能行，只是想让你帮我弥补点，如何用vbs才能清除运行框里的内容。谢谢

Answer 2

你直接运行 这个 rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 C:\inst.inf 命令不就行了，为什么要模拟按键呢

set oshell=createobject（“wscript.shell”）
oshell.run "rundll32.exe setupapi,InstallHinfSection DefaultInstall 128 C:\inst.inf"

追问

不能运行，你本地测试过了，能运行？

追答

模拟按键成功率较低，很容易失去焦点，导致按键发送错误

Answer 3

把文本文件写入剪切板，有个很好用很小巧的第三方工具Winclip.exe，一条dos命令就够了。
winclip -c xxx.txt

追问

网上下不了这个软件！

追答

ｈｔｔｐ：／／ｗｗｗ．ｖｋｉｌｌ．ｎｅｔ／ｔｏｏｌｓ／ｗｉｎｃｌｉｐ＿．ｒａｒ