[问题求助] vbs脚本运行后如何在一定时间后显示时间自动结束

qzl990628

On error resume next
Dim fso, d,dc,f,start,current
Set fos = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
Set f = fso.GetFile(d &"请带我回家.txt")
If left(f,2)=d then msgbox "我是您的"&d&"U盘或移动硬盘，别忘带我回家！ ",vbcritical,"主人：您好！"
Next

运行的结果是：

谁能 帮我加代码运行后在15秒后自动结束本脚本的运行成为

最好用shutdown命令限时多少秒自动结束本脚本的运行。

czjt1234

set objWsh = CreateObject("Wscript.Shell")
intNumber = objWsh.Popup(strText, nSecondsToWait, strTitle, nType)
'弹出式消息框。比 Msgbox 多了等待选择时间参数，少了帮助参数

'返回值intNumber代表如下按钮:
vbOK     = 1    '确定
vbCancel = 2    '取消
vbAbort  = 3    '放弃
vbRetry  = 4    '重试
vbIgnore = 5    '忽略
vbYes    = 6    '是
vbNo     = 7    '否
           -1   '选择超时

参数:
strText         '要显示的文本信息

nSecondsToWait  '等待选择的秒数。若选择超时，消息框自动关闭，返回值 -1
                '缺省值 0 秒，必须选择一个按钮，消息框才会关闭

strTitle        '弹出式消息框的标题。缺省值 "Windows Script Host"

nType           '要显示的按钮和图标类型。缺省值 0
0     显示“确定”按钮
1     显示“确定”和“取消”按钮
2     显示“放弃”、“重试”和“忽略”按钮
3     显示“是”、“否”和“取消”按钮
4     显示“是”和“否”按钮
5     显示“重试”和“取消”按钮
16    显示“停止标记”图标
32    显示“问号”图标
48    显示“感叹号”图标
64    显示“信息标记”图标

qzl990628

回复 2# czjt1234
非常感谢czjt1234，您给我的提示，我已经写好代码，能很好的运行。谢谢！！！

qzl990628

On error resume next
Dim fso, d,dc,f,objWsh
set objWsh = CreateObject("Wscript.Shell")
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
  Set f = fso.GetFile(d&"\请带我回家.txt")
  If Left(f,2)=d Then
     intNumber = objWsh.Popup("我是您的"&d&"U盘或移动硬盘，别忘带我回家！ ", 10, "主人：您好！", 48)
  End If
Next

本脚本运行后，需要在U盘里找“请带我回家.txt”这个文件，如果有哪位大虾告诉我能自动识别系统的USB进程就好了，改为寻找这个进程就更人性化了，谢谢

czjt1234

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrivers = objFSO.Drives

For Each objDriver In objDrivers
  MsgBox objDriver.DriveType
Next

'DriveType 磁盘类型 返回值：0未知 1可移动 2固定 3网络 4CDROM 5RAM盘