vbscript automatisch erkennen, die Fenster öffnen und schließen ODER Google Apps-Skript zu Steuern, form submit button

Habe ich In der Vergangenheit verwendet das Skript unten, um zu erkennen, ob ein aktives Fenster mit dem Titel "Remote-Desktop" ist oder nicht aktiv ist. Wenn es nicht aktiv ist wird das script automatisch starten oder machen es wieder aktiv.

Frage: gibt es eine Möglichkeit zu erkennen, ob ein Fenster aktiv ist und auto close? Ich bin die Einrichtung eines kiosk im chrome-kiosk-Modus auf einem Windows 7-Maschine für unser Büro. Die Hauptseite startet ein ausgewähltes Google-Formular in einem pop-up-Fenster. Die form der Bestätigung-Seite hat den Titel "Thank you!" in der Titelleiste. Gibt es eine Möglichkeit für das Skript zur automatischen Erkennung dieses Fenster und schließen Sie es? Das wäre nett, weil die Benutzer sehen, dass Ihre Antworten eingereicht wurde (für eine Sekunde oder zwei), aber wenn Sie nicht das Fenster zu schließen, es würde nicht offen bleiben, wenn der nächste user geht zur Nutzung der kiosk.

Weitere option könnte sein, wenn es einen Weg gibt, um ein Google-script auf dem Formular, um das Programm der submit-button um das Fenster zu schließen. Ich bin mir nicht sicher, ob das möglich ist.

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

Wenn das Fenster, ich brauche geschlossen aktiv ist und dann das folgende Skript lief, das Fenster zu schließen. Es ist fast so, wie ich brauchen, um Stück die oberen und unteren code hier zusammen, um zu erreichen, was ich brauche, aber ich bin mir nicht sicher, wie.
Dim oShell

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

Ich versuche zu finden, ein script ausgeführt wird, auf Start und warten Sie, bis ein Fenster mit einem bestimmten Titel zu öffnen und dann schließen Sie es, sobald es erkannt wird. Noch besser wäre es, wenn ich kontrollieren konnte, wie lange das Fenster bleibt offen, sobald Sie entdeckt wird, aber wenn ich könnte nur erhalten, es zu schließen, würde ausreichen.

Ich glaube, ich habe eine gute Lösung gefunden. Ich fand dieser Beitrag und modifiziert die Antwort. Erkennt jemand irgendwelche Probleme mit dieser?

' 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 

InformationsquelleAutor user2116516 | 2013-11-07