Vbs Warning Message

MsgBox "Are You Ready", 0, "Warnig "
MsgBox "Are You Ready", 1, "Warnig "
MsgBox "Are You Ready", 2, "Warnig "
MsgBox "Are You Ready", 3, "Warnig "
MsgBox "Are You Ready", 4, "Warnig "
MsgBox "Are You Ready", 5, "Warnig "
MsgBox "Are You Ready", 16, "Warnig "
MsgBox "Are You Ready", 32, "Warnig "
MsgBox "Are You Ready", 48, "Warnig "
MsgBox "Are You Ready", 64, "Warnig "
MsgBox "Are You Ready", 256, "Warnig "
MsgBox "Are You Ready", 512, "Warnig "
MsgBox "Are You Ready", 768, "Warnig "
MsgBox "Are You Ready", 4096, "Warnig "

application code

for example 1 vbs warning message

Dim vResult
Dim objShell
vResult = MsgBox("Are you sure open Wordpad", _
vbYesNo + vbQuestion + vbDefaultButton2 + vbApplicationModal, _
"Open Aplikasi")
If vResult = vbyes Then

Set objShell = CreateObject("WScript.Shell")
objShell.Run "Wordpad"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "^B"
Wscript.Sleep 500
objShell.SendKeys "WelcomeI  "
Wscript.Sleep 500
objShell.SendKeys "To The "
Wscript.Sleep 500
objShell.SendKeys "Worpad"
else
msgbox "thanks for to the attetion"
End If

save as a ekstension vbs( example1.vbs)

for example 2 vbs warning message
 
Dim vResult
Dim objShell
vResult = MsgBox ("pesan peringatan " & _
"pesan ini hanya di tujuan kan untuk kamu" & vbCrLf & _
"untuk mengetaui apakah program ini jalan atau tidak:" & vbCrLf & vbCrLf & _
vbTab & vbTab & vbTab & "yopi bebeckh" & vbCrLf & vbCrLf & _
"apakah kamu ingin melanjtukan proses?", _
vbYesNo + vbExclamation + vbDefaultButton2, _
"peringatan")
if vResult=vbyes then
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Wordpad"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "{TAB}"
Wscript.Sleep 500
objShell.SendKeys "^B"
Wscript.Sleep 500
objShell.SendKeys "WelcomeI  "
Wscript.Sleep 500
objShell.SendKeys "To The "
Wscript.Sleep 500
objShell.SendKeys "Worpad" 
else
msgbox "thanks for to the attetion"
End If

save as a ekstension vbs( example1.vbs)