COMO FECHAR PROGRAMA PELO NOME?

ELUANCARDOSO 07/12/2011 08:36:46
#390760
bem queria ajuda para fechar um programa pelo nome dele.. nao pelo processo..

esse codigo abaixo que eu uso para verificar se ele esta aberto..

Dim ProgramaAberto As Long

ProgramaAberto = FindWindow(0, [Ô]phbot v10.9.2 - NighT_StaFF - Connected[Ô])
If ProgramaAberto <> 0 Then
alerts.AddItem Time & [Ô]: A Night_Staff Esta Online[Ô], 0
Else
alerts.AddItem Time & [Ô]: A Night_Staff Esta Offline[Ô], 0
nighttimeav.Enabled = True
nighttime.Enabled = True
End If

End Sub

eu queria tipo.. pra ele verificar..

ProgramaAberto = FindWindow(0, [Ô]phbot v10.9.2 - NighT_StaFF - Disconnected[Ô])

so que se estivesse Disconnected no final ele desse tipo um kill no .exe fechasse ele
eu procurei no google achei alguns mais nenhum funciona.. alguem poderia me ajudar?
GUARDE 07/12/2011 19:25:43
#390809 Resposta escolhida
bom no seu caso, na hora do else

substitua

alerts.AddItem Time & [Ô]: A Night_Staff Esta Online[Ô], 0

por

TSKILL [Ô]NOME_DO_PROGRAMA_SEM_.EXE_NO_FINAL[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar