让自解压也能解压到一个随机的目录源码

862228699 · 发表于 2016-11-8 18:43:55

本帖最后由 862228699 于 2019-11-24 16:06 编辑

让自解压也能解压到一个随机的目录
首先制作一个解压到当前目录的自解压文件

Local $key = ""
For $i = 1 To Random(6, 12)
        $key = $key & StringMid("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789", Random(1, 62, 1), 1)
Next
DirCreate(@ScriptDir & "" & $key)
FileCopy("zjy.exe", @ScriptDir & "" & $key & "\zjyx.exe", 1)
RunWait(@ScriptDir & "" & $key & "\zjyx.exe",@ScriptDir & "" & $key);只要在这里加入想解压到的地方 为工作目录就OK了。
FileDelete(@ScriptDir & "" & $key & "\zjyx.exe")

kk_lee69 · 发表于 2016-11-9 00:48:54

回复 1# 862228699

問問題還得付錢看呀!!!

ap112 · 发表于 2016-11-14 14:23:40

这个问题估计没人帮你解答

49666684 · 发表于 2016-12-2 23:44:33

这个问题估计没人帮你解答

netmaple · 发表于 2016-12-15 15:25:40

楼主疯了请教问题还收费，不怕被上帝带走啊！

862228699 · 发表于 2016-12-23 20:26:59

回复 5# netmaple
我这个是不问，是答案。。

kk_lee69 · 发表于 2016-12-23 20:33:33

回复 6# 862228699
是答案發錯了吧

應該發到源碼作品區吧

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

[AU3基础] 让自解压也能解压到一个随机的目录源码