对AU3编译后删除自身的研究改进
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿Au3 版本: 3.3.9.0
脚本作者: ~苦笑人生
QQ/TM: 42001979
脚本功能: 对AU3编译后删除自身的研究改进
参考代码：
AU3删除本身脚本;删除脚本程序自身
Run(@ComSpec&' /c ping 127.0.0.1 -n 3&del /q "'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE)
;删除脚本所在目录的一切东西
Run(@ComSpec&' /c ping 127.0.0.1 -n 3&rd /q/s "'&@ScriptDir&'"',@ScriptDir,@SW_HIDE)
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
if Not @compiled Then
Msgbox(48,"Kill Me","请编译后执行...")
Exit
Endif
if FileGetAttrib ( @ScriptFullPath )<>"A" Then
;// 防止被设置 系统 和 隐藏 只读 等属性
FileSetAttrib ( @ScriptFullPath, "-RSH" , 0 )
Endif
;// 删除自身的Cmd命令 用FileGetShortName转为8.3格式，解决长路径、长文件名需加双引号的问题
;//
$text = @ComSpec & " /c ping 127.0.0.1 -n 2&del /q/f " & FileGetShortName(@ScriptFullPath)
;// 退出后运行该删除自身的命令，尝试过把 Ping省掉，但没成功(还是需要一点时间差的）
Exit( Run($text, @ScriptDir, @SW_HIDE) )
谢谢分享！ win8好像用不了这个
页:
[1]