Fungsi Untuk Memperoleh Nama File (Path) dari GUID

Bagaimanakah cara memperoleh nama file (file name) sebuah GUID (Globally Unique Identifier) dari sebuah ActiveX yang telah teregister dalam registry? di bawah ini merupakan implementasi dari kodenya:

'simpan kode di bawah pada modul 
Option Explicit 
 
Dim wsh As IWshRuntimeLibrary.WshShell 
 
Public Function GetFileFromGUID(ByVal GUID As String, Mayor As String, Minor As String) As String 
    Dim s As String 
    Set wsh = New WshShell 
    s = wsh.RegRead("HKEY_CLASSES_ROOT\TypeLib\" & GUID & "\" & Mayor & "\"   & Minor & "\Win32\") 
    GetFileFromGUID = s 
    Set wsh = Nothing 
End Function 

Contoh penggunaan prosedur di atas:

'simpan kode di bawah pada form 
Private Sub Form_Load() 
On Error GoTo ErrHandler 
    'contoh mengambil nama file RichTextBox, Versi Mayor 1.2, Versi Minor 0 
    MsgBox GetFileFromGUID("{3B7C8863-D78F-101B-B9B5-04021C009402}", "1.2", "0") 
    Exit Sub 
ErrHandler: 
    MsgBox err.Description 
End Sub 

Jangan lupa untuk mereferensi pada Windows Script Host Object Model atau WSHOM.OCX

READ MORE - Fungsi Untuk Memperoleh Nama File (Path) dari GUID

Cara Mudah Menjalankan Aplikasi Pada Start Up

Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object Model atau yang lebih dikenal dengan nama WSHOM.OCX.

Option Explicit 
 
Dim oWSHShell As New WshShell 
 
Private Function RegWrite(sKey As String, sFilepath As String) 
    oWSHShell.RegWrite sKey, sFilepath 
End Function 
 
Private Function RegDelete(sKey As String) 
    oWSHShell.RegDelete sKey 
End Function 

Contoh penggunaan fungsi di atas yang digunakan untuk menulis ke dalam registry

Private Sub Command1_Click() 
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & _ 
    App.EXEName, App.Path & "\" & App.EXEName & ".exe" 
End Sub 

Contoh penggunaan fungsi di atas yang digunakan untuk menghapus entry yang terdapat dalam registry

Private Sub Command2_Click() 
    RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName 
End Sub 

READ MORE - Cara Mudah Menjalankan Aplikasi Pada Start Up

VB6 Code - Menjalankan Aplikasi Pada Start Up

Di bawah ini merupakan cara yang mudah untuk menjalankan aplikasi pada saat startup menggunakan kode VB6. Pada dasarnya fungsi startup, hanyalah fungsi baca dan tulis ke dalam registy. Kodenya pendek, karena ia meminjam ActiveX Windows Script Host Object Model atau yang lebih dikenal dengan nama WSHOM.OCX.

Option Explicit

Dim oWSHShell As New WshShell

Private Function RegWrite(sKey As String, sFilepath As String)
    oWSHShell.RegWrite sKey, sFilepath
End Function

Private Function RegDelete(sKey As String)
    oWSHShell.RegDelete sKey
End Function

Contoh penggunaan fungsi di atas yang digunakan untuk menulis ke dalam registry

Private Sub Command1_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & _
    App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Contoh penggunaan fungsi di atas yang digunakan untuk menghapus entry yang terdapat dalam registry

Private Sub Command2_Click()
    RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End Sub

READ MORE - VB6 Code - Menjalankan Aplikasi Pada Start Up

VB6 Code - Cara Mengakses Registry Dengan Mudah

Di bawah merupakan contoh mengakses registry dengan mudah, yang termasuk akses disini: baca, tulis, hapus registry. Sebelum menjalankan kodenya kita harus mereferensi pada "Microsoft Script Host Object Model" atau WSHOM.OCX yang biasa terdapat pada directory %SystemRoot%\System32\Wshom.ocx.

Selain menggunakan wshom.ocx, kita juga dapat membuatnya menggunakan fungsi-fungsi Windows API.

'Fungsi dan konstanta mengakses registry dengan mudah

Option Explicit

Public Const HKEY_LOCAL_MACHINE As String = "HKLM"
Public Const HKEY_CURRENT_USER As String = "HKCU"
Public Const HKEY_CLASSES_ROOT As String = "HKCR"

Public Const REG_BINARY As String = "REG_BINARY"
Public Const REG_DWORD As String = "REG_DWORD"
    
Dim wsh As New IWshRuntimeLibrary.WshShell

Public Function RegDelete(sName As String)
    wsh.RegDelete sName
End Function

Public Function RegRead(sName As String)
    wsh.RegRead sName
End Function

Public Function RegWrite(sName As String, Value, Optional stype)
    wsh.RegWrite sName, Value, stype
End Function

Contoh mengakses registry dengan mudah

Option Explicit

Private Sub Form_Load()
    RegWrite HKEY_LOCAL_MACHINE & "\BYNARY", 1, REG_BINARY
    RegWrite HKEY_LOCAL_MACHINE & "\DWORD", 1, REG_DWORD
    RegWrite HKEY_LOCAL_MACHINE & "\STRING", 1
End Sub

READ MORE - VB6 Code - Cara Mengakses Registry Dengan Mudah