求助各位老大老师前辈高手VB做软件如何实现用服务自启动

2025-03-31 04:46:46

推荐回答（1个）

回答1：

我们可以看到一些程序在开机时就会自动运行，象Winpopup就是这样的，这是怎么实现的呢？可以把需要运行的程序添加到“开始”-“程序”-“启动”中，还有一种方法就是写入注册表了，这里我们讨论通过写注册表来实现的方法，从中可以看到三个对注册表操作的API函数的使用技巧。

首先要声明这三个API函数，它们分别是：RegSetValue、RegCreateKey、RegCloseKey，其作用是设置某一个主键的键值、创建一个主键、关闭对注册表主键的操作。

Private 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

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 RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

然后声明以下两个常数，要进行注册表写入的位置是在HKEY_LOCAL_MACHINE下，我们可以在VB自带的API文本查看器中找到这些常数的定义方法。

Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Const REG_SZ = 1

然后使用如下语句就行了，你可以把这段代码放在程序的某个位置：

'写注册表

Dim Ret2 As Long

'打开 HKEY_LOCAL_MACHINE 下的 software\microsoft\windows\currentVersion\runServices 主键

RegCreateKey HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentVersion\runServices", Ret2

'将此主键下的“默认”项的值改为"c:\windows\system\myprogram.exe"，也就是要开机运行的程序路径

RegSetValue Ret2, vbNullString, REG_SZ, "c:\windows\system\sysinfo2.exe", 4

'关闭对主键的操作

RegCloseKey Ret2

最新问答

水的两个特点是什么？

网上可以激活招商银行卡（借记卡）吗？

南京市到泗县的长途汽车里程是多少公里

找淘宝免税店代购买了兰蔻的水份缘舒缓晚霜求用过的妹子帮我辨别一下真假TAT

用什么词来形容一个班级

什么是存款准备金率？怎么算出来的？

怎么在传奇世界3D里加工会？

贵阳市三桥小学和贵阳市环西小学相比,哪个最好?

为什么喝药时不能喝酒

如果新股申购成功3000股，但是钱只够1千股的，可以只要1千股的吗？