首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

*VB 自尽程序*

2013-01-08 
******VB 自杀程序****** Private Sub Command1_Click()KillMeEnd SubSub KillMe()Path App.PathIf Righ

******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也删不了。不知还有没有什么切实可行的自杀办法?
[解决办法]
BAT内容貌似不对.

懒得改了,直接使用我收藏的这个吧:

http://www.m5home.com/bbs/viewthread.php?tid=2798&page=1

这是测试通过的.......

热点排行