5

过去，我使用下面的脚本来检测标题为“远程桌面”的活动窗口是否处于活动状态。如果它未激活，脚本将自动启动或使其再次激活。

问题：有没有办法检测窗口是否处于活动状态并自动关闭它？我正在为我们的办公室在 Windows 7 机器上设置 chrome kiosk 模式的 kiosk。主页在弹出窗口中启动选定的 Google 表单。表单确认页面的标题为“谢谢！” 在标题栏中。脚本有没有办法自动检测这个窗口并关闭它？这会很好，因为用户会看到他们的响应已提交（一两秒钟），但如果他们没有关闭窗口，当下一个用户去使用信息亭时它仍然不会打开。

如果有办法在表单上使用 Google 脚本对提交按钮进行编程以关闭窗口，则可能是另一种选择。我不确定这是否可能。

Option Explicit
'On Error Resume Next

Dim objShell

Set objShell = CreateObject("WScript.Shell")

Do 
If (objShell.AppActivate("Window Title Here") = False) Then
objShell.Run "mstsc.exe " & chr(34) & "c:\scripts\Remote Desktop.rdp" & chr(34)
WScript.Sleep 5000
Else
WScript.Sleep 3000
End If
Loop

如果我需要关闭的窗口处于活动状态，然后运行以下脚本，则窗口将关闭。这几乎就像我需要将顶部和底部代码拼凑在一起才能实现我所需要的，但我不确定如何。暗淡的外壳

Set oShell = CreateObject("WScript.Shell") 
If oShell.AppActivate("Untitled - Notepad") Then
   WScript.Sleep 500
   oShell.SendKeys "%{F4}"
End If

我正在尝试找到一个将在启动时运行的脚本，并等待具有特定标题的窗口打开，然后在检测到它后关闭它。如果我可以控制一旦检测到窗口保持打开的时间会更好，但如果我可以让它关闭就足够了。

我想我找到了一个很好的解决方案。我找到了这篇文章并修改了答案。有人看到这有什么问题吗？

' Will loop forever checking for the message every half a second  
' When it finds the message it will close the window 

Set wshShell = CreateObject("WScript.Shell") 

Do 
    ret = wshShell.AppActivate("Untitled - Notepad") 
    If ret = True Then 
        wshShell.SendKeys "%{F4}" 'ALT F4
    End If 
    WScript.Sleep 500 
Loop
4

1 回答 1

8 
Set wshShell = CreateObject("WScript.Shell") 

Do 
ret = wshShell.AppActivate("Untitled - Notepad") 
If ret = True Then 
    wshShell.SendKeys "%{F4}" 'ALT F4
End If 
WScript.Sleep 500 
Loop

我看到的唯一麻烦是Alt+F4将顺序关闭窗口，直到它想要关闭窗口本身。有点让我紧张，即使这个脚本只会检测到你给它的名字。

我尝试了该脚本，它运行良好，但是在某些窗口中使用转义键呢？

我不喜欢的另一件事是它总是在运行并占用资源。我放慢了循环速度，所以它至少会在大多数时候在后台暂停..

于 2014-05-04T23:59:03.843 回答