大佬们帮帮忙我已经卡了很久很久了

[迪克。零]

Set WshShell = WScript. Create0b ject("WScript.Shell")
WshShell. AppActivate ""
for i=1 to 100
WScript.Sleep 100
WshShell.SendKeys "^v"
Wshell.SendKeys“%s"
Next
语句未结束怎么该
求大神帮忙

[vansoft]

为什么要创建WScript.Shell？ sendkeys，不是直接可以用吗？

[milaoshu1020]

改好了,不过不鼓励刷屏;

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 100
WScript.Sleep 100
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next

[milaoshu1020]

引用 1 楼 vansoft 的回复:

为什么要创建WScript.Shell？

sendkeys，不是直接可以用吗？

还是有区别的:
1. VB6中有,但VBS脚本不自带SendKeys和Appactivate;
2. VB6中的Appactivate是过程,没有返回值,而WScript.Shell的Appactivate有返回值,可以判断是否成功激活窗口;