virus facebook

ini sekedar buat iseng aja ..........
dari pada bete... iseng - iseng ngerjain temen.......

copas kode di bawah

Dim code
Dim pass
pass = "hong.web.id"
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 6 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.hong.web.id"
End If
Loop Until code=pass
MsgBox "Kode diterima, Virus Facebook telah terhapus. Selamat..!"

dengan noteped

kemudian simpan dengan nama ektensi file.vbs

kalo bingung 

download aja 

di bawah ini

ini bukan virus beneran hanya sekedar iseng 

untuk pasword ngilangin virus tersebut 

ini hong.web.id