龙盟编程博客 | 无障碍搜索 | 云盘搜索神器
快速搜索
主页 > 软件开发 > VB开发 >

飘叶千夫指源代码,又称qq刷屏器

时间:2014-07-14 15:03来源:网络整理 作者:网络 点击:
分享到:
飘叶千夫指源代码,又称qq刷屏器
复制代码 代码如下:

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
精彩图集

赞助商链接