繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 飘叶千夫指源代码，又称qq刷屏器
- VBScript
- VBS教程：方法-Skip 方法
- VBS教程：方法-Remove 方法
- VBS教程：方法-ReadLine 方法
- VBS教程：方法-ReadAll 方法
- VBS教程：方法-Read 方法
- VBS教程：方法-OpenTextFile 方法
- VBS教程：方法-OpenAsTextStream 方法
- VBS教程：方法-MoveFolder 方法
- VBS教程：方法-MoveFile 方法
- VBS教程：方法-Move 方法
- VBS教程：方法-Keys 方法
- VBS教程：方法-Items 方法
- VBS教程：方法-GetTempName 方法
- VBS教程：方法-GetSpecialFolder 方法
- VBS教程：方法-GetParentFolderName 方法
- VBS教程：方法-GetFolder 方法
- VBS教程：方法-GetFileName 方法
- VBS教程：方法-GetFile 方法
- VBS教程：方法-GetExtensionName 方法
- VBS教程：方法-GetDriveName 方法
VBScript 中的 飘叶千夫指源代码，又称qq刷屏器
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 83 ::
收藏到网摘: n/a
复制代码 代码如下:
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
评论 (0) All
