广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 3293 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
zsx123665 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
初露锋芒
级别: 初露锋芒 该用户目前不上站
推文 x16 鲜花 x95
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[求助] 请问谁可以帮我做一个Vbs
内容大概是这样:

视窗标题:VBS询问系统
图标:问号
内容:您的使用正确?
..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



献花 x0 回到顶端 [楼 主] From:台湾亚太线上服务股份有限公司 | Posted:2011-09-12 10:01 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

复制程式
Option Explicit

  local_new_ask
  
  
Function local_new_ask

  Dim objShell

  On Error Resume Next

  If Msgbox("您的使用正确?", vbQuestion + vbYesNo, "VBS询问系统") = vbYes Then
    Msgbox "感谢您的使用", , "VBS询问系统"
  Else
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run "shutdown -s -t 10"
  End If
  
End Function



其实 "感谢您的使用" 那边的图示,你也可以加入参数 vbInformation 会比较好看



Shell 的用法参考自 http://www.computerperformanc.../ezine45.htm

shutdown 的用法请自行更改,如果要加上评论(Comment),可以参考以下用法 :

shutdown -s -t 10 -c "Testing"



测试 shutdown 的时候,时间请调 120 秒以上

如需取消 倒数关机,输入指令 (在 CMD 中输入)  shutdown -a  即可取消关机程序






本帖包含附件
zip VBS询问系统.rar   (2022-06-09 14:19 / 1 KB)  
说明: VBS
下载次数:5


[ 此文章被ebolaman在2011-09-12 19:37重新编辑 ]

此文章被评分,最近评分记录
财富:50 (by 三仙) | 理由: ^^ 因为您的参与,让程式设计更容易!!


My BOINC stats :

献花 x1 回到顶端 [1 楼] From:台湾教育部 | Posted:2011-09-12 19:31 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.061433 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言