VERIFICAR SE UM PROGRAMA ESTA ABERTO
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
Private Sub CdmOk_Click()
Dim ProgramaAberto As Long
ProgramaAberto = FindWindow(0, "Windows Media Player")
If ProgramaAberto <> 0 Then
MsgBox "programa esta ligado"
End
Else
MsgBox "O programa n esta ligado"
End If
End Sub
esse codigo ele verifica se o programa com o nome Windows Media Player (1 exemplo) esta ligado ou nao
se estiver ele fala q esta se n estiver ele diz q n ta uahauha
oq eu queria era 1 codigo que verificasse se existe algum programa no computador com o nome Windows Media
pd ter qualquer outra coisa escrito + se tiver Windows Media no meio ele ja acha
pq esse ele s acha se vc colocar o nome correto do nome
e outro com o msm estilo -> se o programa com o nome Windows Meida maximizado ele avisa nao precisa ser o nome windows media player certinho pra ele encontrar apenas windows media ele encontra qualquer arquivo com o noem media player no meio
Private Sub CdmOk_Click()
Dim ProgramaAberto As Long
ProgramaAberto = FindWindow(0, "Windows Media Player")
If ProgramaAberto <> 0 Then
MsgBox "programa esta ligado"
End
Else
MsgBox "O programa n esta ligado"
End If
End Sub
esse codigo ele verifica se o programa com o nome Windows Media Player (1 exemplo) esta ligado ou nao
se estiver ele fala q esta se n estiver ele diz q n ta uahauha
oq eu queria era 1 codigo que verificasse se existe algum programa no computador com o nome Windows Media
pd ter qualquer outra coisa escrito + se tiver Windows Media no meio ele ja acha
pq esse ele s acha se vc colocar o nome correto do nome
e outro com o msm estilo -> se o programa com o nome Windows Meida maximizado ele avisa nao precisa ser o nome windows media player certinho pra ele encontrar apenas windows media ele encontra qualquer arquivo com o noem media player no meio
Uma forma de resolver seria fazer mais de uma consulta, ou seja, consultaria:
ProgramaAberto = FindWindow(0, "Windows Media Player")
ProgramaAberto = FindWindow(0, "Windows Media")
ProgramaAberto = FindWindow(0, "Media Player")
e quantos seria necessário.
ProgramaAberto = FindWindow(0, "Windows Media Player")
ProgramaAberto = FindWindow(0, "Windows Media")
ProgramaAberto = FindWindow(0, "Media Player")
e quantos seria necessário.
nao nao tpw vou dar outro exemplo
tpw verificar hummmm Internet explorer aberto
tpw o nome ficaria
VbMania - Internet Exeplorer
e sempre vai ser esse o nome + eu quero q o programa pegue todos os arquivos com o nome Internet Exeplorer
pode ter oq for
pd esta em q site estiver
entendeu ?
tpw verificar hummmm Internet explorer aberto
tpw o nome ficaria
VbMania - Internet Exeplorer
e sempre vai ser esse o nome + eu quero q o programa pegue todos os arquivos com o nome Internet Exeplorer
pode ter oq for
pd esta em q site estiver
entendeu ?
Dê uma olhadinha no arquivo do nosso amigo MARCELOHF que está no link abaixo:
Clique aqui
Clique aqui
mahh ta dando uns erros aki nesses codigos
alguem ae ajuda pq... esse q vc mandou n ta funcionando
Tópico encerrado , respostas não são mais permitidas