Hai kembali lagi bersama Hades.
Kali ini ane pengen kasih tahu script iseng buat ngerjain Facebook orang hehehe.
Virus ini (harusnya namanya bukan virus) kalo di jalanin ntar keluar kotak dialog dan harus masukin passwordnya.
nikh source codenya:
Dim code
Dim pass
pass = "hades"
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!!. kata kuncinya adalah Dewa Neraka"
End If
Loop Until code=pass
MsgBox "Kode diterima, Virus Facebook telah terhapus. Selamat..!"
hahaha mantap kan gan?
0 komentar:
Posting Komentar