kalau kemarin kita membuat aplikasi untuk memudahkan kita membuat folder autorun.inf dan file recycler, sekarang kita akan membuat file DLL (Dinamic Link Library) yang dapat kita tambahkan bersama file dll lain pada antivirus kesayangan kita CMC (Codenesia Malware Cleaner).
Cara membuat file DLL (Dinamic Link Library) pada VB6.0 adalah sebgai berkut:
1. Klik Start-All Programs- Microsoft Visual Basic 6.0
2. Pilih ActiveX DLL, Klik Open
3. Maka akan keluar lembar kerja dari VB6.0 lalu klik kanan pada Project1, Add Form , Jangan lupa rename nama Project dengan nama “Ekstensi”.
4. Setelah Form ditambahkan, tambahkan tombol/ button ,drag dari ToolBox
5. Klik 2x Tombol/button tersebut dan masukkan ke dalamnya code berikut:
Private Sub Command1_Click()
On Error Resume Next
Shell (“CMD /c md.\autorun.inf”), vbHide
On Error Resume Next
Open App.Path & “\recycler” For Append As #1
Print #1, “folder autorun.inf dan file recycler ini digunakan untuk menangkal penyebaran virus via autorun”
Print #1, “semoga bermanfaat”
Print #1, “by: anharku”
Print #1, “http://anharku.wordpress.com”
Close #1
SetAttr “\autorun.inf”, vbSystem + vbReadOnly + vbHidden
SetAttr “\recycler”, vbSystem + vbReadOnly + vbHidden
MsgBox “Folder autorun.inf dan file recycler berhasil dibuat”
End sub
6. Pada bagian Class Module (ClsCMCPlugin_0) tulis code sebagai berikut:
Option Explicit
Private Type MY_PLUGIN_GENERAL_INFORMATION
szPluginName As String * 128
szPluginDescription As String * 128
szPluginAuthor As String * 128
szPluginAuthorSite As String * 128
szPluginAuthorEMail As String * 128
szPluginAuthorAddress As String * 128
nPluginVersionMajor As Long
nPluginVersionMinor As Long
nPluginVersionRevision As Long
End Type
Private MyPluginInfo As MY_PLUGIN_GENERAL_INFORMATION
Public Function CPgGetInfo0() As Long
On Error Resume Next
With MyPluginInfo
.szPluginName = “EkstensiPribadi” & Chr$(0)
.szPluginDescription = “Membuat Ekstensi *.cmc” & Chr$(0)
.szPluginAuthor = “Anhar” & Chr$(0)
.szPluginAuthorSite = “www.anharku.freevar.com” & Chr$(0)
.szPluginAuthorEMail = “v_maker@yahoo.com” & Chr$(0)
.szPluginAuthorAddress = “anhar” & Chr$(0)
.nPluginVersionMajor = 1
.nPluginVersionMinor = 10
.nPluginVersionRevision = 0
CPgGetInfo0 = VarPtr(MyPluginInfo)
End With
End Function
Public Function CPgGo0() As Long
On Error Resume Next
Dim FrmPlugin As Object
Set FrmPlugin = New Form1
FrmPlugin.Show 1
Set FrmPlugin = Nothing
MsgBox “Thank’s You!” ‘contoh messagebox
CPgGo0 = 1
End Function
7. Klik File- Make Prject1.dll
8. Maka akan keluar Jendela Make Projeck lalu simpan dengan nama Ekstensi.dll, klik OK
9. File DLL telah selesai dibuat dan siap diujicoba….
ntuk menguji coba dll yang kita buat kita gunakan CMC_PluginTester.exe ,drag file MakeFolderAutorun.dll tersebut ke dalam kolom aplikasi CMC_PluginTester.exe kemudian tekan RUN MY CMC PLUGIN! Untuk menambahkan dll ini ke folder plugin, kita perlu mengirimkan file MakeFolderAutorun.dll tersebut kepada programer CMC agar di validasi terlebih dahulu, setelah itu baru MakeFolderAutorun.dll bisa di tambahkan dan digunakan di Antivirus CMC kesayangan kita ?
download dll:
http://www.4shared.com/file/251751243/873c153b/MakeFolderAutorun.html
Thank’s To:
HrXXX
Semoga Bermanfaat…?
Salam
Sumber : virologi.info
Cophyright © Ilmu Pelajar_www.Ilmu-pelajar.co.cc™
0 komentar:
Posting Komentar