Bagaimana cara mengkonfigurasi tindakan kondisional dengan input pengguna di VBS dengan MsgBox?

Hari ini saya mulai mencoba membuat kotak Dialog kustom saya sendiri untuk Windows. Saya dapat menggunakan pintasan / wscript.exe untuk menjalankan file VBS dengan yang berikut: (abaikan dialog. Saya tahu bahwa Drive C: tidak akan dihapus dan saya tidak bermaksud untuk itu terjadi. Ini hanya berlatih sebelum saya membuat yang bermanfaat.)

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

Skrip saya berfungsi hingga saat ini, seperti yang ditunjukkan di bawah ini:

Tetapi ketika saya mengklik OK atau Batal pada saat ini, maka saya mendapatkan kesalahan. Di masa lalu, mengklik OK atau Batal baru saja menutup ini sepenuhnya, tapi sekarang saya mendapatkan kesalahan run-time, yang saya pikir lebih baik daripada tidak sama sekali. Namun, kesalahan tidak membantu saya.

Option Explicit
x=MsgBox("Proceeding will wipe the contents of your C: Drive. Proceed?", 1+48, "Format Drive C:")
If x=1 Then
y=MsgBox("The contents of your C: Drive could not be successfully deleted.", 0+64, "Error Formatting Drive C: - System Error 5")
If x=2 Then
x=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")

Jika saya menambahkan "instruksi" untuk apa yang harus terjadi selanjutnya, maka saya mendapatkan kesalahan ketika saya membuka file dan saya tidak bisa melakukan apa-apa sama sekali

Saya sudah mencoba mengubah banyak kode. Saya telah mencoba menggunakan redup, menghapus x, mendefinisikan suatu variabel, mendefinisikan kotak pesan berikutnya sebagai variabel, menghapus tanda kurung, dll ... Saya baru mulai menulis file VBS saya sendiri hari ini, tetapi saya telah melakukan skrip batch dengan file .bat untuk waktu yang lama. Bahkan dengan perubahan bahasa, semua pemecahan masalah saya telah membawa saya ke mana-mana, dan saya hampir yakin bahwa saya telah mendefinisikan variabel dengan benar.

Adakah yang bisa memberi tahu saya jika saya melakukan ini dengan benar? Saya telah mencoba banyak contoh, tetapi bahkan Webpage Resmi Microsoft di VBS-MsgBox tidak berguna. Saya minta maaf sebelumnya jika saya melakukan kesalahan bodoh di suatu tempat, tetapi saya telah mengubah hampir semua kode dan saya masih terjebak.

Bantuan apa pun akan sangat dihargai. Saya sudah menghabiskan 4 jam mencoba untuk memperbaiki masalah yang satu ini.

— Tautan Terjalin
sumber

Masalah khusus untuk pemrograman dan pengembangan perangkat lunak adalah di luar topik, lihat On-Topik . Coba Stack Overflow tapi tolong baca dulu Bagaimana cara saya mengajukan pertanyaan yang bagus? .

— DavidPostill

Anda perlu mendeklarasikan variabel Anda VBScript Variables

— DavidPostill

Maaf jika itu di luar topik, tetapi saya memeriksa situs-situs Stack Exchange lainnya terlebih dahulu dan situs web ini sudah memiliki banyak pertanyaan VBS

— InterLinked

Stack Overflow stackoverflow.com/questions/tagged/vbscript 12848 Pengguna super superuser.com/questions/tagged/vbscript 233

— DavidPostill

@DavidPostill Terima kasih atas tautannya. Setidaknya sekarang saya tahu. Saya juga mencoba menggunakan redup untuk mendefinisikan x, dan itu masih tidak berhasil

— InterLinked

Cobalah contoh ini:

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

Untuk informasi lebih lanjut tentang Konstanta MsgBox

— Hackoo
sumber