[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] 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命令限时多少秒自动结束本脚本的运行。

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    显示“信息标记”图标

QQ 20147578

TOP

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

TOP

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进程就好了,改为寻找这个进程就更人性化了,谢谢

TOP

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盘

QQ 20147578

TOP

返回列表