批处理之家 - Powered by Discuz! Board

标题: [问题求助] 这个关闭窗口的VBS代码错在哪？ [打印本页]

作者: ww0000 时间: 2013-1-21 15:17 标题: 这个关闭窗口的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

作者: czjt1234 时间: 2013-1-22 09:17

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

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

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

可以改用objWs.Popup

Dim objws,folders
Set objws=WScript.CreateObject("wscript.shell")
Set shell = CreateObject("Shell.Application")
folders="百度一下;我的电脑"
strfolder=Split(folders,";",-1,1)
Do
    For Each f In strfolder
        For Each window In shell.Windows
             if window.locationname = f Then
                 objWs.Popup "5秒钟后将关闭" & f, 5
                 window.quit
             End If
        Next
    Next
    WScript.Sleep 1000
Loop
复制代码

作者: ww0000 时间: 2013-1-22 10:13

回复 2# czjt1234

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

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