============ 如果让我编的程序在windows启动后自动运行==================

Question

我自己用vb编写了一个程序，需要随着windows启动而自动运行在进程种。注意：windows还没有登录，我的程序就运行在进程中了，例如，我们没有登录windows，但是我们基于IIS的网站就生效了。请问该如何实现？谢谢！

Answer 1

基于 IIS 的？ 在IIS 的虚拟目录，要启动、登录进系统么？
  

Answer 2

你去网上搜下ntsvc.ocx这个控件的相关信息，vb6中要实现服务的功能只能用它了

Answer 3

好像并不是所有的EXE文件都能注册成服务的
在LOCAL...Machine\software\microsoft\windows\cur..\runservices\不知是否可行
没试过

Answer 4

DengXingJie(杰西) 的方法应该有效

Answer 5

简单的方法：对exe文件生成一个快捷方式，然后将此快捷方式直接拖入开始菜单下的“启动”即可。注册成服务:
假如你的exe文件名为ddd.exe，并存在d:\\test目录下，在命令行中键入cmd，并将目录转到dd:\\test 键入
ddd -install -你要建的服务名 -进入数据库的用户名 -进入数据库的密码 -数据库名 -d:\\test
如：ddd -install -test1 -admin -hhjj123 -testdb -d:\\test
你尝试一下，应该没问题，我做工程时用过，如果不需要连接数据库，或没有密码的话应该
ddd -install -test1  -d:\\test 就可以，注册成功后就将服务启动设置成“自动”即可。

Answer 6

按樓上的說話
那還得把EXE寫成服務的形式才行
普通的EXE恐怕不行吧

Answer 7

你们都在说些什么呀。vb6要想实现服务只有用ntsvc.ocx这个控件

Answer 8

可以参考江民杀毒软件和Kaspersky的进入windows之前，自动启动简易杀毒的做法。

Answer 9

使用Microsoft提供的NTSVC.OCX控件，VB也可以将你的应用程序做成Service服务。 
http://blog.csdn.net/stefli/archive/2004/12/30/234217.aspx----------
www.vicmiao.com
努力就有美好时光!

Answer 10

这个更好，已经测试http://hi.baidu.com/hn123/blog/item/8e3f097b43e72ef40bd187fe.html

Answer 11

可以改注册表
把下面代码加到一个模块里：
Sub Main(Mark As Boolean)
Dim hKey As Long, SubKey As String, Exe As String
Select Case Mark
Case True
    If Right(App.Path, 1) = "\" Then
        Exe = App.Path + App.EXEName + ".exe"
    Else
        Exe = App.Path + "\" + App.EXEName + ".exe"
    End If
        SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
        RegCreateKey HKEY_CURRENT_USER, SubKey, hKey
        RegSetValueEx hKey, "键值名", 0, REG_SZ, ByVal Exe, LenB(StrConv(Exe, vbFromUnicode)) + 1
        RegCloseKey hKey
Case False
    SubKey = "Software\Microsoft\Windows\CurrentVersion\Run"
    RegOpenKey HKEY_CURRENT_USER, SubKey, hKey
    RegDeleteValue hKey, "键值名"
    RegCloseKey hKey
End Select
End Sub
参数Mark赋True或False就行了。