一个不可能的问题--生成EXE程序

zhenglei

一个不可能的问题--生成EXE程序

记得以前好像探讨过。。 我也忘记了。。 就是在您制作好的程序中。。在生成EXE客户端。。、

      不知道现在有没有朋友可以实现？？？？   除RAR打包外。。 能不能让AU3自身在生成一个EXE客户端。。 客户端配置信息。。 由后期设置完成。。。。


                  自己感觉好像不太可行。。 但可能高手可以实现？？请赐教！～～

autoit3CN

完全可能，搜索下论坛吧

zhenglei

完全可能，搜索下论坛吧
autoit3CN 发表于 2010-5-2 18:56

在发帖之前已经搜索过了。。没发现。。。

kk_lee69

回复 1# zhenglei

使用下列代碼....將檔案 轉成 AU3

#include<array.au3>
Func _FileToAu3($sSoure, $sDest)
        $n = 0
        $sfile = FileOpen($sSoure, 16)
        $sbin = String(FileRead($sfile))
        Dim $sarray[1]
        While 1
                If StringLen($sbin) - 4082 * $n < 0 Then ExitLoop
                If $n = 0 Then

                        $sarray[0] = StringMid($sbin, 1, 4082)
                Else
                        _ArrayAdd($sarray, StringMid($sbin, 4082 * $n + 1, 4082))



                EndIf
                $n = $n + 1
        WEnd

        $sDFile = FileOpen($sDest, 2)
        FileWrite($sDFile, 'Func _Au3ToFile()' & @CRLF)
        FileWrite($sDFile, "local $bin" & @CRLF)
        For $x = 0 To UBound($sarray) - 1
                FileWrite($sDFile, "$bin &='" & $sarray[$x] & "'" & @CRLF)
        Next

        FileWrite($sDFile, '        Return Binary($bin)' & @CRLF)
        FileWrite($sDFile, 'EndFunc' & @CRLF)

EndFunc   ;==>_FileToAu3

然後再將 轉成的AU3  寫成 UDF  加入到你的程式中......然後呼叫 讀取寫入到 妳要的位置

kk_lee69

回复 1# zhenglei


例子:

#include"FileToAu3.au3"
_FileToAu3('C:\Program Files\WinRAR\rar.exe','rar.exe.au3')  ;將RAR.exe 轉成 AU3


#include"rar.exe.au3" ; 將AU3 引用近來  就可以寫到你要寫的地方
$bin = _Au3ToFile()
$file=FileOpen('rar.exe',18)
FileWrite($file,$bin)
FileClose($file)

netegg

我承认是冲着标题来的，麻烦LZ解释一下，既然不可能，提问干什么？

woeiwoei

强！