Membuat Pesan Cinta Menggunakan Notepad
Ok sob langsung aja ane mau membagikan sebuah tips kepada enteente semua, tips apakah itu? Tips ini agak sedikit gokiel dan seru, yaitu cara membuat pesan cinta menggunakan script dan cara membuatnya hanya dengan menggunakan aplikasi Notepad.
Nah, kira kira seperti itulah demonya . Cara membuatnya :
1. Buka aplikasi Notepad.
2. Kemudian masukkan script dibawah ini ke notepad yang sobat buka.
Dim RAif
RAif = InputBox ("Hallo, aku sayang sama kamu. Apa kamu memiliki rasa yang sama?
Kaloiya jawab Y dan kalo engga jawab N")
If UCase(RAif) = "Y" Then
MsgBox " aku akan menjaga hatimu dan setia kepadamu sayang :* "
ElseIf UCase(RAif) = "N" Then
MsgBox "Mungkin aku bukan yang terbaik untukmu =___________="
Else MsgBox "Kenapa ga coba bilang aja sejujurnya aja sih ? :("
End If
RAif = InputBox ("Hallo, aku sayang sama kamu. Apa kamu memiliki rasa yang sama?
Kaloiya jawab Y dan kalo engga jawab N")
If UCase(RAif) = "Y" Then
MsgBox " aku akan menjaga hatimu dan setia kepadamu sayang :* "
ElseIf UCase(RAif) = "N" Then
MsgBox "Mungkin aku bukan yang terbaik untukmu =___________="
Else MsgBox "Kenapa ga coba bilang aja sejujurnya aja sih ? :("
End If
3. Simpan script diatas dengan format .vbs contohnya pesan.vbs
4. Gunakan extensi All Files pada saat menyimpan.
Nah sekarang pesan cinta sudah jadi, sobat hanya perlu double klik saja untuk mengeksekusi pesan tersebut. Oiya sobat, pesan yang berwarna merah diatas, bisa diganti dengan kata-kata sesuai dengan keinginan sobat.
Oke, cukup sekian semoga bermanfaat dan Terima kasih ^-^
0 comments: