Sepik Cewek Sobat with Notepad

Menurut agan nembah pke notepad itu bisa enggak..?? klu menurut agan kagak bisa nah sekarang ane mo share Sepik cewek pake Notepad doang...wowkowkkw asik sob
bisa langsung di coba :



1. Buka notepad di compi agan
2. Copy kata- kata di bawah ini



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

Example :




Dim Jika
Jika = InputBox ("Avril aku sayang bnget sama kamu, tapi kamu udah punya cowok sekarang , tapi yang pasti ini aku buat cuman buat buktiin kalo aku sayang

bnget cintang bangetsama kamu. Kmu sayang aku enggak :* ..? ketik YA or TIDAK, lalu klik ok ^_^ ")
If UCase(Jika) = "YA" Then
MsgBox "I Love You sayang :*"
ElseIf UCase(Jika) = "TIDAK" Then
MsgBox "Never To Give Up ^_^"
Else
MsgBox "Pilihan Hanya YA or TIDAK by DRKCYBER4RT"
End If



3. Kemudian simpan dengan nama terserah anda yang penting kasih ekstensi .vbs. Misalnya ‘F.vbs’.
4. Jangan lupa, pada bagian Save As Type pastikan anda memilih All Files.

Sekian Trik N Tips kali ini.. :)

Share :

Tweet

✚

Related Post