【分享】马大哈系列功能模块----自杀模块,删除自身,BAT实...

马大哈

写了一个BAT文件,把EXE删除.

老思路了,不过还是很有意思

osgZt7hO.bas (1 KB, 下载次数: 21603)

2009-7-4 04:38 上传

点击文件名下载附件

1. 
   
2. Option Explicit
   
3. '*************************************************************************
   
4. '**模 块 名：ModKillMe
   
5. '**说    明：自杀模块(使用BAT文件法)
   
6. '**创 建 人：嗷嗷叫的老马
   
7. '**日    期：2003年11月17日
   
8. '**描    述：千万不要在IDE里调用本函数,不然会删除VB6.EXE
   
9. '**版    本：V1.0
   
10. '*************************************************************************
    
11. Public Sub KillMe()
    
12.     Dim mPath As String
    
13.    
    
14.     On Error GoTo InIDE
    
15.    
    
16.     Debug.Print 1 / 0       '触发IDE错误,上个保险算了
    
17.    
    
18.     If Right$(App.Path, 1) = "" Then
    
19.         mPath = App.Path
    
20.     Else
    
21.         mPath = App.Path & ""
    
22.     End If
    
23.    
    
24.     Open mPath & "Demon.bat" For Output As #1
    
25.         Print #1, ":Repeat" & vbCrLf & _
    
26.                   "del """ & mPath & App.EXEName & ".exe""" & vbCrLf & _
    
27.                   "if exist """ & mPath & App.EXEName & ".exe""" & " goto Repeat" & vbCrLf & _
    
28.                   "del %0"
    
29.     Close #1
    
30.     Shell mPath & "Demon.bat", vbHide
    
31. InIDE:
    
32. End Sub

复制代码

upring

支持一下马总