Fråga : PPT Taskkill befaller VBS MsgBox

Jag behöver att tillfoga en byte befaller till den nedanföra MsgBoxen. Om användaren klickar annulleringen mig, önska ppten på det skrivbords- till stop.

Here är byten befaller: strMbox för Taskkill /f /im POWERPNT.EXE

Dim strMbox


= MsgBox (”du har 10 dagar som tar utbildningen, eller ditt ska konto låsas. Klicka REKO för att starta utbildningen eller för att klicka annulleringen för att ta utbildningen på den nästa inloggningen. ” vbQuestion för _
+ vbOKCancel, ”för VIKTIG
ombudutbildning” för _
) " klar "

Svar : PPT Taskkill befaller VBS MsgBox

Tillfoga så därefter detta till din förklarade variabel:
Dunkel oShell

Tillfoga därefter detta under jumbon fodrar av ditt skrivar:

Om strMbox = ”vbcancel” därefter
Fastställd oShell = WScript.CreateObject (”WSCript.shell”)
oShell.run ”cmd /c Taskkill /f /im POWERPNT.EXE”,
Fastställd oShell = ingenting
Avsluta om