[VB6.0][教學]設定ＩＥ首頁

首先，請在"一般─宣告"內插入以下程式碼:

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 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

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

Private Const REG_SZ = 1
Private Const HKEY_CURRENT_USER = &H80000001
Private Const ERROR_SUCCESS = 0

Public Sub SetStartPage(Home As String)
Dim hKey As Long
If RegCreateKey(HKEY_CURRENT_USER, "SoftwareMicrosoftInternet ExplorerMain", hKey) = ERROR_SUCCESS Then
RegSetValueEx hKey, "Start Page", 0, REG_SZ, ByVal Home, Len(Home)
RegCloseKey hKey
End If
End Sub
...

瀏覽完整內容，請先 註冊 或 登入會員

n4chen

使用後測試失敗
應該是我的技術問題 = =