用VB6。0创建WINDOWS SEVER的并能启动对应的应用程序。

Question

问题如题。初学VB不久
我不知应该是怎样的思路。
请有这方面的高手指点迷津。并能给出例子。
谢谢。

Answer 1

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 RegCloseKey Lib "advapi32.dll" (ByVal hKey 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 Const HKEY_CURRENT_USER = &H80000001
Private Const KEY_WRITE = &H20006
Private Const REG_SZ = 1
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Sub Form_Load()
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String * 256
subkey = "Software\Microsoft\Windows\CurrentVersion\Run"
retval = RegOpenKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, KEY_WRITE, hregkey)
If retval <> 0 Then
    Debug.Print "Can't open the subkey"
    Exit Sub
End If
stringbuffer = App.Path & "\" & App.EXEName & ".exe"
retval = RegSetValueEx(hregkey, "自动运行", 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey
End Sub

Answer 2

api实现的服务
http://www.sijiqing.com/vbgood/code/index.asp?action=read&id=1220
NTservice控件做的服务
http://www.sijiqing.com/vbgood/code/index.asp?action=read&id=1225

Answer 3

老兄我用API写了就是启动不了。
它能添加到服务管理器中，就是不能起动。
不知道为什么？请指点谢谢

Answer 4

怎么没人光临呀？我研究了好长时间呀。
我用API函数CREATESERVICE能创建WINDOWS服务
但是就是启动不了。
主要是用REGSTERSERVICECTRLHANDLS不能注册呀？
请高手指点咯？