Banyak cara untuk mengungkapkan perasaan kita kepada cewek/cowok yang kita sukai. Salah satunya dengan script yg satu ini. Anda bisa mengajukan pertanyaan dgn meng edit script nya, misal "Kamu mau nggak jadi pacar q?".Lalu si target akan menuliskan jawaban dari 2 pilihan "Y" untuk ya atau "T" untuk tidak. Jika anda tertarik untuk mencobanya, Bukalah Notepad kemudian Anda ketik atau copy script dibawah 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 :
Dim Jika
Jika = InputBox ("Fulanah aku sayang bnget sama kamu, yng pasti ini aku buat cuman buat buktiin kalo aku sayang bnget sama kamu. Sekarang kamu kamu mau nggak jadi pacar q ?? ketik Y (untuk ya) or T (untuk tidak), lalu klik ok ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "I Love You sayank, mmwah ~^_^~"
ElseIf UCase(Jika) = "T" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak "
End If
Simpan dengan format nama ".vbs" contoh "Fulanah.vbs"
Copy kan file tersebut (dalam contoh di atas “Fulanah.vbs”) ke dalam Flashdisk Anda, dan pinjamkan Flashdisk Anda kepada cowok/cewek yang Anda sukai. Dan saat dia menggunakan Flashdisk Anda, suruh cowok/cewek yang Anda sukai itu mengklik 2x file tersebut (dalam contoh di atas “Fulanah.vbs”).
