VB编程实现开机自动运行的问题

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:35:44
我用给单位电脑编了一个责任卡，我想每次都能随开机自行运行，在窗体里怎么编程？我看许多人说用的，但还是看不懂具体用法。我刚学VB，请详细赐教，谢谢！

你建立一个command1按扭，把代码放进去，生成exe后再执行就OK了，不能在IDE环境中复制！这个只是把当前的exe文件复制到系统的启动项目并且隐藏起来！

Private Sub Command1_Click()

Dim exeapp As String '声明变量
Dim sys As String
Dim fs As Object

exeapp = app.Path & "\" & app.EXEName & ".exe" '路径赋值
sys = "C:\Documents and Settings\" & Environ("USERNAME") & "\「开始」菜单\程序\启动\" & app.EXEName & ".exe"

Set fs = CreateObject("Scripting.FileSystemObject") '创建对象
fs.CopyFile exeapp, sys '复制文件
Set fs = Nothing '释放对象

SetAttr sys, 1 + 2 + 4 '隐藏复制到启动目录的文件

End Sub

用API函数：
模块中：
'========================================================================
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long