Usuário com melhor resposta
Checando Processos vb.net

Pergunta
-
Olá,
Fiz um botão e ele abre um outro programa, e coloquei um progressbar com o tempo de 1 minuto e quero que o usuário abra um processo especifico em dentro de 1 minuto caso ele não abra o jogo programa fecha
Como eu faço ?
Código:
Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click
Dim processo As New ProcessStartInfo
processo.FileName = "c:\CoGe\pp_s.exe"
Process.Start(processo)
Timer1.Start()
If MessageBox.Show("Monitoramento iniciado, você tem 60 segundo para abrir o jogo, ou o aplicativo será fechado.") Then
End If
End Sub
Respostas
-
Do jeito abaixo, vc lista todos os processos abertos:
For Each p As Process In Process.GetProcesses() Debug.WriteLine(p.ProcessName) Next
Ou usando linq (deste jeito vc pesquisa diretamente o nome do processo)
Dim procExists as Boolean = Process.GetProcesses().Any(Function(p) p.Name.Contains(processName))
fonte:http://stackoverflow.com/questions/11055147/how-do-i-get-list-of-process-names-running-in-vb-net
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------
- Sugerido como Resposta Leonardo Lourenço Silva sexta-feira, 30 de agosto de 2013 01:59
- Marcado como Resposta Alysson Queiroz segunda-feira, 2 de setembro de 2013 15:43
Todas as Respostas
-
Do jeito abaixo, vc lista todos os processos abertos:
For Each p As Process In Process.GetProcesses() Debug.WriteLine(p.ProcessName) Next
Ou usando linq (deste jeito vc pesquisa diretamente o nome do processo)
Dim procExists as Boolean = Process.GetProcesses().Any(Function(p) p.Name.Contains(processName))
fonte:http://stackoverflow.com/questions/11055147/how-do-i-get-list-of-process-names-running-in-vb-net
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------
- Sugerido como Resposta Leonardo Lourenço Silva sexta-feira, 30 de agosto de 2013 01:59
- Marcado como Resposta Alysson Queiroz segunda-feira, 2 de setembro de 2013 15:43
-
-
Eu nao sei o que vc quer fazer.. simplesmente fica dificil implementar sem saber o que vc quer. Hoje é sexta e minha bola de cristal esta meio embaçada :P
Não me leve à mal, mas o objetivo deste forum é te tirar duvidas.. implementaçao de codigo personalizado eu chamo de emprego e sou pago por isso, espero que você entenda.
Att
William John Adam Trindade
Analyste-programmeur
----------------------------------------------------------
- Editado William John Adam TrindadeModerator sexta-feira, 30 de agosto de 2013 14:37
-
Se eu Entendi direito isso vai funcionar.
Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click
Shell("cmd /c start c:\CoGe\pp_s.exe")
Timer1.Start()MsgBox("Monitoramento iniciado, você tem 60 segundo para abrir o jogo, ou o aplicativo será fechado.")
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.TickProgressbar1.Increment(1)
Dim s() As Process
s = Process.GetProcessesByName("***PROCESSO***")
If s.Length = 1 Then
Timer1.Enabled = False
***FUNÇÃO***
End Ifif Progressbar1.value = "60"
End
end if
End Sub
Onde Tem Escrito ***PROCESSO*** é o Nome do Processo.
Onde Tem Escrito ***FUNÇÃO*** é o que vc quer que o Programa faça se ele abrir o ***PROCESSO***.
Abraços.
- Editado Israel de Jesus sábado, 31 de agosto de 2013 13:27