【分享】马大哈系列功能模块----自杀模块,删除自身,BAT实...
写了一个BAT文件,把EXE删除.老思路了,不过还是很有意思
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 支持一下马总
页:
[1]