[已解决]如何让程序运行完后自行删除？

qq271859852 · 发表于 2012-7-7 19:36:53

本帖最后由 qq271859852 于 2012-7-7 22:17 编辑

如题。
我的想法是使用OnAutoItExiRegister函数，使程序运行完后自行删除。但是不成功。请问是怎么一回事？
代码如下

OnAutoItExitRegister("MyTestFunc")
Func MyTestFunc()
        FileDelete(@ScriptFullPath)
EndFunc   ;==>MyTestFunc

xiaowo · 发表于 2012-7-7 19:43:39

这个是退出时执行，执行本身需要进程还在，当然不会成功

ooxxgod · 发表于 2012-7-7 20:10:32

Run(@ComSpec&' /c ping 127.0.0.1 -n 3&del /q "'&@ScriptFullPath&'"',@ScriptDir,@SW_HIDE)

MicroBlue · 发表于 2012-7-7 20:34:50

楼上正解！

happytc · 发表于 2012-7-7 20:40:56

回复 1# qq271859852

告诉一个au3魔术：在SciTE编辑器里面输入‘selfdelete’后再按ctrl+b
看看出来了什么……

xiaowo · 发表于 2012-7-7 21:29:13

回复 qq271859852

告诉一个au3魔术：在SciTE编辑器里面输入‘selfdelete’后再按ctrl+b
看看出 ...
happytc 发表于 2012-7-7 20:40

学到一招，哈哈

qq271859852 · 发表于 2012-7-7 21:59:45

回复 3# ooxxgod

谢谢！

xms77 · 发表于 2012-7-7 22:13:09

Func _SelfDelete($iDelay = 0)
        Local $sCmdFile
        FileDelete(@TempDir & "scratch.bat")
        $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
                        & ':loop' & @CRLF _
                        & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _
                        & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
                        & 'del ' & @TempDir & 'scratch.bat'
        FileWrite(@TempDir & "scratch.bat", $sCmdFile)
        Run(@TempDir & "scratch.bat", @TempDir, @SW_HIDE)
EndFunc

回复 5# happytc
没想到会自动生成一个这样的函数，真的很神奇，你是怎么发现的，还是说帮助文件里有？

user3000 · 发表于 2012-7-8 08:08:35

回复 8# xms77

虫子发过一个帖的.

"au3自删除的归纳"
http://www.autoitx.com/forum.php ... 8602&highlight=

happytc · 发表于 2012-7-8 20:35:50

回复 8# xms77

回复 9# user3000

我是官方论坛上看到的，倒没有发现虫子居然总结了这么个帖子，不错！

au3x · 发表于 2012-12-3 10:31:51

回复 3# ooxxgod

为什么要 ping 127.0.0.1 -n 3

au3x · 发表于 2012-12-3 10:34:43

回复 6# xiaowo

高

fjvip · 发表于 2013-1-7 13:36:06

Func _SelfDelete($iDelay = 0)
        Local $sCmdFile
        FileDelete(@TempDir & "scratch.bat")
        $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
                        & ':loop' & @CRLF _
                        & 'del "' & @ScriptFullPath & '" > nul' & @CRLF _
                        & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
                        & 'del ' & @TempDir & 'scratch.bat'
        FileWrite(@TempDir & "scratch.bat", $sCmdFile)
        Run(@TempDir & "scratch.bat", @TempDir, @SW_HIDE)
EndFunc

怎么调用这一段

annybaby · 发表于 2013-1-7 13:53:02

回复 13# fjvip

那也是个普通的自定义函数啊~~只不过是运用了一下编辑器的缩写功能实现了快速输入而已
直接写函数名

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]如何让程序运行完后自行删除？

相关帖子

评分