齐乐分享

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 1703|回复: 11
收起左侧

[技术分享] 制作关机软件源码

[复制链接]
小草1 发表于 2013-9-28 17:34:29 | 显示全部楼层 |阅读模式
On Error Resume Next
Dim WSHshellA
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 90 -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) + "早说就行了嘛!好,不关了"
WSHshella.run "cmd.exe /c shutdown -a"
游客,如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

 楼主| 小草1 发表于 2013-9-28 17:35:14 | 显示全部楼层
好啊。直接复制到文本就可以了

点评

是bat格式的批处理麽?  发表于 2013-9-28 17:49
回复 支持 反对

使用道具 举报

huaihuai0036 发表于 2013-9-28 18:15:30 | 显示全部楼层
呵呵  我以前见过  谢谢分享
回复 支持 反对

使用道具 举报

丶小熙 发表于 2013-9-28 19:11:31 | 显示全部楼层
谢谢分享哦!!
回复 支持 反对

使用道具 举报

wkdqqh 发表于 2013-9-28 21:04:53 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!
回复 支持 反对

使用道具 举报

小爱993912287 发表于 2013-9-28 22:32:34 | 显示全部楼层
啊啊啊啊啊啊啊啊啊啊啊
回复 支持 反对

使用道具 举报

女人到底想什么_ 发表于 2013-9-29 13:03:19 | 显示全部楼层
我看不错噢 谢谢楼主!
回复 支持 反对

使用道具 举报

西蒙呦 发表于 2013-9-29 20:54:04 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!
回复 支持 反对

使用道具 举报

萌孩纸丶卡哇伊( 发表于 2013-9-30 08:42:05 | 显示全部楼层
楼主支持楼主楼主支持楼主
回复 支持 反对

使用道具 举报

joby 发表于 2013-9-30 21:44:33 | 显示全部楼层
试试怎么样,谢谢分享
回复 支持 反对

使用道具 举报

327607501 发表于 2013-9-30 21:50:50 | 显示全部楼层
[技术分享] 制作关机软件源码 [复制链接]
回复 支持 反对

使用道具 举报

森森研究中... 发表于 2013-10-2 15:36:34 | 显示全部楼层
大撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒撒
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

发布主题 上个主题 下个主题 快速回复 收藏帖子 返回列表 搜索
小黑屋|sitemap| |站点统计

版权所有:齐乐分享—技术交流,学习,分享平台 ( 皖ICP备14022669号-1 )

技术支持:Powered by Discuz! X3.4 Copyright © 2013-2018 Comsenz Inc. All Rights Reserved

GMT+8, 2022-6-29 20:46 , Processed in 0.126501 second(s), 14 queries , Gzip On, MemCache On.

快速回复 返回顶部 返回列表