1. Buka
atau jalankan aplikasi Notepad.
2.
Masukkan atau Copy teks bercetak tebal berikut dan paste ke Notepad:
Dim Jika
Jika =
InputBox ("Rere sebenarnya saya suka banget sama kamu dari awal kita digosipin sampai
sekarang, dari pertama kita bertemu dulu sampai saat ini kita udah ngelewati masa-masa sekolah. Saya mau tanya, mau gak rere jadi pacar saya, Jadian gitu? Kamu ketik Y
untuk ya or T untuk tidak,,, lalu klik OK ya ^_^ ")
If
UCase(Jika) = "Y" Then
MsgBox
"Makasih ya semok, Love You always semok :D"
ElseIf
UCase(Jika) = "T" Then
MsgBox
"Its Okay GPP ^_^ "
Else
MsgBox
"Re kamu belum masukin jawabannya, pilih 'Y' untuk ya atau 'T' untuk tidak
kok, ketik jawabannya yah ^_^ "
End If
3. Untuk
kalimat Input dan kalimat lain yang ada di dalam kutip bisa sobat ubah sesuai
keperluan sobat.
4.
Kemudian save menggunakan "Save as". Sewaktu ngesave, isi nama
filenya menjadi "blabla.vbs". Kata "blabla" bisa diganti
dengan kata lain tapi kata ".vbs" jangan diganti. Kemudian pada kotak
Save as type, anda ganti menjadi "All files". Kemudian klik save.
Sumber: baca dari blog lain,, lupa alamatnya, maaf gk di cantumkan.
Tidak ada komentar:
Posting Komentar