1
Close Application Script für Windows Applikation
Hallo zusammen,
ich habe eine Windowsapplikation die ich mittels einem Script schliessen möchte.
Soweit ich weiss eignet sich VB oder VBS für sowas. Jedoch weiss ich nicht wie ich das ganze angehen soll, da ich keine Ahnung von VB habe.
Ich bin also auf eure Unterstützung angewiesen und würde mich sehr freuen falls ich den einen oder anderen Tipp bekommen könnte.
Gruß,
Michael
ich habe eine Windowsapplikation die ich mittels einem Script schliessen möchte.
Soweit ich weiss eignet sich VB oder VBS für sowas. Jedoch weiss ich nicht wie ich das ganze angehen soll, da ich keine Ahnung von VB habe.
Ich bin also auf eure Unterstützung angewiesen und würde mich sehr freuen falls ich den einen oder anderen Tipp bekommen könnte.
Gruß,
Michael
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 26250
Url: https://administrator.de/contentid/26250
Printed on: May 7, 2024 at 04:05 o'clock
1 Comment
Hallo,
das ist nicht viel an Informationen, die Du da lieferst.
Nomalerweise wird in VBS eine Application beim beenden eines Scripts automatsch geschlossen, wenn sie im Script auch geöffnet wurde.
Ansonsten kannst Du mal versuchen mit:
[name].vbs
snip
Set WshShell = WScript.CreateObject("WScript.Shell")
Set owmi = GetObject("winmgmts:")
Set Task = owmi.ExecQuery("select * from win32_process")
On Error Resume Next
For Each objekt in Task
If objekt.Name = "Name der Application" Then 'hier muß genau die Bezeichnung rein, die Dir z.B. über "Strg+Alt+Enf" angezeigt wird.
WshShell.AppActivate(objekt.processID)
objekt.Terminate 0
Err.Clear
Exit For
End If
next
WScript.Quit
snip
Mfg maneich
das ist nicht viel an Informationen, die Du da lieferst.
Nomalerweise wird in VBS eine Application beim beenden eines Scripts automatsch geschlossen, wenn sie im Script auch geöffnet wurde.
Ansonsten kannst Du mal versuchen mit:
[name].vbs
snip
Set WshShell = WScript.CreateObject("WScript.Shell")
Set owmi = GetObject("winmgmts:")
Set Task = owmi.ExecQuery("select * from win32_process")
On Error Resume Next
For Each objekt in Task
If objekt.Name = "Name der Application" Then 'hier muß genau die Bezeichnung rein, die Dir z.B. über "Strg+Alt+Enf" angezeigt wird.
WshShell.AppActivate(objekt.processID)
objekt.Terminate 0
Err.Clear
Exit For
End If
next
WScript.Quit
snip
Mfg maneich
