Public Sub TestForKillMyself()
Dim bat As String = "@echo off" & vbCrLf & _
": tryagain " & vbCrLf & _
"del %1" & vbCrLf & _
"if exist %1 goto tryagain" & vbCrLf & _
" del %0"
System.IO.File.WriteAllText("killme.bat", bat) '写bat文件
Dim psi As New ProcessStartInfo '= new ProcessStartInfo();
psi.FileName = "killme.bat" ';
psi.Arguments = """" & Environment.GetCommandLineArgs()(0) & """"
psi.WindowStyle = ProcessWindowStyle.Hidden ';
Process.Start(psi)
End Sub
VB.net 删除正在运行的自身exe文件
猜你喜欢
转载自blog.csdn.net/polloo2012/article/details/82182804
今日推荐
周排行