Inilah cara unik nembak cewek
atau menyatakan cinta dengan aplikasi sederhana melalui Notepad yang
bisa kita buat sendiri. Cara ini lumayan unik dan keren, apalagi dijalankan di
komputer dengan sebuah aplikasi. Dijamin 99,9% work! Kalau gak work ya komputer
anda yang bermasalah.
Caranya buka notepad di komputer anda (klik Start, Programs, Accessories,
Notepad), lalu ketikan pada Notepad:
Dim Jika
Jika = InputBox ("Hi pesek.. sejak pertama kali Randy kenal dan melewati hari demi hari sama Pesek, Randy selalu merasa nyaman sama Pesek. Karena itu Randy mau Pesek selalu menghiasi hari-harinya randy, Maukah Pesek jadi PACARnya Randy ??? 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... Mmuauahhh.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay Gak papa T_T"
Else
MsgBox "Pesek belom masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak, ketik jawabannya yah ^_^ "
End If
Jika = InputBox ("Hi pesek.. sejak pertama kali Randy kenal dan melewati hari demi hari sama Pesek, Randy selalu merasa nyaman sama Pesek. Karena itu Randy mau Pesek selalu menghiasi hari-harinya randy, Maukah Pesek jadi PACARnya Randy ??? 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... Mmuauahhh.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay Gak papa T_T"
Else
MsgBox "Pesek belom masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak, ketik jawabannya yah ^_^ "
End If
*Ubah nama Pesek 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.
Tidak ada komentar:
Posting Komentar