请问谁有这样的源码（能将程序加入windows的启动组里，就是所编的程序能随win一起起动））

Question

只要编写一个访问注册表的HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
项的程序就行，在里面把你希望启动的程序名称加进去OK。

Answer 1

通过创建WScript.Shell对象轻易读写注册表：
strPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
"+你的选项
Set REG = CreateObject("WScript.Shell")
MsgBox REG.RegWrite(strPath)

Answer 2

对不起，少写参数Private Sub Command1_Click()
strPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\aa"
Set REG = CreateObject("WScript.Shell")
MsgBox REG.RegWrite(strPath, "c:\ddd.exe")End Sub