网页功能: 加入收藏 设为首页 网站搜索  
一个自杀程序
发表日期:2002-09-19作者:李立华[原创] 出处:  

下面的代码演示将一个程序在执行时将自己删除。

新建一个窗体,并加一上按钮,添如下代码

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

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 一个自杀程序
本类热点文章
  如何学好VB
  如何学好VB
  一个自杀程序
  一个自杀程序
  VB问题集锦及编程技巧
  VB问题集锦及编程技巧
  Visual Basic6.0实现自动化测试
  如何在VB中实现ActiveX控件的IobjectSa..
  VB计算农历的算法
  VB计算农历的算法
  RSA加密算法在VB中的实现
  在VB中调用CHM帮助的几种方法
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.02241