Cara nembak seseorang yang kita cintai lewat Notepad
1.Buka Notepad
2.Copy dan Paste kode berikut ini ke Notepad
Dim Jika
Jika = InputBox ("sejak pertama kali q berkenalan dan melewati hari demi dengan dirimu, aq selalu merasa nyaman berada di dekatmu. Karena itu aku ingin kamu selalu menghiasi hari - hariku dengan menjadi pacarku.. Mau gak kamu jadi pacar aku ? ketik Y untuk ya or T untuk tidak.. lalu klik OK ya ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih yah... Love You Always,Muacchhhh :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay gk apa² ko ^_^"
Else
MsgBox "Kamu belum masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak kok, ketik jawabannya yah ^_^ "
End If
3.Lalu pilih menu Save As pada Notepad
-Nama file terserah anda
-Tambah format .vbs setelah nama file
-Contoh: nembak seseorang.vbs
4.Klik Save
5.Masukkan file tersebut ke flashdisk
6.Lihat hasilnya
SEMOGA DI TERIMA YA ^_^
2.Copy dan Paste kode berikut ini ke Notepad
Dim Jika
Jika = InputBox ("sejak pertama kali q berkenalan dan melewati hari demi dengan dirimu, aq selalu merasa nyaman berada di dekatmu. Karena itu aku ingin kamu selalu menghiasi hari - hariku dengan menjadi pacarku.. Mau gak kamu jadi pacar aku ? ketik Y untuk ya or T untuk tidak.. lalu klik OK ya ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih yah... Love You Always,Muacchhhh :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay gk apa² ko ^_^"
Else
MsgBox "Kamu belum masukin jawabannya Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak kok, ketik jawabannya yah ^_^ "
End If
3.Lalu pilih menu Save As pada Notepad
-Nama file terserah anda
-Tambah format .vbs setelah nama file
-Contoh: nembak seseorang.vbs
4.Klik Save
5.Masukkan file tersebut ke flashdisk
6.Lihat hasilnya
SEMOGA DI TERIMA YA ^_^
Categories
:
Tutorial
bukan....
BalasHapus