Cara mengirim Pesan ke Cewek dengan Flashdisk
Langkah Pertama :
1.Buka notepad
Contoh pesan :
Dim Jika
Jika = InputBox ("Abg sayang ucuaq,walaupun abg gak twu harus ngomong gimna.seperti embun yg jatuh ke Daun yg gk akan bisa d pertanyakan.Sekarang Ayang percaya gak sama tulusnya hati abg ? ketik Y untuk ya or N untuk tidak.., lalu klik OK ya ^_^ ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya Sayank... Love You Always, Number One For Me Deh... Emmuaccch.. :*"
ElseIf UCase(Jika) = "N" Then
MsgBox "Its Okay GPP,Mungkin cara ini bukan temaksud Romantis ^_^"
Else
MsgBox "Ayank belom masukin jawabannya Pilihan hanya 'yes' untuk ya atau 'no' untuk tidak kok, ketik jawabannya yah ^_^ "
End If
Kemudian save dengan format pesanku.vbs ketika nge save pilih "all files" ya, sekarang jalankan program dengan klik 2 kali lihat apa yang terjadi ^^
------------
kalimatnya bisa agan or sist ganti²,.^^
Good Luck

0 komentar:
Posting Komentar