程序如何删除自己

程序如何删除自己

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

        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