标题: VBS的刷屏程序。超级简单的 [打印本页]

---

作者: netice    时间: 2007-1-23 01:49     标题: VBS的刷屏程序。超级简单的

Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "netice"
for i=1 to 20
   WScript.Sleep 1000
   WshShell.SendKeys "^v"
   WshShell.SendKeys i
   WshShell.SendKeys "%s"
next


只要把上边的代码复制下，然后粘贴的记事本，保存为扩展名为"vbs"的就OK了
打开你的QQ给你最讨厌的一个人（别给我）写上一句话，复制下，双击刚刚那程序
把焦点点到QQ发送框里就看到效果了   
别干坏事。。这个是防身用的，不要用来攻击别人哈

我写的是慢的1秒一次，只发送20次。。呵呵想改下的话，自己把上边的20改下
把1000改成其他的数字（500为半秒）

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0