Bikin Message Box Info
He he he.....sobat tidak perlu ragu jika loe lagi jatuh cinta, semunya khan berjalan baik-baik ja kok. Yang penting kita mempunyai keberanian untuk mengungkapkan rasa. Tapi jika masih malu-malu, ne ada sedikit trik dan mudah-mudahan bisa membantu kawan2 semua.
Untuk menjalankan trik ini, yang kita butuhkan adalah sebuah notepad. Lho kok notepad?????? He he he.....
sebenarnya guna dari notepad adalah untuk membuat surat cinta digital yang akan kita poles dikit dengan memakai visual basic script. Agar lebih jelas, copy code berikut ini kedalam notepad. Utak atik aj sendiri yaaa:
= = = = = = = copy here = = = = = = = =
done=inputbox("Tolong isi nama :") _
& vbCrLf & _
msgbox("Hallo sayang,mau donlot lagu/aplikasi?.....",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("atau mau film2 syuur?",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("kunjungi aja http://gratisdownloadguntur.blogspot.com",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("kini anda gak pusing2 buang waktu kan?",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("Ayo kapan lagi...",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("Jangan Sampai buang waktumu dng cari2 alamat yang gak jelas!!,",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
msgbox("Selamat Berkunjung yaa.. http://gratisdownloadguntur.blogspot.com",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com") _
& vbCrLf & _
done=msgbox("I LOVE YOU CINTA!",VBINFORMATION,"http://gratisdownloadguntur.blogspot.com")
= = = = = = = = = End here = = = = = = = = =
Kalau udah siap simpan dengan nama "apasaja.vbs" tanpa tanda kutip
Dikutip dari http://hadissoft.blogspot.com/2009/06/say-i-love-you-ala-hadissofs.html
