vb实现ie 按扭，注册键已成功，可就不显示图标,郁闷ing....（附程序）

wantvictory 2005-05-22 09:58:23

vb实现ie 按扭，注册键已成功，可就不显示图标,郁闷ing....（附程序）
----------------------------------------------------------------
Option Explicit

'Default Property Values

'Property Variables

'定义常量

Const HKEY_LOCAL_MACHINE = &H80000002

Const REG_SZ = 1

'声明存取注册表的 API 函数

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

'定义注册表中的主键、子键

Const hKey = HKEY_LOCAL_MACHINE
Const GUID = "{692FD5B9-A554-469D-89C1-C8FA806A9344}"
Const subKey = "Software\Microsoft\Internet Explorer\Extensions\" & GUID & "\"

'把字符串值存入注册表

Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strdata As String)

Dim keyhand As Long

Dim r As Long

r = RegCreateKey(hKey, strPath, keyhand)

r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata))

r = RegCloseKey(keyhand)

End Sub

Private Sub Form_Load()
Call SaveString(hKey, subKey, "ButtonText", "中国洛阳")

Call SaveString(hKey, subKey, "CLSID", "{B4A9110E-E7A7-49BE-ADCE-F60CC5EFC63E}")

Call SaveString(hKey, subKey, "Default Visible", "Yes")

Call SaveString(hKey, subKey, "Exec", "http://www.cnluoyang.com")

Call SaveString(hKey, subKey, "HotIcon", App.Path & "\" & "luoyang2.ico")

Call SaveString(hKey, subKey, "Icon", App.Path & "\" & "luoyang1.ico")

Call SaveString(hKey, subKey, "MenuStatusBar", "www.cnluoyang.com")

Call SaveString(hKey, subKey, "MenuText", "www.cnluoyang.com")
Me.Hide
End Sub

...全文