TIMER

NIUN 30/06/2011 13:20:44
#378139
é o seguinte, estou fazendo um Splash, que verifica se um determinado programa está aberto...
Veja o código:
Citação:


Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.entrar.Start()
End Sub

Private Sub entrar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles entrar.Tick
Dim Arquivo As StreamReader
Arquivo = New StreamReader([Ô]adc_content.txt[Ô])
Game.Text = Arquivo.ReadToEnd
Dim myprocesses As Process()
myprocesses = Process.GetProcessesByName(Game.Text)

If myprocesses.Length > 0 Then
MsgBox([Ô]Programa já está em execução![Ô])
Arquivo.Close()
Me.entrar.Stop()
Close()
Else
Shell(Game.Text & [Ô].exe[Ô], vbNormalFocus)
Arquivo.Close()
Me.entrar.Stop()
Close()
End If
End Sub
End Class


O problema, é que quando ele já está em execução, ele buga, aparece umas 500 janela da MsgBox... Alguém pode me ajudar? Já tentei de tudo!
NIUN 30/06/2011 14:40:05
#378152
Obrigado, já resolvi... Quem quiser saber como ficou:
Citação:


Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.entrar.Start()
End Sub

Private Sub entrar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles entrar.Tick
Dim Arquivo As StreamReader
Arquivo = New StreamReader([Ô]adc_content.txt[Ô])
Game.Text = Arquivo.ReadToEnd
Dim myprocesses As Process()
myprocesses = Process.GetProcessesByName(Game.Text)

If myprocesses.Length > 0 Then
Me.entrar.Stop()
MsgBox([Ô]Programa já está em execução![Ô])
Arquivo.Close()
Close()
Else
Shell(Game.Text & [Ô].exe[Ô], vbNormalFocus)
Arquivo.Close()
Me.entrar.Stop()
Close()
End If
End Sub
End Class
Tópico encerrado , respostas não são mais permitidas
Voltar