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

[问题求助] 这个关闭窗口的VBS代码错在哪?

以下是判断打开的窗口,如是条件成立就出现提示框,并在10秒关闭窗口,但我试了,通判断和提示,但不能关闭!哪位改一下!
Dim objws,folders
Set objws=WScript.CreateObject("wscript.shell")
folders="百度一下;我的电脑"
strfolder=Split(folders,";",-1,1)
Do
        For Each f In strfolder
                If objws.AppActivate(f)=True Then
                        MsgBox "10秒钟后将关闭" & f
                Wscript.Sleep 1000
                f.Quit
                End If
        Next
        WScript.Sleep 1000
Loop
1

评分人数

    • batman: 请把超过一行的代码用code标签括起来PB -2

回复 2# czjt1234


    谢谢,能用!!!你真厉害!向你学习!

TOP

f.Quit
这个Quit是 Shell.Application 对象的 windows 属性创建的对象集合里的对象的方法
而你现在的 f,只是一个字符串,所以不能用 Quit 方法关闭窗口

Wscript.Sleep 1000
这个是延时1秒,延时10秒要这样
Wscript.Sleep 1000 * 10

如果你用Msgbox提醒,那么如果别人不点确定,那么窗口就不会关闭

可以改用objWs.Popup
  1. Dim objws,folders
  2. Set objws=WScript.CreateObject("wscript.shell")
  3. Set shell = CreateObject("Shell.Application")
  4. folders="百度一下;我的电脑"
  5. strfolder=Split(folders,";",-1,1)
  6. Do
  7.     For Each f In strfolder
  8.         For Each window In shell.Windows
  9.              if window.locationname = f Then
  10.                  objWs.Popup "5秒钟后将关闭" & f, 5
  11.                  window.quit
  12.              End If
  13.         Next
  14.     Next
  15.     WScript.Sleep 1000
  16. Loop
复制代码
1

评分人数


QQ 20147578

TOP

返回列表