Seorang cowok pasti pernah merasakan
jatuh cinta kepada setiap pasangannya, namun kali ini saya share tentang cara
menembak cewek dengan sebuah Flashdisk, Aneh Kan …. Namun, di jaman sekarang
anak muda perlu berkreasi seiring dengan tumbuhnya perkembangan teknologi
computer…
Cara’nya :
1. Buka Notepad ato Editor sejenisnya
2. Copas kode dibawah ini ke notepad tersebut
Dim Jika
Jika = InputBox ("Hemmp, owh ya . tekan 'Y' buat jawab iya dan tekan 'T' buat jawab tidak .. di jawab ya manis :) ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya manis... Love You Always, Number One For Me Deh... Emmuaccch.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP ^_^"
Else
MsgBox "manis kok belom masukin jawabannya , Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak , ketik jawabannya yah ^_^ "
End If
3. Save file dengan nama cinta.vbs dan filih type All FileJika = InputBox ("Hemmp, owh ya . tekan 'Y' buat jawab iya dan tekan 'T' buat jawab tidak .. di jawab ya manis :) ")
If UCase(Jika) = "Y" Then
MsgBox "Makasih ya manis... Love You Always, Number One For Me Deh... Emmuaccch.. :*"
ElseIf UCase(Jika) = "T" Then
MsgBox "Its Okay GPP ^_^"
Else
MsgBox "manis kok belom masukin jawabannya , Pilihan hanya 'Y' untuk ya atau 'T' untuk tidak , ketik jawabannya yah ^_^ "
End If
Setelah file dibuat dan dimasukan kedalam flashdisk,
kasihkan pada target kita dan suruh dia buka file tersebut di komputernya
Semoga Sukses..!
06.41
Rochmatt Nh (Noey)

Posted in: 


0 komentar:
Posting Komentar