站长资源脚本专栏
飘叶千夫指源代码，又称qq刷屏器
简介复制代码 代码如下:Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "" for i=1 to 10 ´要发送的次数 WScript.Sleep 500 ´定义发送信的所要的时
复制代码 代码如下:
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 10 ´要发送的次数
WScript.Sleep 500 ´定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次
WshShell.SendKeys "^v" ´把剪贴版上的内容粘贴出来
WshShell.SendKeys i ´输出次数值
WshShell.SendKeys "%s"´按下键盘上的Alt+S发送信息
next
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate ""
for i=1 to 10 ´要发送的次数
WScript.Sleep 500 ´定义发送信的所要的时间以ms毫秒为单位。如：1000为一秒发一次
WshShell.SendKeys "^v" ´把剪贴版上的内容粘贴出来
WshShell.SendKeys i ´输出次数值
WshShell.SendKeys "%s"´按下键盘上的Alt+S发送信息
next
上一篇：VBS相册生成脚本[
下一篇：从一个VBS脚本学习一点点东西