对AU3编译后删除自身的研究改进

dhlhmgc

#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) )

fanan_666

谢谢分享！

xz00311

win8好像用不了这个