Dígame cómo agregar un programa VB como servicio a VB Trojan, gracias.
En caso de error, continúe con el siguiente paso
Atenuar hSCManager mientras
Atenuar hService mientras
Atenuar ServiceTableEntry como SERVICE_TABLE_ENTRY
Marcar B como valor booleano
Ajustar cmd a una cadena
Atenuar U mientras
cmd = Trim(LCase( comando ()))
Seleccione case cmd
Caso "-Desinstalar"
Si CheckIsNT = False, entonces Fin: Salir de Sub
Administrador de HSC = administrador de opensc(vbNullString, vbNullString,_
El administrador de la cadena de suministro crea el servicio)
hs SERVICE = servicio abierto(Administrador de HSC, NOMBRE_SERVICIO,_
SERVICE_ALL_ACCESS)
Eliminar servicio
CloseServiceHandle hService
CloseServiceHandle hSCManager
Fin
Caso "-Instalación"
Si CheckIsNT = False, entonces cargue frmMain: salga de Sub
Instale el servicio NT.
Administrador de HSC = administrador de opensc(vbNullString, vbNullString,_
El administrador de la cadena de suministro crea el servicio)
hs SERVICE = crea SERVICIO(administrador de HSC, NOMBRE_SERVICIO,_
Nombre del servicio, acceso total al servicio, _
SERVICE_WIN32_OWN_PROCESS, _
Service_requirement_start, service_error_normal, ruta y ruta " \ " ampApp >
CloseServiceHandle. hSCManager
Múltiples actividades
Aplicación Shell. Caminos y caminos. " \ " ampApp. EXEName amp".EXE " 'Reinicie EXE.
Finalizar
Otras situaciones
Iniciar el servicio NT.
Si CheckIsNT = False, entonces cargue frmMain: salga de Sub
servicetableentry lpservicename = SERVICE _ NAME
servicetableentry lpserviceproc = fnc ptr(dirección del servicio principal. )
b = StartServiceCtrlDispatcher(ServiceTableEntry)
Cargue el formulario y comience a ejecutar el cuerpo del programa.
Finalizar selección
Conector final
Esto es para configurar el programa VB como un servicio,
Pero VB no puede escribir un programa de servicio. , por lo que deberás utilizar un control proporcionado por Microsoft.
Este control es de código abierto y está escrito en c.