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)
{ 2 komentar... Views All / Send Comment! }
makasih !!! bagus bangetsg
makasih atas kunjungannya
Posting Komentar