廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3304 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為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.054793 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言