Ane mau share sedikit ni gan cara nembak cewe pake program sederhana
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;
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 contoh nembak.vbs
3. Pada bagian Save As Type, pastikan agan memilih All files
4. Lalu buka file yang sudah agan buat. jeng… jeng.. jengg…
5. Kalau diterima
6. Kalau di tolak
7. Kalau kata yang dituliskan salah
kalau mau di simpan di FlashDisk atau CD/DVD, gampang:
ketik script dibawah ini pada notepad
[autorun]
open=namafile.vbs
terus save file dengan nama “Autorun.inf” tanpa tanda petik. jangan lupa save as type nya diubah jadi “all files”. tinggal simpen deh di FD atau CD/DVD
Sedekah cendolnya dibulan ramadhan gan hehe buat Newbie
jangan lupa