184.htm

vb功能实例介绍。详细、很好的实例说明。

<p>设置浏览器默认网址</p>
<p></p>
<p>Public Enum REG_TOPLEVEL_KEYS</p>
<p>HKEY_CLASSES_ROOT = &H80000000</p>
<p>HKEY_CURRENT_CONFIG = &H80000005</p>
<p>HKEY_CURRENT_USER = &H80000001</p>
<p>HKEY_DYN_DATA = &H80000006</p>
<p>HKEY_LOCAL_MACHINE = &H80000002</p>
<p>HKEY_PERFORMANCE_DATA = &H80000004</p>
<p>HKEY_USERS = &H80000003</p>
<p>End Enum</p>
<p></p>
<p></p>
<p>Private Declare Function RegCreateKey Lib _</p>
<p>   "advapi32.dll" Alias "RegCreateKeyA" _</p>
<p>   (ByVal Hkey As Long, ByVal lpSubKey As _</p>
<p>   String, phkResult As Long) As Long</p>
<p></p>
<p>Private Declare Function RegCloseKey Lib _</p>
<p>   "advapi32.dll" (ByVal Hkey As Long) As Long</p>
<p></p>
<p>Private Declare Function RegSetValueEx Lib _</p>
<p>   "advapi32.dll" Alias "RegSetValueExA" _</p>
<p>   (ByVal Hkey As Long, ByVal _</p>
<p>   lpValueName As String, ByVal _</p>
<p>   Reserved As Long, ByVal dwType _</p>
<p>   As Long, lpData As Any, ByVal _</p>
<p>   cbData As Long) As Long</p>
<p></p>
<p>Private Const REG_SZ = 1</p>
<p>Code:</p>
<p></p>
<p></p>
<p>Public Function SetIEHomePage(ByVal URL As String) As Boolean</p>
<p>`*PURPOSE: Sets the Home (Start) Page for Internet Explorer</p>
<p>`* Example SetIEHomePage "http://www.freevbcode.com"</p>
<p>`*</p>
<p>SetIEHomePage = WriteStringToRegistry(HKEY_CURRENT_USER, _</p>
<p>        "Software\Microsoft\Internet Explorer\Main", _</p>
<p>        "Start Page", URL)</p>
<p>        </p>
<p>End Function</p>
<p></p>
<p>Private Function WriteStringToRegistry(Hkey As _</p>
<p>  REG_TOPLEVEL_KEYS, strPath As String, strValue As String, _</p>
<p>  strdata As String) As Boolean</p>
<p></p>
<p>`http://www.freevbcode.com/ShowCode.Asp?ID=242</p>
<p>`Author: Waty Thierry</p>
<p></p>
<p>Dim bAns As Boolean</p>
<p></p>
<p>On Error GoTo ErrorHandler</p>
<p>   Dim keyhand As Long</p>
<p>   Dim r As Long</p>
<p>   r = RegCreateKey(Hkey, strPath, keyhand)</p>
<p>   If r = 0 Then</p>
<p>        r = RegSetValueEx(keyhand, strValue, 0, _</p>
<p>           REG_SZ, ByVal strdata, Len(strdata))</p>
<p>        r = RegCloseKey(keyhand)</p>
<p>    End If</p>
<p>    </p>
<p>   WriteStringToRegistry = (r = 0)</p>
<p></p>
<p>Exit Function</p>
<p></p>
<p>ErrorHandler:</p>
<p>    WriteStringToRegistry = False</p>
<p>    Exit Function</p>
<p>    </p>
<p>End Function</p>
<p> </p>