4个回答
2013-10-20
展开全部
1.调用批处理强行删除自身。2.将自身复制到其他目录,然后直接用KILL函数,删除原来目录下的源程序即可。首先应DIR函数判断文件是否存在,如果存在就删,不存在就不删
2013-10-20
展开全部
可以通过批处理解决问题Open App.Path & "\a.bat" For Output As #1
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
'a.bat 删除指定文件
Print #1, "del " & App.EXEName + ".exe"
'a.bat 删除自身
Print #1, "del a.bat"
Print #1, "cls"
Print #1, "exit"
Close #1
Shell App.Path & "\a.bat", vbHide
'"@echo off" 不显示执行过程
Print #1, "@echo off"
Print #1, "sleep 100"
'a.bat 删除指定文件
Print #1, "del " & App.EXEName + ".exe"
'a.bat 删除自身
Print #1, "del a.bat"
Print #1, "cls"
Print #1, "exit"
Close #1
Shell App.Path & "\a.bat", vbHide
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-10-20
展开全部
这个容易,在unload事件中调用cmd就可以了,如下: shell "del /F /Q " & app.path & app.exename & ".exe" 把这句写在unload事件就可以,记住,不能在调试中使用!否则的话,整个vb可以会没了的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-10-20
展开全部
vb删除自己
Option Explicit Private Sub Command1_Click() Open "kill.bat" For Output As #1 Print #1, "dir c:\winnt\system32" Print #1, "del " & App.EXEName & ".exe" Print #1, "del kill.bat" Close Shell "kill.bat", vbHide EndEnd Sub
Option Explicit Private Sub Command1_Click() Open "kill.bat" For Output As #1 Print #1, "dir c:\winnt\system32" Print #1, "del " & App.EXEName & ".exe" Print #1, "del kill.bat" Close Shell "kill.bat", vbHide EndEnd Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询