VB源码(VB删除自身),进程“自杀”

1、源码

2、Private Sub Command1_Click()KillMeEnd SubSub KillMe()Open App.Path & "\temp.bat" For Output As #1'"@echo off" 不显示执行过程Print #1, "@echo off"Print #1, "sleep 100"'temp.bat 删除指定文件Print #1, "del " & App.EXEName + ".exe"'temp.bat 删除自身Print #1, "del temp.bat"Print #1, "cls"Print #1, "exit"Close #1Shell App.Path & "\temp.bat", vbHideEndEnd Sub