pues yo queria saber como usar las funciones osea como instalar digamos el notepad como servicio
yo e investigado un poco pero no logro hacerlo :/
(e hecho una copia del notepad al C )
Sub Main()
Dim ComputerN As String
Dim LenC As Long
ComputerN = Space(MAX_COMPUTERNAME_LENGTH)
LenC = MAX_COMPUTERNAME_LENGTH + 1
GetComputerName ComputerN, LenC
ComputerN = Left$(ComputerN, LenC)
ServiceInstall ComputerN, "NOTEPAD", "C:\NOTEPAD.exe"
'ServiceStop "", "ipodservice"
'ServiceStart "", "ipodservice"
'ServicePause "", "ipodservice"
'ServiceInstall "", "ipodservice",
'ServiceUnInstall "", "ipodservice"
'MsgBox ServiceStatus("", "ipodservice")
End Sub
y cuando llamo a la funcion de instalar el servicio no me instala nada :/ yo uso window 7 noce si eso puede afectar aunq en la msdn dice que desde 98 creo
en adelanet
es mas e puesto esta linea despues de la llamada a la API createservice
If Err.LastDllError <> 0 Then Debug.Print Error(Err.LastDllError)
para saber cual es el error y me devuelve esto:
"Error definido por la aplicación o el objeto"