[PYTANIE]Restart

[Matiyas]

Siemka..

mam pytanko jaki jest jest kod na restortowanie jakies programy;

 

chodzi mi o to ze jak np dany program .exe jest wylaczaony to go wlaczy chodzi mi tylko o sam kod

 

z góre dziekuje ;]

[engraver]

Process.Start("Ścieżka do pliku")

[Matiyas]

mi chodzilo o kod ze jak bendzie dany plik.exe wyłaczony to ta aplikacja sama bendzie go uruchamiac

[Gość]

Chodzi Ci o automatyczny start przy starcie systemu?

[Matiyas]

Niet chodzi o to ze jak wlacze program. to ten bendzie sprawdzal czy aplikacja jest wlaczona jesli tak nic nie zrobi , jesli wylaczona uruchomi ja

 

 

Chodzi Ci o automatyczny start przy starcie systemu?

co to ma wspolnego do restortowania programu ?

[mc-isgood]

Form_Load

 

wklej to

 

Process.Start("Ścieżka do pliku")

 

a, żeby się sprawdzało czy proces aplikacji jest uruchomiony to:

 

 

Dim processes() As Process

Dim instance As Process

Dim process As New Process()

processes = process.GetProcesses

For Each instance In processes

If instance.ProcessName = "calc" Then

MsgBox("JEST JUZ URUCHOMIONA JEDNA SESJI APLIKACJI, WYLACZAM SIE")

Me.Close()

End If

Next

[Matiyas]

Form_Load

 

wklej to

 

Process.Start("Ścieżka do pliku")

 

a, żeby się sprawdzało czy proces aplikacji jest uruchomiony to:

 

 

Dim processes() As Process

Dim instance As Process

Dim process As New Process()

processes = process.GetProcesses

For Each instance In processes

If instance.ProcessName = "calc" Then

MsgBox("JEST JUZ URUCHOMIONA JEDNA SESJI APLIKACJI, WYLACZAM SIE")

Me.Close()

End If

Next

niet dziala ten kod ;/

[mc-isgood]

Dziala, calc zamień na proces swojej aplikacji, ale bez .exe

[Matiyas]

Działa tylko komunikat a program i tak jest uruchamiany

[eXu]

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim proc() As Process = Process.GetProcesses
    For i As Integer = 0 To proc.GetUpperBound(0)
	    If proc(i).ProcessName = "notepad" Then
		    proc(i).Kill()
	    Else
		    proc(i).Start()

	    End If
    Next

   End Sub
End Class

good ?

[Matiyas]

not good tez nie dziala ;/

[mc-isgood]

Działa tylko komunikat a program i tak jest uruchamiany

 

pod komunikatem dopisz

 

Me.Close() ;x

[Matiyas]

pod komunikatem dopisz

 

Me.Close() ;x

przeciesz wpisane jest a program dalej urchamia

[eXu]

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		    Dim proc() As Process = Process.GetProcesses
		    For i As Integer = 0 To proc.GetUpperBound(0)
				    If proc(i).ProcessName = "notepad" Then
						    proc(i).Kill()
				    Else
						   Process.Start("notepad.exe")
				    End If
		    Next
    End Sub
End Class

teraz powinno działać, bo wcześniej mi się pomyliło

[Matiyas]

Public Class Form1
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		 Dim proc() As Process = Process.GetProcesses
		 For i As Integer = 0 To proc.GetUpperBound(0)
				 If proc(i).ProcessName = "notepad" Then
						 proc(i).Kill()
				 Else
						 Process.Start("notepad.exe")
				 End If
		 Next
 End Sub
End Class

teraz powinno działać, bo wcześniej mi się pomyliło

o stary a zes zajebal to jest jeszcze gorsze niz tamte wczesniejsze to otwiera mi 32 procesy odrazu

nawet dopiskem

"Me.close()"

[Gość]

Pokaż jaki kod wpisujesz, bo oni dają teraz przykłady, w których musisz pozmieniać według własnych potrzeb.

[Matiyas]

Pokaż jaki kod wpisujesz, bo oni dają teraz przykłady, w których musisz pozmieniać według własnych potrzeb.

o wpisuje tak;

Public Class Form1
	 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
					 Dim proc() As Process = Process.GetProcesses
					 For i As Integer = 0 To proc.GetUpperBound(0)
									 If proc(i).ProcessName = "neuz" Then
													 proc(i).Kill()
									 Else
													 Process.Start("neuz.exe")
											 Me.close()
									 End If
					 Next
	 End Sub
End Class

[eXu]

@edit ...

Zaraz dam wersje. tematy pomyliłem

[Matiyas]

rerefresh

[Matiyas]

To może tak potrzebny mi kod na sprawdzanie oraz uruchamianie programu "neuz.exe" i to ma mnie więcej a mniej wyglądać tak.

Jak uruchomię "Restart Program" to po naciśnięciu buttonu program będzie sprawdzał co 120 sekund czy program "neuz.exe" jest uruchomiony.

Jeżeli jest włączony nic "Restart Program" nie robi.

Natomiast jak jest wyłączony "neuz.exe" to "Restart Program" go uruchamia.

 

[Matiyas]

ktoś umie mi pomóc ??

[Maciek2699]

Public Class Form1

 

Public Function sprawdzproces(ByVal name As String) As Boolean

For Each zmkProces As Process In Process.GetProcesses()

If zmkProces.ProcessName.StartsWith(name) Then

Return True

End If

Next

Return False

End Function

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If sprawdzproces("notepad") = True Then

''' co jeśli proces istnieje

Else

'''co jeśli nie

End If

End Sub

End Class

 

 

 

Edit: oczywiscie mozesz sobie to co dałem w butonie dać w form load czy jak tam se chcesz - dałem tak tylko pogladowo.

Edit 2 : Jakiś rozkojarzony jestem W miejscu "notepad" wpisujesz swoj proces bez .exe (wielkosc liter MA znaczenie).

[Sunnyline2]

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Stop()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Process.GetCurrentProcess()
    If wykrywanie("notepad") Then
	    MsgBox("Proces jest uruchomiony ")
    Else
	    Process.Start("notepad.exe")
    End If
   End Sub

   Public Function wykrywanie(ByVal name As String) As Boolean
    For Each sprproc As Process In Process.GetProcesses()
	    If sprproc.ProcessName.StartsWith(name) Then
		    Return True
	    End If
    Next
    Return False
   End Function
End Class

[Maciek2699]

Hmm napisałes dokładnie to co ja !

[Matiyas]

Hmm napisałes dokładnie to co ja !

lecz jego dziala prawie poprawnie bo lecie spam msbox

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Timer1.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 Process.GetCurrentProcess()
 If wykrywanie("notepad") Then
	 MsgBox("Proces jest uruchomiony ")
 Else
	 Process.Start("notepad.exe")
 End If
End Sub

Public Function wykrywanie(ByVal name As String) As Boolean
 For Each sprproc As Process In Process.GetProcesses()
	 If sprproc.ProcessName.StartsWith(name) Then
		 Return True
	 End If
 Next
 Return False
End Function
End Class