Wie konfiguriere ich bedingte Aktionen mit Benutzereingaben in VBS mit MsgBox richtig?

Question

Ich habe versucht, ein VBS-Skript für eine Weile mit msgbox zu arbeiten. Wenn ich eine einzelne msgbox-Anweisung verwende, funktioniert es. Sobald ich bedingte Eingabeoptionen hinzufüge, funktioniert es nicht.

Ich schrieb diese Frage auf Super User und ich wurde aufgefordert, die "Dim" -Anweisung zu verwenden, und auf dieser Website zu veröffentlichen, und ich habe beide jetzt getan. Hier ist ein Teil des Codes, den ich versuche, der funktioniert. (Bitte ignorieren Sie meinem Beispiel.)

Option Explicit 
Dim vbsmsg, vbsyes, vbsno 
vbsmsg=MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed?", 1+48, "Format Drive C:") 

Wenn ich den obigen Code über eine Verknüpfung ausführen bekomme ich einen Dialog wie folgt aus:

Aber wenn ich folgendes hinzufügen, erhalte ich einen Laufzeitfehler wenn "OK" oder "Abbrechen"

If vbsmsg=1 Then 
    vbsyes=MsgBox("The contents of your C: Drive could not be successfully deleted.", 0+64, "Error Formatting Drive C: - System Error 5") 
If vbsmsg=2 Then 
    vbsno=MsgBox("Not all of the contents of your C: Drive were successfully deleted. Please try again.", 0+64, "Error Formatting Drive C: - System Error 303") 

die Zeile/Zeichen in dem Fehler Klick zwischen dem "0" einem d "3" in "Systemfehler 303"

Ich habe schon eine Menge Fehlersuche versucht. Ich habe versucht, die Dim-Anweisung zu ändern, die Option explizit hinzuzufügen, 1 und 2 anstelle von 6 und 8 usw. zu verwenden ... nichts scheint zu funktionieren. Als ich den zweiten Teil auskommentiert habe, anstatt einen Fehler nach dem Ausführen der Datei zu bekommen, hat es mich einfach geschlossen. Ich bin sicher, dass meine ganze Syntax korrekt und im richtigen Format ist. Ich änderte 1 und 2 zu vbOK und vbCancel und als ich es zurück änderte, würde es überhaupt nicht funktionieren und gab mir sofort den Fehler auf dieser Seite.

Wenn jemand weiß, was mit meinen Beispielen falsch ist, würde ich es sehr schätzen. Ich bin ziemlich neu in der Arbeit mit VBS-Dateien, aber ich habe mit .bat-Dateien für eine lange Zeit gearbeitet und keiner dieser Prinzipien scheint hier zu arbeiten,

Ich würde jede Unterstützung schätzen, auch wenn es klein ist,

Answer 1

diesem Beispiel probieren Sie:

Option Explicit 
Dim Title,Question 
Title = "user input in VBS with MsgBox" 
Question = MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed ?",vbYesNo+vbQuestion, Title) 
If Question = vbYes Then 
    MsgBox "We proceed wipping your C:\ drive",vbExclamation,Title 
    'Call your sub here to continue proceeding your script 
Else 
    MsgBox "Canceling the operation !",vbCritical,Title 
    Wscript.Quit() 
End If 

weitere Informationen über MsgBox Constants

Answer 2

Während @Hackoo'sanswer t echnisch korrekt beantwortet es nicht die initial question, also werde ich versuchen, hier.

Der Grund für den Fehler

Microsoft VBScript compilation error: Expected 'End'

ist aufgrund der If Aussage über mehr dann eine Zeile ohne End If den Anweisungsblock zu beenden, wie in @Hackoo's Beispiel End If Zugabe wird diesen Fehler korrigieren.

Wenn Sie aus irgendeinem Grund die Syntax verdichten wollten, waren Sie nicht weit entfernt. Sie hatten zwei Möglichkeiten;

1. Setzen Sie die If Aussagen auf einer Zeile

   Option Explicit 
   Dim vbsmsg 
   vbsmsg = MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed?", vbYesNo + vbQuestion, "Format Drive C:") 
   
   If vbsmsg = vbYes Then Call MsgBox("The contents of your C: Drive could not be successfully deleted.", vbExclamation, "Error Formatting Drive C: - System Error 5") 
   If vbsmsg = vbNo Then Call MsgBox("Not all of the contents of your C: Drive were successfully deleted. Please try again.", vbCritical, "Error Formatting Drive C: - System Error 303") 
   

   , die ein wenig hässlich Blick auf manchmal schwer zu folgen sein können (aber das ist nur meine Meinung).

2. Verwenden Sie das Linienfortsetzungszeichen (_) eine einzige Aussage zu ermöglichen, auch bekannt wird dies als Statement Break in VBScript mehrere Zeilen, zu überspannen.

   Option Explicit 
   Dim vbsmsg 
   vbsmsg = MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed?", vbYesNo + vbQuestion, "Format Drive C:") 
   
   If vbsmsg = vbYes Then _ 
       Call MsgBox("The contents of your C: Drive could not be successfully deleted.", vbExclamation, "Error Formatting Drive C: - System Error 5") 
   If vbsmsg = vbNo Then _ 
       Call MsgBox("Not all of the contents of your C: Drive were successfully deleted. Please try again.", vbCritical, "Error Formatting Drive C: - System Error 303") 
   

Wie bereits erwähnt ist es selbstverständlich, dass Sie die VBScript benannte Konstanten in Code zu verwenden, sollten sich bemühen, statt hart codierten Zahlenwerte, wo immer möglich.