******VB 自杀程序******

Private Sub Command1_Click()
          KillMe
  End Sub
   
  Sub KillMe()
      Path = App.Path
      If Right(Path, 1) <> "\" Then Path = Path + "\"
      PathName = Path + App.EXEName + ".EXE"
      BatName = Path + "1.bat"
      Open BatName For Output As #1
      Print #1, ":START"
      Print #1, "del  " & PathName
      Print #1, "if  exist  " & PathName & "  GOTO  START"
      Print #1, "del  " & BatName
      Close #1
      Shell BatName, vbHide
      End
  End Sub

以上这段代码不但删不了我的程序，连生成的1.bat也删不了。不知还有没有什么切实可行的自杀办法？

---

改名移动到temp目录里面。

---

呵呵，这个主意不太适合我。

---

嗷嗷叫的老马，谢了，可行。