Pessoal,
A Dúvida que eu estava tendo consegui resolver. Achei melhor compartilhar a informação com os amigos.
Como consegui desenvolver em VB6 um exe para rodar como serviço no windows?
Crie um projeto novo e nele remova o form e adicione um módulo. No código deste módulo deve conter o seguinte:
Sub main ()
codigo
codigo
end Sub
Esta é principal rotina do código. Ao rodar o aplicativo, é nela que irá iniciar.
Nesta rotina pode-se chamar os rotinas para serem executadas de acordo com a necessidade de todos.
Depois de implementado crie o arquivo .exe
Importante:
Dentro do código vc deve colocar um timer para executar a rotina main ()continuamente. Use a seguinte API do Windows
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Na verdade essa api serve para parar o processo por um determinado tempo. Quando ele sair o sleep, é preciso chamar a rotina main() novamente e assim por diante.
Depois de criado o exe, é preciso ter dois aplicativos da microsoft InstSrv.exe e o SrvAny.exe e para criar o serviço faça o seguinte:
Entre no prompt do DOS, execute o comando: (Imagine que esses arquivos estejam no c:) c:instsvr.exe <nome do serviço> c:SrvAny.exe
Depois vá no regedit e localize HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServices<Nome_do_serviço>
Dentro da Chave com o nome do serviço criado, crie uma nova chave chamada "Parameters"
Dentro da Chave "Parameters" crie um valor de sequencia chamado "Application".
Dê 2 cliques neste valor criado e informe o caminho completo do executável.
Dentro da Chave com o nome do serviço, crie um valor de sequencia chamado "Description"
Dê 2 cliques neste valor criado e informe o nome do Serviço Criado.
Pronto. O serviço está completamente criado. Basta iniciá-lo agora. pelo painel de controlesserviços administrativosserviços.
Abraços à todos os amigos
