整蛊
一、无限弹框
新建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为要禁止的软件的名字，可右键软件快捷方式，选择属性，复制"目标"选项后面的名称即可。