程序如何删除自己
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim delString As String '要写入批处理文件的字符串
Dim appName As String
appName = System.Environment.GetCommandLineArgs(0).Replace(Directory.GetCurrentDirectory() & "/", "")
delString = "pause" & vbCrLf '这 里是可以更改的,改为让批处理文件等待一段时间后执行,要不然,如果程序没有退出是不能顺利删除的
delString += "del " & appName & vbCrLf '生成删除程序命令,中间部分用于获取程序完整路径
delString += "del %0" '删 除bat文件
Dim delBatFile As New FileStream("delMe.bat", FileMode.Create) '生成bat批处理文件
Dim buffer(100) As Byte
buffer = System.Text.Encoding.ASCII.GetBytes(delString.ToCharArray) '把字符串转化为字节流
delBatFile.Write(buffer, 0, buffer.Length) '写入bat文件
delBatFile.Flush()
delBatFile.Close()
Process.Start("delMe.bat") '执 行批处理文件
Me.Close()
End Sub