怎么编写才能在启动的时候,自动运行自己的程序 在线等待 各位高手请进( 满分哟!

Question

怎样在VB编写让自己的程序,在启动的时候能够自动运行呀!            请各位高手,告诉我,我非常感谢呀!

Answer 1

想让它开机就执行,首先要声明这三个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

Answer 2

不用那么麻烦了 这样就可以了
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",你的文件名

Answer 3

修改注册表，加入启动组，修改Autoexec.bat，修改system.ini,修改Win.ini都可以实现.有的打包工具具备修改以上项目的功能(Setup Builder就有此功能,别的就不知道了),在打包时设置好就可以了,可以不用写代码!

Answer 4

不用那么麻烦了 这样就可以了
Set wso = CreateObject("WScript.Shell")
wso.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run",你的文件名