Question

vb 如何实现开机自动启动自身

怎么写代码
比如说我下面这一段代码写了小程序
我要加入开机自动启动代码，应当怎么改！！！
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

Answer 1

Option Explicit

Public Declare Function RegSetValueEx Lib \"advapi32.dll\" Alias \"RegSetValueExA\" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Declare Function RegCreateKey Lib \"advapi32.dll\" Alias \"RegCreateKeyA\" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegCloseKey Lib \"advapi32.dll\" (ByVal hKey As Long) As Long

Public Declare Function RegDeleteValue Lib \"advapi32.dll\" Alias \"RegDeleteValueA\" (ByVal hKey As Long, ByVal lpValueName As String) As Long

Public Const REG_SZ = 1

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Sub SetAutoRun(ByVal Autorun As Boolean)

Dim KeyId As Long
Dim MyexePath As String
Dim regkey As String

MyexePath = App.Path & \"\\\" & App.EXEName & \".exe\" \'获取程序位置

regkey = \"Software\\Microsoft\\Windows\\CurrentVersion\\Run\" \'键值位置变量

Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId) \'建立

If Autorun Then

RegSetValueEx KeyId, \"MySoftware\", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)

Else

RegDeleteValue KeyId, \"MySoftware\"

End If

RegCloseKey KeyId

End Sub

调用方法

SetAutoRun(ByVal Autorun As Boolean)
2是利用Vb5stkit.dll里面的函数

窗体部分代码,加入6个按钮

Option Explicit

Private Sub CmdAddStartup_Click() \'在开始菜单的启动程序组下创建记事本的快捷方式

Call OSfCreateShellLink(\"\\启动\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")

End Sub

Private Sub CmdAddDeskTop_Click() \'在桌面创建记事本的快捷方式

Call OSfCreateShellLink(\"..\\..\\桌面\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")

End Sub

Private Sub CmdAddProgram_Click() \'在程序菜单的Notepad程序组下创建记事本的快捷方式

Call OSfCreateShellGroup(\"Notepad\") \'先建立程序组

Call OSfCreateShellLink(\"Notepad\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")

End Sub

Private Sub CmdAddStartMenu_Click()

Dim i As Long

For i = 1 To 5 \'在开始菜单创建记事本的快捷方式,必须用循环才能创建?

Call OSfCreateShellLink(\"..\\..\\「开始」菜单\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")[Page]

Next

End Sub

Private Sub CmdQuickLaunch_Click() \'在快捷工具栏下创建记事本的快捷方式

Call OSfCreateShellLink(\"..\\..\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch\", \"记事本\", GetWindowsPath & \"\\Notepad.exe\", \"\")

End Sub

Private Sub CmdDelAllLink_Click()

Call OSfRemoveShellLink(\"..\\..\\「开始」菜单\", \"记事本\") \'删除开始菜单上的快捷方式

Call OSfRemoveShellLink(\"..\\..\\桌面\", \"记事本\") \'删除桌面上的快捷方式

\'Call OSfRemoveShellLink(\"Notepad\", \"记事本\") \'删除Notepad程序组下的快捷方式,这样不能删除程序组

Call RemoveShellGroup \'删除Notepad程序组下的快捷方式

Call OSfRemoveShellLink(\"\\启动\", \"记事本\") \'删除启动菜单下的快捷方式

Call OSfRemoveShellLink(\"..\\..\\Application Data\\Microsoft\\Internet Explorer\\Quick Launch\", \"记事本\") \'删除快捷工具栏下的快捷方式

End Sub

Private Sub RemoveShellGroup()

On Error GoTo ToExit \'打开错误陷阱

\'------------------------------------------------

\'RmDir删除一个存在的目录或文件夹。语法RmDir Path
\'必要的 path 参数是一个字符串表达式，用来指定要删除的目录或文件夹。path 可以包含驱动器。如果没有指定驱动器，则 RmDir 会在当前驱动器上删除目录或文件夹。
\'说明如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

Kill (GetProgarmPath(Me.hWnd) & \"\\Notepad\\记事本.lnk\")
RmDir (GetProgarmPath(Me.hWnd) & \"\\Notepad\")

\'------------------------------------------------

Exit Sub

\'----------------

ToExit:

Resume Next

End Sub
\'模块代码

Option Explicit

' CmdAddStartup \"创建启动程序组快捷方式\"

再给你隐身的

1. 在VB6.0编程环境中，新建一个工程Project1。

2. 在Project1中添加模块Modulel，在工程属性中将工程名称改为HiddenMen，应用程序标题也改为HiddenMen（以下程序都经过实际运行测试，可以原样复制使用）。

在模块Module1中加入如下声明：

Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
’在系统中注册当前进程ID函数的声明

3. 在Project1中新建一个窗体Form1，设置Form1的属性：

form1.Visible=False
form1.ShowInTaskBar=False

在代码窗口添加如下代码：

Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
’获得当前驱动器类型函数的声明
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
’获得当前驱动器信息函数的声明
Private Sub Form_Load()
Dim drive_no As Long, drive_flag As Long
Dim drive_chr As String, drive_disk As String
Dim serial_no As Long, kkk As Long
Dim stemp3 As String, dflag As Boolean
Dim strlabel As String, strtype As String，strc As Long
RegisterServiceProcess GetCurrentProcessId, 1 ’ 从系统中取消当前进程
strlabel = String(255, Chr(0))
strtype = String(255, Chr(0))
stemp3 = “172498135” ’这是作者C盘的序列号（十进制）,读者可根据自己情况更改。
dflag = False
For drive_no = 0 To 25
drive_disk = Chr(drive_no + 67)
drive_chr = drive_disk & “:\”
drive_flag = GetDriveType(drive_chr)
If drive_flag = 3 Then
kkk = GetVolumeInformation(drive_chr, strlabel, Len(strlabel), serial_no, 0, 0, strtype, Len(strtype)) ’通过GetVolumeInformation获得磁盘序列号
Select Case drive_no
Case 0
strc = serial_no
End Select
If serial_no = stemp3 Then
dflag = True
Exit For
End If
End If
Next drive_no
If drive_no = 26 And dflag = False Then ’非法用户
GoTo err:
End If
MsgBox (“HI，合法用户！”)
Exit Sub
err:
MsgBox (“错误!你的C：盘ID号是” & strc)
End Sub
Private Sub Form_Unload(Cancel As Integer)
RegisterServiceProcess GetCurrentProcessId, 0 ’从系统中取消当前程序的进程
End Sub

将上述程序代码编译后运行，在出现类似“错误!你的C盘ID号是172498135”对话框时，按下Ctrl+Alt+Del键，看看程序名叫“HiddenMen”是否在任务管理器名单列表里。如果把上述程序稍加改动，可以加到自己特定的程序中去。该程序在隐形运行之中，不知不觉就完成了预定功能。

Answer 2

VB编写的开机自启动的：程序

Private Sub Command1_Click()
FileCopy App.Path & App.EXEName & ".exe",
"C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\" & App.EXEName & ".exe"End Sub

Answer 3

你要让生麽东西随系统启动，就把这东西的快捷方式放在c盘\用户\自己的用户名默认为administrator\启动 里就可以了
通过开始菜单也能找到“启动”文件夹

Answer 4

方法有多种，其中一种就是把 111.exe 程序写入注册表的启动项就可以了:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

或者加入系统的启动项，或写成服务程序方式.....。

Answer 5

shell "copy "+chr$(34)+" "+chr$(34)+"c:\111.exe"+chr$(34)+chr$(34)+"C:\Documents and Settings\%username%\「开始」菜单\程序\启动"+chr$(34)