Aplicação VB

[LexSoler 0]

Boa noite galera, como estão?

 

Bom pessoal, sou leigo na programação e estou com problema..rsrs.. :D

 

 

Vou tentar explicar

Tenho dois programas :

 

Sysmon e Chave

 

O problema é o seguinte, o Sysmon só deve abrir caso o programa Chave esteja aberto, caso contrario, o sysmon mostraria uma mensagem de erro.

 

Na minha cabeça, seria assim :

 

Sysmon

 

If chave.exe = true then

form1.show

else

msgbox ("Programa chave inexistente")

end if

 

:huh:

 

Como eu posso verificar se programa Chave está em execução?

e Caso ele esteja... como eu poderia colocar isso no Sysmon?

 

E se nao for abusar... ^_^ teria como colocar um timer no programa principal(sysmon?)... para que caso o programa Chave seja finalizado, o sysmon também finalize.

Seria legal alguma rotina que verificasse se a Chave ainda estaria em execução, se nao estiver mais, o programa fecha.

 

 

Obrigado a todos e desculpem pela ignorância..rsrs http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[NaTiVuSwEb 0]

Boa noite galera, como estão?

 

Bom pessoal, sou leigo na programação e estou com problema..rsrs.. :D

 

 

Vou tentar explicar

Tenho dois programas :

 

Sysmon e Chave

 

O problema é o seguinte, o Sysmon só deve abrir caso o programa Chave esteja aberto, caso contrario, o sysmon mostraria uma mensagem de erro.

 

Na minha cabeça, seria assim :

 

Sysmon

 

If chave.exe = true then

form1.show

else

msgbox ("Programa chave inexistente")

end if

 

:huh:

 

Como eu posso verificar se programa Chave está em execução?

e Caso ele esteja... como eu poderia colocar isso no Sysmon?

 

E se nao for abusar... ^_^ teria como colocar um timer no programa principal(sysmon?)... para que caso o programa Chave seja finalizado, o sysmon também finalize.

Seria legal alguma rotina que verificasse se a Chave ainda estaria em execução, se nao estiver mais, o programa fecha.

 

 

Obrigado a todos e desculpem pela ignorância..rsrs http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Faça o seguite:

 

Liste os programas que estao carregados na memória.

Dim list

Set list = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Process")

For Each Object In list

List1.AddItem Object.Name

Next

 

**************************

 

Apos utilize um laço que varrera cada item da lista assim...

 

 

For contador = 0 To List1.ListCount - 1

retlist = List1.list(contador)

If retlist Like "*Chave*" Then

'Aqui você coloca suas condições

Label1.Caption = retlist

End If

Next contador

[LexSoler 0]

Valeu,

 

vou testar hoje e posto a resposta...

 

Brigadãao

[LexSoler 0]

Valeu,

 

vou testar hoje e posto a resposta...

 

Brigadãao

 

 

 

Olá pessoal,

 

Bom , decidi mudar de lógica.

 

Acho que seria mais simples uma rotina que verificasse a presença de um pen drive ... Como eu poderia fazer isso?

 

Enquanto o pen drive estiver conectado, o software abre normalmente mas se o pen drive for retirado, o software no computador é encerrado"

 

Ahh, lembrando que eu nao sei em qual unidade seria montado o pen drive... :S

 

Poderiam me ajudar?

 

Valeeu