请讲解下面这段VBS代码的含义

Question

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 10
WScript.Sleep 500
WshShell.SendKeys "^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
谁告诉我着段代码的含义,是否有误 ,该怎么修改!

Answer 1

这是一个QQ刷屏用的. 首先复制一段文字后,运行此VBS,将把此段文字发送10次,并在尾部加上1到10的序号.
如若有误的话,就是AppActivate ""这没指定窗口标题,比如AppActivate "与孤星_交谈中",不过当鼠标手动激活窗口的话,程序同样能用.

----------
Set WshShell= WScript.CreateObject("WScript.Shell") '创建对象
WshShell.AppActivate "" '激活窗口,但应指定标题才对.
for i=1 to 10 '1到10循环
WScript.Sleep 500 '延时0.5秒
WshShell.SendKeys "^v" '发送按键Ctrl+V,也就是粘贴
WshShell.SendKeys i '分别发送按键1到10
WshShell.SendKeys "%s" '发送按键Alt+s.也就是发送消息.
Next '循环结束,对应for命令的.
----------