UC知道vb 如何实现开机自动启动自身
来源：百度知道 编辑：UC知道 时间：2024/06/25 07:21:22
怎么写代码
比如说我下面这一段代码写了小程序
我要加入开机自动启动代码，应当怎么改！！！
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_load()
shell "c:\111.exe"
end
End Sub
比如说我下面这一段代码写了小程序
我要加入开机自动启动代码，应当怎么改！！！
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Form_load()
shell "c:\111.exe"
end
End Sub
VB编写的开机自启动的：程序
Private Sub Command1_Click()
FileCopy App.Path & App.EXEName & ".exe",
"C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\" & App.EXEName & ".exe"End Sub
你要让生麽东西随系统启动，就把这东西的快捷方式放在c盘\用户\自己的用户名默认为administrator\启动 里就可以了
通过开始菜单也能找到“启动”文件夹
方法有多种，其中一种就是把 111.exe 程序写入注册表的启动项就可以了:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
或者加入系统的启动项，或写成服务程序方式.....。
shell "copy "+chr$(34)+" "+chr$(34)+"c:\111.exe"+chr$(34)+chr$(34)+"C:\Documents and Settings\%username%\「开始」菜单\程序\启动"+chr$(34)
很简单，把c:\111.exe加入到启动里不就完了。
你要写病毒么？？
Option Explicit
Public Declare Function RegSetValueEx Lib \"advapi32.dll\" Alias \"RegSetValueExA\" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As