Question

VB怎样使用使"电脑启动时"自动打开exe文件?

也就是像"瑞星"一样一开机就自动启动?

Answer 1

这个应该要修改注册表的 用批处理也行

Answer 2

哎，没那么麻烦，只要放一个快捷方式在C:\Documents and Settings\你的用户\「开始」菜单\程序\启动 目录下就可以了

Answer 3

'声明
Const REG_SZ As Long = 1
Const HKEY_LOCAL_MACHINE = &H80000002
'创建注册表项
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 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
'打开注册表中的项
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias _
"RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, _
ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
'获取子项
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Const REG_DWORD = 4

Private Sub Form_Load()
'Me.Hide '隐藏窗体
'App.TaskVisible = False '隐藏进程
'写注册表开机启动
Text1.Text = App.Path & "\Server.exe" '将你EXE完整路径写到此处
myint = Len(Text1.Text) - InStrRev(Text1.Text, "\")
myexe = Right(Text1.Text, myint)
RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", hKey
RegSetValueEx hKey, myexe, 0, REG_SZ, ByVal Text1.Text, 255
End Sub

只要将Text1.Text的赋值改一下，其余可以照抄，当然你也可以不要Text1.Text。