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

发布网友发布时间：2022-04-28 16:23

共2个回答

热心网友时间：2022-05-18 10:52

还要吗（好像是个远古问题
1：
按win+r
输入cmd+回车
输入：tskill Wscript+回车
就好了
2.
按ctrl+shift+esc

找到"进程"
往下翻找到WScript.exe并单击
点击“结束进程” 点确认

附赠优化版qq刷屏代码
name=Inputbox("请输入轰炸对象名称")
Dim a
a=inputbox("请输入轰炸次数")
boom=Inputbox("请输入轰炸内容")
msgbox("轰炸对象名称:"+name)
msgbox("轰炸次数:"+a)
msgbox("轰炸内容:"+boom)
msgbox("即将开始轰炸！（若信息有误请退出重进）")
Dim Word
Set Word=CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text=boom
Word.Selection.Copy
Word.Quit False
Set WshShell= WScript.CreateObject("WScript.Shell")
WshShell.AppActivate name
for i=1 to (int(a))
WScript.Sleep 10
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
Next

热心网友时间：2022-05-18 10:52

保存一下代码为后缀名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()
next