Membuat Virus Part 1

 Cara Membuat Virus Part 1

Pertama Klik kanan pada desktop > New > task document

Terus copy pastekan ini

Dim code
Dim pass
pass = "bambang"
MsgBox "Maaf, saat ini komputer anda telah terinfeksi virus paling ganas didunia, segera anda hubungi E-mail ini bambang.hnc25@yahoo.com via facebook untuk medapatkan password penjinak virusnya. Jika dalam jangka waktu 1 hari anda belum mendapatkan passwordnya maka komputer anda akan terformat dengan sendirinya: " & Time, 16, "Virus Paling Bahaya"
Do
code = InputBox("Masukkan password untuk menggagalkan virus ini.", "Virus Removal")
If code<>pass Then
MsgBox "Kode" & code & " Password yang anda masukan salah, segera hubungi E-mail ini bambang.hnc25@yahoo.com untuk mendapatkan passwordnya "
End If
Loop Until code=pass
MsgBox "Selamat Komputer anda sudah terbebas dari Virus Ini "

Setelah Itu Save as dengan nama yang berakhiran “.Vbs” contoh gila.vbs