批处理之家 - Powered by Discuz! Board

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

作者: qzl990628 时间: 2012-11-13 14:03 标题: vbs脚本运行后如何在一定时间后显示时间自动结束

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 时间: 2012-11-14 08:14

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 时间: 2012-11-14 16:10

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

作者: qzl990628 时间: 2012-11-14 17:07

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 时间: 2012-11-15 16:21

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盘

欢迎光临批处理之家 (http://www.bathome.net/)