15402.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML
23 行
字号 
<html>
  <head>
    <title>Re: 小弟我做好了程式但是..........</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 小弟我做好了程式但是..........</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:luo570@ms31.hinet.net">小琳</a> on July 08, 1999 at 22:14:15:<p>
In Reply to: <a href="15395.html">小弟我做好了程式但是..........</a> posted by Likol on July 08, 1999 at 18:25:04:<p>
: 我的程式写好了,但我希望当我一进入win98或95时<br>: 这个程式就会执行(就是在出现windows登入之前执<br>: 行,或是不管用什么名字登入,登入后执行),我该怎<br>: 么做ㄚ?????<p>:::可利用以下的程式就可以:<br>Option Explicit<p>Public Const HKEY_CLASSES_ROOT = &H80000000<br>Public Const HKEY_CURRENT_USER = &H80000001<br>Public Const HKEY_LOCAL_MACHINE = &H80000002<br>Public Const HKEY_USERS = &H80000003<br>Public Const HKEY_PERFORMANCE_DATA = &H80000004<br>Public Const HKEY_CURRENT_CONFIG = &H80000005<br>Public Const HKEY_DYN_DATA = &H80000006<p>Public Const REG_NONE = 0<br>Public Const REG_SZ = 1<br>Public Const REG_EXPAND_SZ = 2<br>Public Const REG_BINARY = 3<br>Public Const REG_DWORD = 4<br>Public Const REG_DWORD_BIG_ENDIAN = 5<br>Public Const REG_MULTI_SZ = 7<p>Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long<br>Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long<br>Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long<br>Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData 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>Sub Main()<br>    Dim hKey As Long, SubKey As String, Exe As String<p>    SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"<br>    Exe = "Value值"<br>    RegCreateKey HKEY_Local_Machine, SubKey, hKey<br>    <br>    RegSetValueEx hKey, "程式名称", 0, REG_SZ, ByVal Exe, _<br>                  LenB(StrConv(Exe, vbFromUnicode)) + 1<br>    RegCloseKey hKey<br>    <br>    MsgBox "程式已经被设定成 Windows 启动时自动被执行的程式！"<br>End Sub<p><p> <br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 15402-->
</ul><!--end: 15402-->
<br><hr size=7 width=75%><p>

</body></html>

15402.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 15402.html 源码文件，采用 HTML 编程语言编写，共 23 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?