用了QQ刷屏代码怎么关!!!!

[复制链接]
查看11 | 回复2 | 2020-4-18 20:46:00 | 显示全部楼层 |阅读模式
大家都知道网上有这个代码
Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 9999
WScript.Sleep 700
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
使用方法:新建立个记事本,把以上代码复制到记事本了,把记事本txt格式改为vbs格式,先用鼠标复制一段话,在双击vbs文件,在qq上点发送,qq就会自动发送你复制的那段话,发送多少都有记录!可以在任何地方发送,也可以运用到论坛,博客,等等吧!自己去玩,在不懂我就无语了!

我试了一下,真的行,可是谁能告诉我,用了这个代码后该怎么关啊!!!


我每次用后没发关就关机,求高手来帮我解决下这个难题!!!


谢谢啊!!!!!!!!!!!!!!

回复

使用道具 举报

千问 | 2020-4-18 20:46:00 | 显示全部楼层
还要吗(好像是个远古问题1:按win+r输入cmd+回车输入:tskill Wscript+回车就好了2.按ctrl+shift+esc找到"进程"往下翻找到WScript.exe并单击点击“结束进程” 点确认附赠优化版qq刷屏代码name=Inputbox("请输入轰炸对象名称")Dim aa=inputbox("请输入轰炸次数")boom=Inputbox("请输入轰炸内容")msgbox("轰炸对象名称:"+name)msgbox("轰炸次数:"+a)msgbox("轰炸内容:"+boom)msgbox("即将开始轰炸!(若信息有误请退出重进)")Dim Wo
回复

使用道具 举报

千问 | 2020-4-18 20:46:00 | 显示全部楼层
保存一下代码为后缀名vbs双击即可.set y=getobject("winmgmts:\\.\root\cimv2")set x=y.execquery("select * from win32_process where name='wscript.exe'") for each i in x i.terminate()nex
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行