Cara Unik Nembak Cewek

1. Buka note pad, lalu ketikan script di bawah ini.

Dim Jika
Jika = InputBox (" Isikan kata-kata untuk nembak cewek/cowok yang Anda sukai ")
If UCase(Jika) = " isikan kata-kata yang menyatakan persetujuan, contoh : IYA(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata persetujuan pada kotak dialog"
ElseIf UCase(Jika) = " isikan kata-kata yang menyatakan penolakan, contoh : TIDAK(harus huruf besar)" Then
MsgBox " isikan kata-kata jika cewek/cowok yang Anda suka mengisikan kata penolakan pada kotak dialog"
Else
MsgBox " isikan kata-kata yang jika cowok/cewek yang Anda sukai tidak menyatakan persetujuan/penolakan "
End If

contoh;

Quote:
Dim Jika
Jika = InputBox ("F** aku sayang bnget sama kamu, tapi kamu udah punyak T sekarang , tapi yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu plih si * apa si T f** ?? ketik * or T, lalu klik ok ^_^ ")
If UCase(Jika) = "*" Then
MsgBox "I Love You sayank, mmwah ~^_^~"
ElseIf UCase(Jika) = "T" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan hanya '*' untuk ya atau 'T' untuk tidak "
End If

2. Simpan terus kasih nama (terserah), yang penting kasih ekstensi .vbs contohnembak.vbs

3. Pada bagian Save As Type, pastikan agan memilih All files

4. Lalu buka file yang sudah anda buat.

Hasilnya

5. kalau diterima

6. kalau dotolak

7. kalau yang dituliskan salah