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

ww0000

以下是判断打开的窗口,如是条件成立就出现提示框,并在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

ww0000

回复 2# czjt1234


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