VB 开机自动运行程序

最新推荐文章于 2021-01-30 22:10:18 发布

yeuegi

最新推荐文章于 2021-01-30 22:10:18 发布

阅读量545

点赞数

分类专栏： vb 文章标签： VB Windows Microsoft

本文链接：https://blog.csdn.net/yeuegi/article/details/83852342

版权

本文介绍了三种VB程序开机自动运行的方法，包括注册表方式、使用Vb5stkit.dll函数以及引用WSHom.Ocx组件的详细代码实现。

摘要由CSDN通过智能技术生成

以下列出三种不同方法的代码供大家参考

1、注册表方式

模块代码

Option Explicit

Public 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

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( ByVal hKey As Long , ByVal lpSubKey As String , phkResult As Long ) As Long

Public Declare Function RegCloseKey Lib "advapi32.dll" ( ByVal hKey As Long ) As Long

Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" ( ByVal hKey As Long , ByVal lpValueName As String ) As Long

Public Const REG_SZ = 1

Public Const HKEY_LOCAL_MACHINE = &H80000002

'*************************************************************************
'**函数名： SetAutoRun
'**输入： ByVal Autorun(Boolean)
'**功能描述：随WINDOWS自动启动/取消启动模块
'**调用方法： Call SetAutoRun(True/False)
'**作者： Mr.David
'**日期： 2006-09-05 09:07:25
'*************************************************************************

Public Sub SetAutoRun( ByVal Autorun As Boolean )

Dim KeyId As Long
Dim MyexePath As String
Dim regkey As String

MyexePath = App.Path & "\" & App.EXEName & ".exe" </