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

vb实现ie 按扭，注册键已成功，可就不显示图标,郁闷ing....（附程序）
----------------------------------------------------------------
Option Explicit'Default Property Values'Property Variables'定义常量Const HKEY_LOCAL_MACHINE = &H80000002Const REG_SZ = 1'声明存取注册表的 API 函数Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPrivate Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPrivate 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 LongDim r As Longr = 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