[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



然後，在表單上建立一Commmand Button 2個控制項(陣列型態)
(建立一個按鈕，然後複製→貼上→建立控制項陣列)

並在按鈕中插入以下程式碼：




Select Case Index
Case 0
SetStartPage "http://www.google.com.tw/"
Case 1
SetStartPage "http://tw.yahoo.com"
End Select




執行後，只要點選按鈕1，就會進入Google網站～
請依個人需求自行修改程式碼。

a2588388

請問哪裡可以找到VB6.0的載點阿

紅塵孤鳥

原帖由 a2588388 於 2009-3-28 15:19 發表
請問哪裡可以找到VB6.0的載點阿

官網有提供免費版的下載，功能不差，註冊完畢就可以拿到金鑰，過程也很簡單，以下是微軟載點...
點我前往微軟官網載點