Iseng iseng lagi nih gak ada kerjaan, di lab komputer berisik banget, dosen blom nongol batang hidungnya, ngebrowsing sana sini (ngga nge-bokep loh :p), pusing ngga bisa facebook-an gara2 diblok sama admin kampus. ah daripada bete, ngerjain laptop teman ah…! yuk mulai:
Copas kode berikut, simpan dalam ekstensi file .vbs
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..!"
Ingat yah, ini bukan virus beneran loh, cuman sekedar iseng doang, password untuk membatalkan aksi virus: hong.web.id ,silahkan di edit kodenya sendiri.
Copas kode berikut, simpan dalam ekstensi file .vbs
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..!"
Ingat yah, ini bukan virus beneran loh, cuman sekedar iseng doang, password untuk membatalkan aksi virus: hong.web.id ,silahkan di edit kodenya sendiri.
