中科新闻网金门战役谁指挥的:让程序开机自动运行！急急急！在线等回复！
来源：百度文库 编辑：中科新闻网 时间：2024/05/11 19:42:04
我在网上找到的方法都需要知道程序的完整路径，可是我发给她后我也不知道她会保存在哪里......
求一段让程序自我复制到系统目录下，并加入注册表项，达到开机自动运行的目的的代码！急用！
哎呀，忘了说明了，我是用VB6做的！
这么高的分，麻烦高手给我一个完整的代码，达到1、将当前程序“更名复制”到system32目录下，2、将复制到system32下的文件设为开机自动运行，还有，最好能把当前程序删掉！
拜托那些说添到启动项里，做个快捷方式拖到启动项里的人用用你们的大脑，OK？我怎么添？让我跑到她电脑那边去添吗？！
还有，就算是用FileCopy复制过去，那也太明显了！就算是恶作剧，起码也有点技术含量吧？！
现在自我复制等功能我都能实现，哪位能给我提供一个写reg脚本，导入，并删除reg脚本的代码啊？分照给！！！
拜托高手快帮帮偶吧！偶可以再加30分的！！！
VB.NET的代码VB肯定不行了啦～VB.NET执行不是需要.FRAMEWORK支持吗？
在VB里可以很轻松的得到应用程序所在的目录和文件名
目录：App.path
文件名: Application.name
所以你自己的那个程序的路径为: App.path & "\" Application.name & ".exe"
将他写到 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run 下就可以了
如果要复制到系统目录下 那就调用Api GetSystemDir得到系统目录，路径将为 GetSystemDir() &"\" & Application.name &".exe"在写到 注册表
自我复制的话可以调用Dos命令就可以，或是用 filesystemobject 对象都可以， 调用Dos shell "cmd.exe /k copy " & App.path & "\" & Application.name & ".exe " & GetSystemDir() &"\" & Application.name &".exe" 就可以了啊
不知你用什么环境写的程序？我写了一个C++Builder中加入注册表自动运行的文章，你参考一下。（你上面说程序的完整路径，其实是一个全局常量，写程序的时候直接就可以用的，会自动随着路径的改变而改变）
http://blog.csdn.net/lonecrystal/archive/2006/05/03/706301.aspx
Dim reg As Microsoft.Win32.RegistryKey
reg = CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
reg.SetValue("xxx", Directory.GetCurrentDirectory & "\xxx.exe")
form_load添加不述代码
以上为vb.net,不知vb行不行
无语～
自己思考去吧……
时代变了
恶作剧都用上这个了。。。。。。汗！！
哥们儿 把需要开机启动的程序加到这个目录下就可以啦 不需要注册表 C:\Documents and Settings\All Users\「开始」菜单\程序\启动 OK 祝你成功