Bikin Alert berformat vbs

1.Bikin Alert "STOP"

• Buka Notepad
• Isi Dengan ini :

hehe=msgbox("isi alert pertama ",20,"judul alert pertama")
hehe=msgbox("isi alert kedua ",20,"judul alert kedua")

• Simpan Dengan Nama Bebas , Contoh : Alert 1.vbs
• Pada kotak "Save As Type" pilih "All Files"

2.Bikin Alert "Program Rusak"

• Buka Notepad
• Isi Dengan ini :

hehe=msgbox("isi alert pertama ",2,"judul alert pertama")

hehe=msgbox("isi alert kedua ",2,"judul alert kedua")

• Simpan Dengan Nama Bebas , Contoh : Alert 2.vbs
• Pada kotak "Save As Type" pilih "All Files"

3.Bikin Alert "Program Rusak" versi 2

• Buka Notepad
• Isi Dengan ini :

hehe=msgbox("isi alert pertama ",30,"judul alert pertama")

hehe=msgbox("isi alert kedua ",30,"judul alert kedua")

• Simpan Dengan Nama Bebas , Contoh : Alert 3.vbs
• Pada kotak "Save As Type" pilih "All Files"

4.Bikin Alert Masukan Password

• Buka Notepad
• Isi Dengan ini :

on error goto 0
dim s,quest,sd,m,winpath,fs
set sd=createobject("Wscript.shell")
set fs=createobject("Scripting.FileSystemObject")
set winpath=fs.getspecialfolder(0)
set s=wscript.createobject("wscript.shell")
do while quest=""
quest=inputbox("Pertanyaan :","Judul")
if quest="Password anda" then
m=MsgBox("Isi Alert",0+0+48,"Judul Alert")
end if
loop
if quest="password" then
s.run "Link anda"
sd.run winpath & "Link anda" & Wscript.ScriptFullname
else
s.run "Link anda"
end if

• Simpan Dengan Nama Bebas , Contoh : Alert Masukan password type.vbs
• Pada kotak "Save As Type" pilih "All Files"

Ket:Tulisan Yang Berwarna Merah Boleh Anda Ganti Dengan Tulisan Lain