如何讓執行程式自毀

Question

我設計出了一個程式
但是我想讓它在執行完它的工作後自我毀滅
那要怎麼做?

Answer 1

候選編號 004的觀念在VB入門網裡面有
VB入門網有豐富的資料 你以後可以多去找找
coding cafe
http://willh.org/cfc/
也歡迎你來這裡討論

Answer 2

Private Sub Command1_Click()
Dim Dr As String, A As Long
Dr = "C:\Test.exe" '自己的程式
A = FreeFile
Open "c:\kill.bat" For Output As #A
Print #A, "@echo off"
Print #A, ":a1"
Print #A, "if exist " & Dr & " goto a2"
Print #A, "goto a3"
Print #A, ":a2"
Print #A, "del " & Dr
Print #A, "cls"
Print #A, "if exist " & Dr & " goto a1"
Print #A, "cls"
Print #A, ":a3"
Print #A, "echo Hello!!!>" & Dr & " "
Print #A, "del " & Dr
Print #A, "del c:\kill.bat"
Print #A, "cls"
Print #A, "exit"
Close #A
Shell "command.com /c c:\kill.bat", 6
End
End Sub

Answer 3

請問這部分要怎麼做呢^^?

2005-10-24 19:04:42 補充：
如果您還希望 b.exe 也不見, 那把上述流程改到批次檔 (bat檔) 去做就可以了, 更簡單 ^_^

Answer 4

執行完後 執行刪除本程式的程式碼即可
可是我不會寫
自己去研究吧

Answer 5

你好無聊喔~ 虎膽妙算看太多了... 跟我一樣... ><
我以前就是看了新虎膽妙算, 也想來個倒數讀秒自我毀滅, 就寫了一個這樣的程式, 當時我是用網頁, 寄給朋友們, 然後用 Outlook Express 打開, 看過一次之後就不能再看了 ^_^

VB 作法當然不大一樣.
解釋我的建議如下: ( 記住喔, 同一個目的絕對不只有一種方法 ^^ )
1. 程式 a.exe 先啟動, 執行.. 之後呼叫外部命令, 執行程式 b.exe , 然後結束執行.
2. 程式 b.exe 被 a.exe 呼叫啟動, 先等待約 10 秒 (就是等 a.exe 結束), 然後用刪除檔案的方式, 直接將 a.exe 給砍了!
3. 程式 b.exe 結束執行.

這樣程式 a.exe 就再也不會被看到囉 ^_^

如果您還希望 b.exe 也不見, 那把上述流程改到批次檔 (bat檔) 去做就可以了, 更簡單 ^_^