Tampil Beda Menembak Cewek Dengan Progam Notepad
Caranya buka notepad di komputer anda (klik Start, Programs, Accessories, Notepad), lalu ketikan pada Notepad:
Dim Jika
Jika = InputBox ("Ami mas sayang bnget sama kamu, mas cinta banget,sejak pertama kali mas kenal sama Ami dan yang pasti mas seneng banget bisa kenal Ami... , tapi yang pasti ini mas buat cuman buat buktiin kalo mas sayang bnget sama Ami. Sekarang Ami mau gak jadi pacar mas? ketik Y untuk ya or T untuk tidak.., lalu klik OK ya ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya Sayank... Love You Always, Number One For Me Deh... Emmuaccch.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP ^_^"
Else
MsgBox "Ami belom masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak kok, ketik jawabannya yah ^_^ "
End If
Jika = InputBox ("Ami mas sayang bnget sama kamu, mas cinta banget,sejak pertama kali mas kenal sama Ami dan yang pasti mas seneng banget bisa kenal Ami... , tapi yang pasti ini mas buat cuman buat buktiin kalo mas sayang bnget sama Ami. Sekarang Ami mau gak jadi pacar mas? ketik Y untuk ya or T untuk tidak.., lalu klik OK ya ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya Sayank... Love You Always, Number One For Me Deh... Emmuaccch.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP ^_^"
Else
MsgBox "Ami belom masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak kok, ketik jawabannya yah ^_^ "
End If
*Ubah nama Ami menjadi nama seseorang yang anda tuju, atau anda juga bisa menggati kalimatnya.
Kemudian save dengan format cinta.vbs*Ketika save pilih "All Files" ya, sekarang jalankan program dengan klik dua kali lihat apa yang terjadi.
Semoga bermanfaat!
contoh download disni
0 komentar:
Posting Komentar