VB 程序运行完后删除自身的代码

Ineverleft

感觉这样效果不错，通用性高点，XP、Win7都可以运行
（注：在IDE环境下运行调试本程序，请慎重~~） 窗体Form_load中调用Call KillMe 即可

1. '模块代码
   
2. Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
   
3. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long '获取自己的PID
   
4. Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
   
5. 'BY zhuixin8@qq.com
   
6. 'http://www.imcode.cn
   
7. Public Sub KillMe()
   
8. Dim MyFilename As String
   
9. Dim tmp As String * 255
   
10. Dim l As Integer
    
11. l = GetModuleFileName(0, tmp, 255)
    
12. MyFilename = Mid(tmp, 1, l)
    
13. ' taskkill速度快
    
14. ' Shell "cmd /c taskkill /f /pid " & GetCurrentProcessId & " && del """ & MyFilename & """", vbHide
    
15. ' NTSD结束进程速度慢，貌似试一次还不够
    
16. ' Shell "cmd /c ntsd -c q -p " & GetCurrentProcessId & " && del """ & MyFilename & """", vbHide
    
17. ' 用PING来延时，自己退出等着被删不错
    
18. Shell "cmd /c ping 127.0.0.1 -n 1 && del """ & MyFilename & """", vbHide: ExitProcess (0)
    
19. End Sub

复制代码