USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como Serviço no Windows XP
fcarlos
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 05/10/2006 09:51 hs            
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

Francisco Carlos Ferreira
Analista de Sistemas Junior
francisco.azeredo@gmail.com
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página