文件名称:
最新最全-VBS整人小程序大全.zip
开发工具:
文件大小: 13kb
下载次数: 0
上传时间: 2012-01-04
详细说明： 最新最全-VBS整人小程序大全 100只羊-关机 CPU温度过高-重复 定时关机-22：00 哥哥-关机 我是猪-从前有个庙 一小时关机重启-1 直接关机 重复-无聊 阻止关机 等等，还有很多小程序，都有源代码，自己下载下来慢慢研究吧！ 1: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true dim a do while(a <> "哥哥") a = inputbox ("说我是猪,就不关机，快，说 ""哥哥"" ","叫不叫","不叫",7000,8000) msgbox chr(13) + chr(13) + chr(13) + a,5000,"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) + "又没让你叫老公" msgbox chr(13) + chr(13) + chr(13) + "记住了,死神,是你""哥哥""呀!" msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?" msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!" msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?" msgbox chr(13) + chr(13) + chr(13) + "记住了""死神""?" msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~" msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!" msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!" msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!" /************************************************************************************* **************************************************************************************/ 2: do msgbox "准备安装right table1.0" Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Popup "正在安装，"&vbcrlf;&"请等待，请不要按确认！！"&vbcrlf;&"请不要按确认",5,"安装过程" WshShell.Popup "安装完成，请按确认启动",,"安装完成" msgbox "请准备" x=inputbox ("1启动，0关闭","是否启动？","1") if x=1 then z=inputbox ("请输入1或2","请选择功能") end if if z=1 then do until i=10 i=i+1 msgbox "CPU温度过高，系统出现严重误！",16+4096,"系统错误" wscript.sleep 1000*60 '时间可以自己改 loop elseif z=2 then a=InputBox("快说“我是笨蛋”，一个停顿都不能有，不然我就关机！","老公我爱你","我是，笨蛋") If a="我是笨蛋" Then Msgbox"这就对了嘛！",0,"我是笨蛋" msgbox"进入" msgbox"sorry,your computer is &*(^*&%" Elseif a="我是，笨蛋" Then Msgbox"一个停顿也不许有，没看见呀？",16,"我是笨蛋" Else Msgbox"还不说？你再不说我就关机了！",16,"我是笨蛋" End If end if if x=0 then msgbox "真的要退出吗?" y=inputbox ("返回1，退出0","真的要退出吗?","1") end if if y=1 then msgbox "笨蛋这下后悔也来不及了！" do while 1 msgbox "现在就永远管不了了！" loop elseif y=0 then msgbox "现在关闭" exit do end if loop /*********************************************************************************** ************************************************************************************/ ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
