Virus Facebook

Bagi sobat yang suka ngejailin temen silahkan dicoba.

Dim code
Dim pass
pass = "rifai.com"
MsgBox "Hallo Kamu telah terinfeksi Virus Facebook!!. Waktu anda tinggal 3 hari lagi sebelum password Facebook anda diganti. Waktu 3hari anda dimulai: " & Time, 16, "Facebook Virus"
Do
code = InputBox("Masukkan 8 angka penangkal virus Facebook.", "Virus Facebook Removal")
If code<>pass Then
MsgBox "Kode " & code & " Salah!!. Jika anda mau tau kata kunci untuk menghapus virus ini. Kunjungi website: http://www.ahririfai.blogspot.com"
End If
Loop Until code=pass
MsgBox "Kode diterima, Virus Facebook telah terhapus. Selamat..!"

caranya silahkan buka notepad anda lalu copas kode diatas, simpan dengan ekstensi .vbs
selamat mencoba ( ^-^ )


ingat ini bukan virus beneran, cuma buat usil2an aja.password untuk menggagalkan virus facebook : rifai.com

sumber