.net application重启之旧程序的清理

经常有需要把后台的自动程序重启。一直用的application.restart()

但是，多线程的程序总有不明原因清理不干净，用了       

        timr.Stop()
timr.Dispose()
timr = Nothing

仍然不行，后来想到了用Kill

        Dim myid As Integer
myid = Process.GetCurrentProcess.Id
If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then
Threading.Thread.Sleep(2000)   '等一会，可能是旧进程还未退出
End If
If Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName).Length > 1 Then
Dim myProcesses() As Process
Dim myProcess As Process
myProcesses = Process.GetProcessesByName(Process.GetCurrentProcess.ProcessName)
For Each myProcess In myProcesses
'If myProcess.StartTime < Now.AddSeconds(-30) Then
If myProcess.Id <> myid Then
myProcess.Kill()
End If
Next
End If