Nembak Cewek/Cowok Pake Flashdisk

Sobat timbol, sekarang ini jamannya udah serba teknologi,,,
Hmmm kalo nembak gebetan pake bunga, coklat, atau puisi itu kayaknya dah kuno. Kali ini timbol mau berbagi Tips untuk nembak gebetan dengan cara moderen yaitu dengan menggunakan teknologi. Dengan bermodalkan sebuah Flasdisk dan hasilnya pasti sangat ROMANTIS. OK dech gak usah lama-lama, sekarang simak caranya di bawah ini :

 
Alat yang dibutuhkan :
- 1 buah flashdisk (ukuran bebas)   
- 1 notpad   
- Kepercayaan diri  
- Otak

Langkah - langkahnyanya :  
- Buka notpad lalu copas kode dibawah.   
- Save dg format .vbs   
- Selesai deh,, tinggal masukin ke Flashdisk

Ini kode yang perlu di save, tulisan isi/kata-kata bisa dikarang sendiri.

Dim Jika

Jika = InputBox ("Aku suka kamu, aku sungguh mencintaimu. Meski cuma lewat dunia MAYA, aku sayang kamu. Aku bakal setia kok sama kamu, maukan kamu jadi cinta sejatiku ? ketik Y untuk ya or T untuk tidak. lalu klik OK ya ^_^ ")

If UCase(Jika) = "Y" Then

MsgBox "Makasih yah... I will allwasy love you sayang,,,,... Emmuaccch.. :*"

ElseIf UCase(Jika) = "T" Then

MsgBox "Its Okay GPP, hikss,,,, ^_^  jangan lupakan aku ya sayang,.,    By: mAs timbol"

Else

MsgBox "Kamu belum masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak kok, ketik jawabannya yah ^_^ "

End If