URL Encode - Decode UTF8 Menggunakan Script Control

Mungkin bisa disebut sebagai cara termudah untuk melakukan Encoding dan Decoding URL UTF8 dalam VB6, dengan memanfaatkan OCX Microsoft Script Control. Adapun kode untuk Encode dan Decode URL UTF8 menggunakan Visual Basic 6.0 adalah sebagai berikut:

'=================================================================
'UrlEncodeUtf8 menggunakan Script Control
'=================================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    UrlEncodeUtf8 = sc.CodeObject.encodeURIComponent(strSource)
    Set sc = Nothing
End Function

'=================================================================
'UrlDecodeUtf8 menggunakan Script Control
'=================================================================
Public Function URLDecodeUTF8(strSource As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "Jscript"
    URLDecodeUTF8 = sc.CodeObject.decodeURIComponent(strSource)
    Set sc = Nothing
End Function

READ MORE - URL Encode - Decode UTF8 Menggunakan Script Control

Memahami License Key Pada Pembuatan OCX - Bisnis OCX

Apabila kita membuat sebuah OCX maka, pada VB6 IDE yaitu pada project properties >> tab General, kita akan mendapati tulisan "Require License Key" (sebelah kiri bawah). Nah, pertanyaannya apa yang terjadi bila checkbox tersebut kita beri centang? Untuk menjawab pertanyaan di atas, sebaiknya Anda membuat sebuah project ocx sederhana kemudian mencentang checkbox bertuliskan "Require License Key" dan mengcompile project tersebut serta memperhatikan pengaruhnya. Apakah ada pengaruhnya? sepertinya atau lebih tepatnya seakan-akan tidak ada.

Perlu diketahui dengan dicentangnya tulisan "Require License Key" maka pada saat mengkompail OCX, VB6 akan secara otomatis membuat satu dari beberapa key baru pada registry, yaitu pada alamat: HKEY\CLASSES_ROOT\Licenses\{OCX GUID Anda}. secara bersamaan VB6 juga mengenerate file yang berektensi *.VBL (bisa Anda buka menggunakan Notepad untuk melihat isinya). Nah, key inilah yang membuat kita bisa menggunakannya pada saat DesignTime.

Untuk memahaminya lebih baik, saya membuat sebuah simulasi penjualan Shadow.OCX. Ikuti langkah-langkah berikut:

• Download terlebih dahulu Amazing Fade Effect - Shadow.OCX. Akan terdapat 3 file di dalamnya:


1. prjAmazingShadow.exe
2. Shadow.ocx
3. Install.bat


• Klik Install.bat untuk meregistrasikan komponen OCX.
• Klik prjAmazingShadow.exe untuk melihat demo shadow.ocx.

Langkah kedua:

• Buat project baru.
• Tambahkan komponen prjShadowCtl (Shadow.OCX).
• Tambahkan ucShadow (Shadow.OCX) ke dalam Form. Apakah Anda bisa melakukannya? tidak, yang ada hanyalah pesan error/pemberitahuan seperti pada gambar di bawah ini:

Keterangan:
Shadow.ocx dibuat oleh Paul Caton. Shadow.ocx merupakan sebuah komponen untuk membuat effect bayangan dan efek fade-in fade-out pada aplikasi, keunggulannya adalah Anda hanya perlu menempelkannya ke dalam Form dan selesai (tanpa membutuhkan kode). Memiliki beberapa properties yang bisa Anda atur untuk disesuaikan dengan selera Anda. Menggunakan teknik SubClassing aman yang diperkenalkan oleh Paul Caton.

READ MORE - Memahami License Key Pada Pembuatan OCX - Bisnis OCX

Mengatasi Masalah OCX Pada Windows-7

Bagi temen-temen pecinta Visual Basic 6, kadang program yang kita tulis "bermasalah" pada saat dijalankan di target Sistem Operasi 64 Bit. Ini biasanya terjadi karena program tsb menggunakan komponen (DLL/OCX) dengan arsitektur 32Bit, seperti MSCOMM32.OCX, MSMASK32.OCX dll. Untuk mengatasi masalah tsb dapat dilakukan dengan cara : Copy kan komponen (DLL/OCX) 32Bit yang bermasalah ke folder \Windows\SysWow64 pada Sistem Operasi 64 Bit yang menjadi target, kemudian register dengan Regsvr32.....

Mungkin ini terjadi karena kebingungan karyawan om "BILL GATES" waktu bikin Windows dengan arsitektur 64Bit :

• Folder SysWOW64 Hanya untuk Komponen 32-bit
• Folder System32 Hanya untuk komponen 64-bit

Jadi jika kita membuat program Installer dan aplikasi ada yang khusus untuk 32Bit... harus dapat melakukan cek sistem operasi untuk menentukan target folder

Sumber: http://i-bego.com

READ MORE - Mengatasi Masalah OCX Pada Windows-7

VB6.0 - Code Generator: Add OCX Add DLL Programmatically

Yang dimaksud kode generator disini adalah sebuah aplikasi yang digunakan untuk membuat sebuah project. Adapun tujuan utamanya ialah untuk menghemat waktu, tenaga, dan biaya sedangkan tujuan lainnya yang tidak kalah penting adalah kecepatan. Kode generator sangat baik sekali digunakan untuk pembuatan aplikasi-aplikasi database, karena aplikasi database hampir memliki kode-kode yang sama (insert-update-delete-dsb) hanya objeknya saja yang berbeda. Maka jika kita ingin membuat belasan aplikasi database dengan objek yang berbeda, pembuatan kode generator dengan rancangan yang baik sungguh sangat layak untuk dipertimbangkan. Sebagai contoh Anda dapat mendownload kode generator yang kurang baik atau tepatnya tidak baik disini. Walaupun kurang baik, tapi coba perhatikan apakah keistimewaanya.

Membuat aplikasi kode generator yang baik, tentunya harus memiliki kemampuan menambahkan sembarang OCX dan referensi DLL yang support VB6.0. Bagaimanakah caranya? Di bawah ini merupakan potongan dari kode generator tersebut, gunanya untuk menambahkan referensi DLL dan OCX.

'------------------------------------------------------------------------------- 
'        http://khoiriyyah.blogspot.com 
'        Administrator 
'------------------------------------------------------------------------------- 
 
Public VBInstance As VBIDE.VBE 
Public Connect As Connect 
 
Option Explicit 
 
Public Function InsertOCX(ProgID As String) As Boolean 
On Error GoTo ErrHandler 
    'Add OCX 
      VBInstance.ActiveVBProject.AddToolboxProgID ProgID 
    InsertOCX = True 
    Exit Function 
ErrHandler: 
    InsertOCX = False 
End Function 
 
Public Function InsertReferences(GUID As String, Mayor As Long, Minor As Long) As Boolean 
On Error GoTo ErrHandler 
    'Add dll references 
    VBInstance.ActiveVBProject.References.AddFromGuid GUID, Mayor, Minor 
    InsertReferences = True 
ErrHandler: 
    InsertReferences = False 
End Function 
 
Private Sub Command1_Click() 
    'Add ListView to VB6 project 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add TreeView 
    InsertOCX "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}" 
    'Add MSFlexGrid 
    InsertOCX "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}" 
End Sub 
 
Private Sub Command2_Click() 
    'Add scrun.dll Microsoft Scripting Runtime) 
    InsertReferences "{420B2830-E718-11CF-893D-00A0C9054228}", 1#, 0 
    'Add msado15.dll Microsoft ActiveX Data Objects 2.8 Library)   
    InsertReferences "{2A75196C-D9EB-4129-B803-931327F72D5C}", 2, 8 
End Sub 

Adapun cara menggunakan kode di atas telah saya bahas disini dan disini. Semoga bermanfaat.

READ MORE - VB6.0 - Code Generator: Add OCX Add DLL Programmatically

Meng-Capture Screen .bmp atau .jpg Menggunakan ezCapture.dll

Di bawah ini merupakan fungsi untuk meng-capture (mengambil) gambar screen dalam format .bmp atau format .jpg dengan menggunakan ActiveX ezCapture.dll. Untuk keperluan ini tentu saja Anda harus memiliki dll ezCapture.dll kemudian mereferensikan project Anda terhadapnya. Mengenai ezCapture.dll bisa Anda download di sini.
Fungsi untuk meng-Capture screen dalam format .bmp

Option Explicit 
 
Sub CaptureScreenBMP() 
   Dim ezCapture As New CaptureScreen 
   On Error Resume Next 
   With ezCapture 
        .CaptureFullScreen "C:\screen.bmp" 
   End With 
End Sub 

Fungsi untuk meng-Capture screen dalam format .jpg

Sub CaptureScreenJPG()   
   Dim ezCapture As New CaptureScreen 
   With ezCapture 
        .CaptureFullScreen "C:\screen.jpg" 
   End With 
End Sub 

Contoh penggunaan fungsi capture screen .bmp

Private Sub Command1_Click() 
    CaptureScreenBMP 
End Sub 

Contoh penggunaan fungsi capture screen .jpg.
Untuk keperluan ini Anda membutuhkan satu file lagi yakni "ijl11.dll"

Private Sub Command2_Click() 
    CaptureScreenJPG 
End Sub 

READ MORE - Meng-Capture Screen .bmp atau .jpg Menggunakan ezCapture.dll