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

2011年3月4日 星期五



記事本 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 的程序必須重啟電腦才可關閉。
● 不建議在辦公時間惡搞朋友,以免造成檔案或文件沒儲存、消失等問題。



3 评论:

匿名 提到...

不能用,錯了字元~

邱繼緯 提到...

你好,我是因為最近在查詢notepad++的使用方法而連過來的;沒想到卻看到另類的用法,哈哈。

我覺得這個部落格還蠻不錯的:版面簡單清新、文章的排版也易懂。可惜的就是到去年的三月底就沒有再更新了,不曉得是因為甚麼原因。

我自己本身也有在訂閱一些其他的電腦資訊的部落格,覺得你的部落格和那些人的部落格,像是電腦玩物、重灌狂人等等的,其實並不遜色。(而且還沒有廣告欄位,哈哈)

期待哪天會看到格主的更新。

匿名 提到...

不能用,錯了字元~

張貼留言

  © Blogger templates Newspaper by Ourblogtemplates.com 2008

Back to TOP