9個使用記事本 Notepad 惡搞朋友電腦的整人方法

記事本 Notepad 除了是文字處理工具之外，其實還有許多功能能，現在我想要寫的這篇文章就是如何使用記事本惡搞朋友電腦的方法，打開記事本后請輸入以下代碼。

1）在你的朋友電腦上不停地重複彈出信息

@ECHO off
:Begin
msg * 請點擊999次以取消此窗口
msg * 999
msg * 998
msg * 997
msg * 996
GOTO BEGIN

紅色字體部份為彈出的信息內容，可修改。
如果要添加信息就在:Begin下面加入「msg * 你想要輸入的信息」（不包括「」）。

儲存為 name.bat 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

2）彈出信息，10秒后自動關閉電腦

@echo off
msg * 關機倒數十秒計時開始
shutdown -c "Hahahah You are Doomed" -s

紅色字體部份為彈出的信息內容，可修改。

儲存為 name.bat 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

3）不間斷启动Backspace鍵

MsgBox "請點擊Ok"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

紅色字體部份為彈出的信息內容，可修改。

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

4）不間斷啟動和取消鍵盤的CAPSLOCK鍵

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

5）不間斷啟動Enter鍵

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

6）重複輸入文字（個人測試后因大量重複輸入文字，電腦進入休眠狀態，需重啟）

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "hahhahah u cant stop me"
loop

紅色字體部份為彈出的信息內容（只限英文），可修改。

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

7）一字一字的自動輸入文字

WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo"
WScript.Sleep 500
WshShell.SendKeys "ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re"
WScript.Sleep 500
WshShell.SendKeys "you"
WScript.Sleep 500
WshShell.SendKeys "?"

紅色字體部份為彈出的信息內容（只限英文），可修改。
可自行添加代碼以添加輸入的文字內容。

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

8）不停地打開記事本

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

儲存為 name.bat 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

9）重複彈入/出CD/DVD託盤

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

儲存為 name.vbs 后發送給你的朋友。P/S：name自行修改為你想要儲存的名稱

P/S：
● 後綴名儲存為 vbs 的程序打開后，可以透過關閉任務管理器中的 wscript.exe 取消運行惡搞程序。（看上圖）
● 後綴名為 bat 的程序必須重啟電腦才可關閉。

● 不建議在辦公時間惡搞朋友，以免造成檔案或文件沒儲存、消失等問題。