UC知道用了QQ刷屏代码怎么关!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/25 15:35:32
大家都知道网上有这个代码
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就会自动发送你复制的那段话，发送多少都有记录！可以在任何地方发送，也可以运用到论坛，博客，等等吧！自己去玩，在不懂我就无语了！
我试了一下,真的行,可是谁能告诉我,用了这个代码后该怎么关啊!!!
我每次用后没发关就关机,求高手来帮我解决下这个难题!!!
谢谢啊!!!!!!!!!!!!!!
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就会自动发送你复制的那段话，发送多少都有记录！可以在任何地方发送，也可以运用到论坛，博客，等等吧！自己去玩，在不懂我就无语了！
我试了一下,真的行,可是谁能告诉我,用了这个代码后该怎么关啊!!!
我每次用后没发关就关机,求高手来帮我解决下这个难题!!!
谢谢啊!!!!!!!!!!!!!!
保存一下代码为后缀名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