بِسْمِ اللّهِ الرَّحْمَنِ الرَّحِيْمِ
Assalamu'alaikum
Selamat sore sahabat rendywira.blogspot.com. Kumaha damang? Kaifa Haluk? Gimana Kabarnya? Saya harap kalian baik-baik saja. Sudah lama ni admin ga posting, dikarenakan ada sesuatu hal yang harus dilakukan jadi ga posting-posting. -__-
Dalam kesempatan sore hari ini, admin akan membuat pesan cinta menggunakan script. Silahkan disimak. Ikuti langkah-langkah berikut ini:
Klik Start => All Programs => Accessories => Notepaad
Kemudian, copy script dibawah ini
Dim RAif RAif = InputBox ("Hallo, aku sayang sama kamu. Apa kamu memiliki rasa yang sama? Kalo iya jawab Y dan kalo engga jawab N") If UCase(RAif) = "Y" Then MsgBox " aku akan menjaga hatimu dan setia kepadamu sayang :*" ElseIf UCase(RAif) = "N" Then MsgBox "Mungkin aku bukan yang terbaik untukmu =___________=" Else MsgBox "Kenapa ga coba bilang aja sejujurnya aja sih ? :(" End If |
Simpan dengan .VBS (contoh: buatkamu.VBS
Silahkan dibuka dan dimainkan
Selamat mencoba
Cukup mudah bukan? Silahkan dicoba ^_^
Catatan: huruf yang berwarna merah silahkan diganti sesuai dengan keinginan anda