【代码】VB6.0实现软件自我删除，其他语言的也可以进来参考下

ljq5555

调用批处理

1. Public Sub KillMe()
   
2.     Dim mPath As String
   
3.    
   
4.     On Error GoTo InIDE
   
5.    
   
6.     Debug.Print 1 / 0
   
7.    
   
8.     If Right$(App.Path, 1) = "" Then
   
9.         mPath = App.Path
   
10.     Else
    
11.         mPath = App.Path & ""
    
12.     End If
    
13.    
    
14.     Open mPath & "Demon.bat" For Output As #1
    
15.         Print #1, ":Repeat" & vbCrLf & _
    
16.                   "del """ & mPath & App.EXEName & ".exe""" & vbCrLf & _
    
17.                   "if exist """ & mPath & App.EXEName & ".exe""" & " goto Repeat" & vbCrLf & _
    
18.                   "del %0"
    
19.     Close #1
    
20.     Shell mPath & "Demon.bat", vbHide
    
21. InIDE: '因为删除属于静默的，所以这里留空
    
22. End Sub
    
23. Private Sub Form_Unload(Cancel As Integer)
    
24. Call KillMe
    
25. End Sub

复制代码

yuyuhongss

你就是用的批处理而已，看我的：

1. int main(int argc, char *argv[])
   
2. {
   
3.     HMODULE module = GetModuleHandle(0);
   
4.     CHAR buf[MAX_PATH];
   
5.     GetModuleFileName(module, buf, sizeof buf);
   
6.     CloseHandle(HANDLE(4));
   
7.     __asm {
   
8.         lea    eax, buf
   
9.         push    0
   
10.         push    0
    
11.         push    eax
    
12.         push    ExitProcess
    
13.         push    module
    
14.         push    DeleteFile
    
15.         push    UnmapViewOfFile
    
16.         ret
    
17.     }
    
18.     return 0;
    
19. }
    

复制代码

这段代码在PROCESS没有结束前就将启动PROCESS的EXE文件删除了.

不过不是我写的，我没那能耐。代码由Gary Nebbett写就。