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 = "ketabang.cheater" 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: ketabang.cheater
silahkan di edit kodenya sendiri. oh ya, kl males copas atau ga tau cara buatnya, download ajah disini linknya.
Sekian Selamat Mencoba
GUNAKAN DENGAN BIJAK
cara nyebarinny gmn mas bro???
BalasHapuskirim aja ke dinding temen lo mas bro
BalasHapuscara nyebarin lewat fasebuk gimana bro?
BalasHapusngga Tau ni saya..
langsung kirim ke wall dia gan
Hapusnotepadnya di maukin ke wallnya atau tulisannya gan?
BalasHapusterserah aga dua duanya juga bisa sama saja
Hapus