2023年12月31日发(作者：)

VB的开机自动运行程序的代码

先引用系统文件夹有的

'*************************************************************************

'**函 数 名： SetAutoRun

'**输 入： ByVal Autorun(Boolean) -

'**输 出： 无

'**功能描述： 随WINDOWS自动启动/取消启动模块

'**全局变量：

'**调用方法： Call SetAutoRun(True/False)

'**作 者： mythhack

'**日 期： 2011年12月29日 11:10:42

'**修 改 人：邱建忠

'**日 期：

'**版 本： V1.0.0

'*************************************************************************

Public Sub SetAutoRun(ByVal Autorun As Boolean)

'WshShell 对象

'ProgId

'文件名

Dim WshShell

Set WshShell = CreateObject("")

If Autorun Then

te "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun"

e, & "" & e & ".exe"

Else

ete "HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun"

e

End If

Set WshShell = Nothing

End Sub

&

&