我用VB做了个程序，我想让它每次开机都悄悄自动运行，代码怎么写

2025-01-24 02:29:27

推荐回答（5个）

回答1：

Private Sub Form_Load()
Dim objWSH As Object
Me.Visible = False '窗口设置为不可见
Set objWSH = CreateObject("WScript.Shell")
objWSH.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
Set objWSH = Nothing
End Sub
'把上面的代码放到你的程序主窗口Form_Load过程中，程序一但运行一次后，下次开机就自动运行了。千万别用来做坏事哦~~~~~~~

回答2：

方法1：把你的程序全路径名写到注册表里的local-ms-windows-currentversion-run里即可。
方法2：把你的程序放入开始－程序菜单的启动下
方法3：把程序全路径名写入autoexce.bat
--------------------------------------------------------------------------------------------------------------------------

代码：
首先要声明这三个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

如果不懂加我Q Q 1 9 1 5 9 2 0 7 9 0

回答3：

在注册表"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"项中把你的程序路径填上就能自动运行了。隐藏其他图标是什么意思，没看懂。隐藏自身可以调用API完成。

回答4：

1、下次开机时自动运行，可以修改注册表或使用注册表修改程序修改即可；
2、自身隐藏，比较简单，使其运行，但是后台运行，不显示窗体即可；
3、并且继续隐藏其他图标，指的是什么？是所有的图标吗？
说清楚，可以帮您做。

回答5：

开机时自动运行并且继续隐藏其他

最新问答

一个女人在跳钢管舞，写着:来自泰国:猜成语？

心花路放电影当中，黄渤他们三个骑电车去机场的路上那段背景音乐是什么名字？

到大连北站最后的一班高铁几点发车

f(x)=x⼀2x^2+x-1带皮亚诺余项的麦克劳林公式怎么求啊？