facebook virus sekadar gurauan

ingat virus ini bukan betul hanya untuk brgurau dngn kwan SAHAJA
COPY di notepad dngn nma ape ape sahaja tapi msti ada contoh tangan hitam crew.vbs
msti ada .vbs





copy code 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..!"