求vbs运行后自动删除的代码

VBS可以悔仔岁删除碧睁自身，因为它们是宿主执行的一种程序，只要把代码交给WscriptHost，本体是可以不存在的。

比如：

Dim

fso

Set

fso

=

CreateObject

("Scripting.FileSystemObject")

fso.

DeleteFile

WScript.ScriptFullName'删除自己

上面代码你戚野保存为

KillMySelf

.VBS然后运行试一下。

如果只是差腔卜单纯删除一个.exe文件可以用函数DeleteFile（）虚穗 ；(具体用法可以查一下这个函数)

如果要删除一个工程，思路是：遍历工程目录下所有的文件夹，删除文件圆扮，最后再用函数RemoveDirectory（）删除空的文件夹即可达到目的。

很高兴回答您的问题。在窗口的 将被销毁 事件中写如下代码即可：

写到文件 (“Del.bat”, 到字节集 (“echo wscript.sleep 1 >%temp%\delay.vbs&&%temp%\delay.vbs&&del /q %temp%\delay.vbs” ＋ #换行符 ＋ “del” ＋ “ ” ＋ 取执行文件名 () ＋ #换行符 ＋ “del” ＋ “ ” ＋ “%0”))

销毁 ()

运行 (“Del.bat”, 假, 1)

不懂请追问，满意请给最佳，谢谢。

---