Frage von ssjdb, 24

vbs script aber wie?

heyo . ne frage: ich brauch einen vbs script der ein programm beendet wenn man yes oder ok drückt und bei cancel das programm laufen lässt. also wenn man exit drückt wird man in eine vbs box gebracht wo steht titel:End of game und die frage are you sure also wenn man yes drückt soll sich der prozess beenden:wie geht das?!

Antwort
von Suboptimierer, 20

Den Unterschied zwischen "No" und "Cancel" habe ich nicht verstanden.

Die meisten Programm lassen sich mit [Alt]+F4 beenden.

Beispiel:

Dim oShell
If MsgBox("notepad 'Unbenannt' beenden?", vbYesNoCancel) = vbyes Then
  Set oShell = CreateObject("WScript.Shell")
  oShell.AppActivate "Unbenannt"
  WScript.Sleep 100
  oShell.SendKeys "%{F4}"
End If
Kommentar von finn1123 ,

Der Unterschied ist auch egal. Es endet automatisch, wenn das Script zu Ende ist.

Kommentar von Suboptimierer ,

Es gibt Fälle, da ergibt eine Unterscheidung Sinn.

"Sind Sie weiblich?"
Ja Nein Abbrechen

Ja → Hallo Frau XY
Nein → Hallo Herr XY
Abbrechen → Script beenden 

Antwort
von finn1123, 12

Am Beispiel von Firefox:

If Msgbox("Wollen sie Firefox beenden?", 3, "Firefox beenden") = 6 Then
Set WshShell = WScript.CreateObject("WScript.Shell")
If WshShell.AppActivate("Mozilla Firefox") Then
WScript.Sleep 100
WshShell.SendKeys "%{F4}"
End if
End if

Hat lange gedauert...

Kommentar von finn1123 ,

P.S.:Funktioniert, selbst getestet!

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten