SetWs必举落至培掉船乎具hShell=WScript.CreateObject("***.shell")
WshShell.AppActivate"ghjj"
fori=1to15
WScript.Sleep500
WshShell.Sendkeys"^v"
WshShell.Sendkeysi
WshShell.Sendkeys"%s"
Next
使用方法：先复制好一段文字，然后打开本VBS脚本，然后点击聊天窗口的输入框，OK。
fori=1to15，15是发送次数。
WScript.Sleep500，500是发送时间间隔单位是毫秒。
WshShell.Sendkeysi这一句可以去掉，去掉后发送时就不显示360问答发送的次数。
标签：刷屏,qq,VB
版权声明：文章由 神舟问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.shenzhouwen.com/answer/216373.html
