VB的开机自动运行程序的代码
先引用系统文件夹有的WSHom.Ocx
'*************************************************************************
'**函 数 名： 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 Wscript.Shell
'文件名 WSHom.Ocx
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
If Autorun Then
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Else简单的vb程序代码
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
End If
Set WshShell = Nothing
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。