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
是答案發錯了吧

應該發到源碼作品區吧
页: [1]
查看完整版本: 让自解压也能解压到一个随机的目录源码