21.12
Pe-Ha-Ka
langsung aja mas
--------------------------------------------------
Dim code
Dim pass
pass = "nandaganteng"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi http://www.pe-ha-ka.blogspot.com untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 5 menit anda belum mendapatkan passwordnya maka komputer anda akan mati untuk selamanya. Waktu 5menit anda dimulai: " & Time, 16, "Hn team"
Do
code = InputBox("Masukkan password untuk menggagalkan virus ini.", "Virus Removal")
If code<>pass Then
MsgBox "Kode" & code & " Password yang anda masukan salah, segera kunjungi http://www.pe-ha-ka.blogspot.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"
-----------------------------------------------
save dengan nama yang bebas asa formatnya .vbs
atau pakai aja Visual basic
tapi kalau ga pnya ,,yyaa pakai software murah meriah aja
banyak qok dipasar
notepad
epp
na
Dim code
Dim pass
pass = "nandaganteng"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus, segera anda kunjungi http://www.pe-ha-ka.blogspot.com untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 5 menit anda belum mendapatkan passwordnya maka komputer anda akan mati untuk selamanya. Waktu 5menit anda dimulai: " & Time, 16, "Hn team"
Do
code = InputBox("Masukkan password untuk menggagalkan virus ini.", "Virus Removal")
If code<>pass Then
MsgBox "Kode" & code & " Password yang anda masukan salah, segera kunjungi http://www.pe-ha-ka.blogspot.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Password diterima, Komputer anda telah aman dari virus. Selamat!"
-----------------------------------------------
save dengan nama yang bebas asa formatnya .vbs
atau pakai aja Visual basic
tapi kalau ga pnya ,,yyaa pakai software murah meriah aja
banyak qok dipasar
notepad
epp
na 
Posted in: Virus
0 komentar:
Posting Komentar