Nembak cewek pake Script

-Buka Notepad

lalu kita Tulis Seperti ini 

Ini contoh nya :

 Dim Jika

Jika = InputBox (" Mau Enggak jadi Pacar saya  Ya/TIDAK ")

If UCase(Jika) = "YA" Then

MsgBox " Kita Resmi jadi sepasang kekasih wkwkwkw :D "

ElseIf UCase(Jika) = "TIDAK" Then

MsgBox " suatu saat saya akan berusaha untuk mendapatkan mu ;("

Else

MsgBox " Jawab dong , please :) "

End If

Ubah saja Huruf yang berwarna merah Dengan kata kata sesukamu

jika sudah selesai save As . Ubah format dari *txt menjadi All files jika sudah 

save dengan .vbs contoh Resa.vbs di belakang judul di tulis dengan .vbs

Semoga Bermanfaat. 

By: -Resa Septian