Tutor Masukan file apa saja ke file Resource

Masukan file apa saja ke file Resource
Anda dapat Bind/memasukan file apappun dan berapapun banyaknya ke program VB yang anda buat dengan memanfaatkan tool Resource Editor. Resource Editor ini adalah tool dari VB sendiri yang dapat membuat file resource ekstensi RES. Umumnya File resource berisi String untuk menu, icon, cursor, gambar bitmap (BMP), dan Bind file apapun yang akan di jelaskan di tutorial ini. Pada saat projek vb anda di compile menjadi EXE maka file resource tersebut akan di masukan juga ke dalam EXE anda tepatnya di header resource PE, jadi anda tidak perlu membawa file resource tersebut layaknya file OCX atau DLL.

Langkah-langkah:

•     Buka VB6
•     Pilih Standart EXE dan klik tombol Open
•    Simpan projek anda melalui menu File > Save Project, pada dialog Save File As pilih lokasi di  mana  anda ingin simpan projek anda
•     Pilih menu Add-Ins > Add-In Manager...

• Pada dialog Add-In Manager yang di tampilkan, ikuti pilihan seperti gambar di bawah ini

• Klik tombol Ok pada dialog Add-In Manager tersebut
• Pilih menu Tools > Resource Editor

• Pada dialog VB Resource Editor yang di tampilkan, klik icon seperti gambar di bawah ini

• Pada dialog Open A Custom Resource yang di tampilkan, pilih file apa saja yang anda inginkan. Di contoh ini saya akan masukan program Notepad.exe

• Klik tombol Open jika anda sudah selesai memilih file untuk di Bind ke resource
• Hasilnya seperti gambar di bawah ini

Anda juga dapat edit properti data yang anda masukan dengan cara klik kanan kemudian pilih menu Properties, maka anda akan di tampilkan dialog Edit Properties seperti gambar di bawah ini

Di contoh ini propertinya default jadi biarkan saja TYPE, ID, LANGUAGE seperti gambar di atas ini.

• Setelah data di masukan ke Resource, klik icon Save seperti gambar di bawah ini

• Pada dialog Save Resource File As, simpan file resource (.RES) ke lokasi project anda di simpan. Di contoh ini nama file resource Project1.RES
• Tutup dialog VB Resource Editor tersebut

Perhatikan pada dialog Project seperti gambar di bawah ini

Jika anda ingin menambahkan data, hapus data, dan edit file resource. Anda cukup klik dua kali icon hijau resource tersebut

• Di langkah ini saatnya membuat kode untuk mengekstrak data di dalam resource tersebut. Masukan CommandButton/Tombol ke dalam Form VB anda

• Klik kanan di Form dan pilih menu View Code
• Masukan kode di bawah ini

'Fungsi tombol pada saat di klik
Private Sub Command1_Click()
    'Jika terjadi error saat eksekusi kode maka lewati kode yang error tersebut
    On Error Resume Next
   
    'Membuat variabel "data_resource" dengan tipe data String
    Dim data_resource As String
   
    'Isi data variabel "data_resource" dengan data dari resource
    data_resource = LoadResData(101, "CUSTOM")
   
    'Konversi data di variabel "data_resource" ke Unicode
    data_resource = StrConv(data_resource, vbUnicode)
   
    'Menyiapkan penulisan data biner ke file "C:\Notepad.exe"
    Open "C:\Notepad.exe" For Binary Access Write As #1
    'Tulis data di variabel "data_resource" ke file "C:\Notepad.exe"
    Put #1, , data_resource
    'Tutup handle penulisan file ini
    Close #1
   
    'Tampilkan pesan selesai
    MsgBox "Data dari resource berhasil di ekstrak ke (C:\Notepad.exe)." & vbCrLf & _
           "Programmer: Rudi Hidayat.", vbInformation, "Ekstrak data"
   
    'Jalankan program Explorer dan menuju ke lokasi data yang di ekstrak
    Shell "explorer.exe C:\", vbNormalFocus
End Sub

• Maksud kode-kodenya sudah saya jelaskan di sourcecode
• Tekan key F5 untuk melihat hasilnya

Mungkin saat project ini di compile menjadi EXE, anti virus khususnya Avira menganggap ini sebagai virus tetapi itu hanya False alarm. Itulah yang paling saya benci dari beberapa anti virus yang se'enaknya menganggap data di dalam file resource yang di buat di Visual basic sebagai virus.

Ingat, ini bukan virus, hanya anti virusnya saja khususnya Avira yang terlalu ceroboh menganggap ini virus. Memang untuk masalah bind file di VB dengan cara apapun sangat rentan dengan pendeteksian anti virus walaupun program yang di buat bukan virus. 

Browse More Articles

Tweet

Written by Unknown

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.