Attribute VB_Name = "ModKillMe"
Option Explicit
'*************************************************************************
'**模 块 名：ModKillMe
'**说    明：自杀模块(使用BAT文件法)
'**创 建 人：嗷嗷叫的老马
'**日    期：2003年11月17日
'**描    述：千万不要在IDE里调用本函数,不然会删除VB6.EXE
'**版    本：V1.0
'*************************************************************************

Public Sub KillMe()
    Dim mPath As String
    
    On Error GoTo InIDE
    
    Debug.Print 1 / 0       '触发IDE错误,上个保险算了
    
    If Right$(App.Path, 1) = "\" Then
        mPath = App.Path
    Else
        mPath = App.Path & "\"
    End If
    
    Open mPath & "Demon.bat" For Output As #1
        Print #1, ":Repeat" & vbCrLf & _
                  "del """ & mPath & App.EXEName & ".exe""" & vbCrLf & _
                  "if exist """ & mPath & App.EXEName & ".exe""" & " goto Repeat" & vbCrLf & _
                  "del %0"
    Close #1
    Shell mPath & "Demon.bat", vbHide
InIDE:
End Sub