本文目录
qq群刷屏器VB小脚本
Set WshShell= WScript.CreateObject("WScript.Shell")WshShell.AppActivate"ghjj"for i=1 to 15WScript.Sleep 500WshShell.Sendkeys"^v"WshShell.Sendkeys iWshShell.Sendkeys "%s"Next使用方法：先复制好一段文字，然后打开本VBS脚本，然后点击聊天窗口的输入框，OK。for i=1 to 15，15是发送次数。WScript.Sleep 500，500是发送时间间隔单位是毫秒。WshShell.Sendkeys i 这一句可以去掉，去掉后发送时就不显示发送的次数。
请讲解下面这段VBS代码的含义
这是一个QQ刷屏用的. 首先复制一段文字后,运行此VBS,将把此段文字发送10次,并在尾部加上1到10的序号.如若有误的话,就是AppActivate ""这没指定窗口标题,比如AppActivate "与孤星_交谈中",不过当鼠标手动激活窗口的话,程序同样能用. ---------- Set WshShell= WScript.CreateObject("WScript.Shell") ’创建对象 WshShell.AppActivate "" ’激活窗口,但应指定标题才对. for i=1 to 10 ’1到10循环 WScript.Sleep 500 ’延时0.5秒 WshShell.SendKeys "^v" ’发送按键Ctrl+V,也就是粘贴 WshShell.SendKeys i ’分别发送按键1到10 WshShell.SendKeys "%s" ’发送按键Alt+s.也就是发送消息. Next ’循环结束,对应for命令的. ----------
谁能给我个刷屏脚本
楼主还在吗？我可以给电脑的qq刷屏脚本900下的，刷屏内容在剪切板(百度上的有给自己留后路，有后缀，加上速度慢)
创建vbs
代码复制黏贴
如下
set a=CreateObject("wscript.shell")（创建对象，如果不知道对象什么意思你就把他当成创建一个人）
for i=1 to 900 （循环次数，就是刷几次 i＝2的话是1800下，不过2000以上会被qq的安全管家判成使用第三方软件封号）
wscript.sleep 50（限速（单位毫秒），不要调快，否则会被封号，电脑卡死）
wscript.sendkeys"^v"（黏贴剪切板）
wscript.sendkeys"%s"（你调一下enter发送，本意按enter）
Next(循环结束)
故答案：
Set a= WScript.CreateObject("WScript.Shell")
for i=1 to 900
WScript.Sleep 50
a.Sendkeys"^v"
a.sendkeys"%s"
Next
游戏的话我还在背按键代码，希望对你有用，我也是刚学，可能有bug，有Bug艾特我一声，不过你2006年会回复也是个谜团了，求你采纳我吧！
