批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS关闭我的电脑的“被调用的对象已与其客户端断开连接”错误如何解决？ [打印本页]

作者: ww0000 时间: 2013-1-23 10:41 标题: VBS关闭我的电脑的“被调用的对象已与其客户端断开连接”错误如何解决？

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

以上是监控“我的电脑”的脚本，一打开“我的电脑”，就会出现提示框，5秒后关闭；
但出现的问题是：如果没等5秒后脚本关闭“我的电脑”，而是自己在5秒内手动关闭“我的电脑”，那么，就会出现“ 被调用的对象已与其客户端断开连接”的提示，并退出脚本，这个问题如何解决？

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