找回密码
 立即注册
查看: 768|回复: 2

【无与伦比】不说就关机的代码。

[复制链接]

2168

回帖

1647

基友

9968

积分

仙人1层 Lv.10

Rank: 5Rank: 5

伯爵荣耀

发表于 2012-10-13 11:40:19 | 显示全部楼层 |阅读模式

我是猪、不说就关机的代码
                           用记事本保存后缀为 .vbs
            我们复制

要是这样写、我就惨了、哈哈 我改一下
打开看看
哈哈、就这样啦、我们再见
空格也要复制

代码:
                          on error resume next  
dim WSHshellA  
set WSHshellA = wscript.createobject("wscript.shell")  
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试 BY:糖果饼干(你自己可以改)"" ",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) + "哈哈哈哈,真过瘾"



回复

使用道具 举报

2168

回帖

1647

基友

9968

积分

仙人1层 Lv.10

Rank: 5Rank: 5

伯爵荣耀

 楼主| 发表于 2012-10-13 13:30:35 | 显示全部楼层
颜色似乎有点淡- -
回复 支持 反对

使用道具 举报

7657

回帖

86万

基友

34万

积分

天下一番

Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18

伯爵荣耀

发表于 2013-3-4 07:03:41 | 显示全部楼层
可以改成说谁人是好妹纸=-=
回复 支持 反对

使用道具 举报

小黑屋|苍海国际 ( 鲁ICP备13020644号-1 )

GMT+8, 2024-11-23 11:09 , Processed in 0.039375 second(s), 26 queries .

Powered by Discuz! Theme By eRic Modified by 4bpa

© CangHai International We Do Our Rights!

返回顶部