Cara Nembak cewek dari Notepad

Nah,, langsung saja,, saya kasi scripnya..

Dim Jika
Jika = InputBox (" MAU GA JADI PACAR AKU ")
If UCase(Jika) = "IYA" Then
MsgBox "MAKASI YA"
ElseIf UCase(Jika) = "TIDAK" Then
MsgBox "GPP "
Else
MsgBox " oke, fine"
End If

heheeh,,,,langsung saja diketik di Notepad lalu simpan dengan ekstensi *.vbs...
misalnya namanya xxxy.vbs

Misalnya Anda simpan di desktop,, maka untuk membukanya,,silahkan klik 2 kali.