如何实现程序的自销毁

[skypaladin]

例如，做好了一个.exe，如何实现运行后删除自身(就是删除.exe文件)？

[射天狼]

Private Sub Command1_Click()
Open "C:\aa.bat" For Output As #1
Print #1, "del -y C:\aa.exe"
Print #1, "del -y C:\aa.bat"
Close #1

Unload Me
DoEvents

Shell "Cmd /c aa.bat" ' 2000下
'Shell "Command.com /c aa.bat" ' 98下
End Sub

'假如程序是放在C盘根目录下,这是利用批处理文件来删除自身的原理!

[射天狼]

程序的路径,文件名,自己改吧~~

[handsomge]

win98 下边通过Wininit.ini实现过（得重启系统）
win2000下好像没有找到这个文件。但是肯定有其他途径
还看到过一个老外写的汇编，只有简单的几行。

[zhuqingxipy]

可以用KILL方法
例：kill d:\test.txt

[oc100]

回复人： zhuqingxipy(竹青) ( ) 信誉：100 2003-11-11 17:14:00 得分:0
可以用KILL方法
例：kill d:\test.txt


程序在启动时不能删除自己阿

[Julies]

Private Sub Command1_Click()
Open "c:\killme.bat" For Output As #1
Print #1, "@echo off" '讓批次檔不會出現指令訊息
Print #1, ":aa": Print #1, "if exist c:\killme.exe goto bb" 'c:\killme.exe為本執行檔的完整路徑
Print #1, "goto cc": Print #1, ":bb"
Print #1, "del c:\killme.exe": Print #1, "cls" '螢幕訊息立即消掉
Print #1, "if exist c:\killme.exe goto aa" '殺不死!再殺!
Print #1, "cls" '再有螢幕訊息也消掉
Print #1, ":cc": Print #1, "echo Hello!!!>c:\killme.exe " '再補一刀!讓undelete也救不回來!
Print #1, "del c:\killme.exe": Print #1, "del c:\killme.bat" '連批次檔也自毀
Print #1, "cls" '最後總清理

Print #1, "exit"
Close #1
'dos執行後也消失!工作列上dos會一閃即逝!即成功了!
Shell "command.com /c c:\killme.bat", 6
End '自己結束!後續的工作交給非同步的批次檔完成!
End Sub
(有人會質疑,費心寫的程式,又為何要把它毀掉...那不要寫就好了?! "代誌ㄟ意義" 當然不是只是好玩!如果搭配在程式防盜保謢上,也不失為一種方式! ^_^)

[vbanddelphi]

学习，学习