📄 12693.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>有关登录资料库</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>有关登录资料库</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:wingue@ms1.seeder.net">征服未来</a> on May 07, 1999 at 11:00:31:<p>
各位大哥大姐:<br>    对于要如何去更改IE的预设<br>网页，小弟已经知道要去更改<br>WINDOWS内的”登录资料库”，<br>并配合下列VB的函数：<br>Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long<br>Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long<br>Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long<br>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<p>之后小弟写了下列的程式：<br>Private Sub Command1_Click()<br>Dim hKyt As Long, typeData As Long, lenData As Long<br>Dim str As String<br>'HKEY_CURRENT_USER的KEY HANDLE 为&H80000001<br>RegOpenKey &H80000001, "Software\Microsoft\Internet Explorer\Main", hKey<br>Print hKey<br>RegQueryValueEx hKey, "Start Page", 0, typeData, ByVal str, lenData<br>str = Left(str, lenData - 1)<br>Print str<br>Print lenData<br>End Sub<p>lenData传回的值是没有问题，<br>（例如：”www.ftv.com.tw"是传回值是15)<br>但是为什么str的传回值却是空字串呢？？？<br>在此先行谢过各位大哥大姐了．．．．<p>     征服未来　　1999/05/07
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12693-->
<!--top: 12701--><li><a href="12701.html">去参观一下 cww 兄的心得笔记就知道了</a> <b>Sephiroth</b> <i>14:05:42 5/07/99</i>
(<!--responses: 12701-->0)
<ul><!--insert: 12701-->
</ul><!--end: 12701-->
</ul><!--end: 12693-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -