-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
0 komentar:
Posting Komentar