Tutoriel [VB.NET] Source - Persistance basique

[Kilo-25]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length < 2 Then 'If self is Opened Less than twice
          Process.Start(Process.GetCurrentProcess.ProcessName)  'Start own instance
     End If
End Sub

 

[RoRoH_AR]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
     If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length < 2 Then 'If self is Opened Less than twice
          Process.Start(Process.GetCurrentProcess.ProcessName)  'Start own instance
     End If
End Sub