禁止QQ上网的vbs代码_vbs

是个不错的网站在这里我表示个人意见支持支持永远支持

今天我给大家做个“用vbs代码禁止QQ上网”的教程。希望大家喜欢

dim bag,pipe,honker,good

do

good="."

set bag=getobject("winmgmts:\\"&good&"\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name=QQ.exe")

for each i in pipe

i.terminate()

next

wscript.sleep 50000

loop

我们来看这段代码。我英语不是太好不过process它的意思我还是知道的就是“进程”的意思。

上面代码的意思是当找到名字为QQ.exe的进程时就关闭这个进程sleep就是再50000秒后关闭它。我们来把它调到10是不管的。不信你试验下。

dim bag,pipe,honker,good

do

good="."

set bag=getobject("winmgmts:\\"&good&"\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name=QQ.exe")

for each i in pipe

i.terminate()

next

wscript.sleep 1

loop

loop我们都知道吧是让这个程序死循环。

好了我们超做下

把上面改过的代码存为vbs为扩展名的文件。

运行下

看到了吧

我的号码下了。。我们再等下看看如何

更本启动不了

我们再把它设置成自启动的就可以了。先停下。没钱了

好了我们继续。如何启动我再这里就不说了。我给大家找下资料。。

开机启动程序的几种方法用来隐藏木马的哦

1、启动项

开使---程序---启动

2、注册表中

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

3、最不容易被人发现的组策略中

开始---运行---gpedit.msc

用户配置---管理模版---系统---登录

双击在用户登录时进行属性设置选顶设置项中的“已启用”项并单击显示按钮然后在添加项目中输入自己要启动的程序路径

4、服务

在服务中把里边的程序替换成自己的木马也可以

%systemroot%\system32\faxsvc.exe

5、msconfig

这个我这里没法演示2000好像没有这个东西

在运行里打msconfig然后就可以找到启动添加或修改都可以

不是很全还有个地方可以添加启动的我忘记了可能是安全策落中

大家研究吧。

好了我们来解决如何再打开我们的QQ。

我们只需要改下参数运行就可以了。。。

又打不开了我们再来说个方法。就是改文件名。。

这样是打不开的/

这样就解决了。。

好了就到这里吧

时间: 2024-09-21 04:13:34

禁止QQ上网的vbs代码_vbs的相关文章

禁止QQ上网的vbs脚本代码_vbs

dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='QQ.exe'") for each i in pipe i.terminate() next wscrip

支持断点下载的VBS代码_vbs

之前我就介绍过VBScript语言的强大.今天再给出一个支持断点下载的VBS代码. 并附上VBS代码的解析,不懂的朋友可以配合微软的SCRIPT56.CHM文档自学.很简单, VBS的好处就是代码易于理解.基本上每行代码执行功能都用英文表示出来了. 这个代码也是对我以前介绍的VBS下载功能的补充. 老规矩,复制保存为dl.vbe. 不过这个VBS的代码的不同之处不是双击运行,而是在CMD命令行下执行. 下载功能执行的格式是: cscript.exe dl.vbs (目标文件地址) [以下载Met

了解VBE VBE则是编译后(加密)的VBS代码_vbs

一.vbe与vb VBE跟VBS差不多,都是VB脚本代码文件,但他们也有不同: VBS是明文代码,就是说可以直接使用记事本编辑: VBE则是编译后(加密)的VBS代码,使用记事本打开不能直接看到源代码.(有些例外) 加密工具有很多,其中常用的是 Microsoft Script Encoder(screnc.exe),此外还有许多. VBE格式在QQ传文件中往往不会被拦截,而VBS格式却会被拦截,这应该是程序设计者的一个失误. 因此,所以很多人没有进行加密而直接改扩展名为"VBE",依

收藏的比较精典VBS代码_vbs

文件操作 复制代码 代码如下: Set fso = Wscript.CreateObject("Scripting.FileSystemObject") '创建文件系统对象,用以处理驱动器.文件夹和文件 Set WshShell = Wscript.CreateObject("Wscript.Shell") '创建系统Shell对象,用以运行程序等等 if fso.fileexists("D:\刀剑Online\alreadyexist.txt"

添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚的vbs代码_vbs

复制代码 代码如下: '/*========================================================================= ' * Intro 主要是解决在使用WebBrowser打印时,得先设置IE安全性的问题 ' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs ' * Author yongfa365 ' * Version v1.0 ' * Email yongfa365[at]qq.c

刷QQ群的VBS脚本_vbs

使用方法:讲以下代码保存为QQ.vbs,然后复制你要发送的东西,双击QQ.vbs就可以自动刷屏拉! 注意:本代码仅作为技术研究之用,请勿非法使用!  Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "群 - 交流群" for i=1 to 10 '要发送的次数 WScript.Sleep 500 WshShell.SendKeys "^v" WshS

运行同一目录下的可执行程序的VBS代码_vbs

复制代码 代码如下: Set objShell = CreateObject("WScript.shell") strCurrentDir = objShell.CurrentDirectory set fso = createobject("scripting.filesystemobject") set f=fso.getfolder(strCurrentDir) For Each i In f.files If LCase(right(i,4)) = &quo

bookfind 通过ISBN序号获取图书连接的书名与作者的vbs代码_vbs

核心代码: 复制代码 代码如下: If WScript.Arguments.UnNamed.Count <> 1 Then Syntax If WScript.Arguments.Named.Count > 1 Then Syntax blnTd = False If WScript.Arguments.Named.Count = 1 Then If UCase( WScript.Arguments.Named( 0 ) ) = "/TD" Then blnTd =

将信息保存到一个XML文件的vbs代码_vbs

This script demonstrates how to save information to a xml file with the use of MSXML. The example xml file is used for the photo album on the site. 复制代码 代码如下: '***************************************************************** '** Script: CreateXML.vb