论坛 › 『 提问交流 』 › 一个不可能的问题--生成EXE程序

zhenglei 发表于 2010-5-2 11:46:37

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

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

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

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


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

autoit3CN 发表于 2010-5-2 18:56:34

完全可能，搜索下论坛吧

zhenglei 发表于 2010-5-4 12:39:05

完全可能，搜索下论坛吧
autoit3CN 发表于 2010-5-2 18:56 http://www.autoitx.com/images/common/back.gif

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

kk_lee69 发表于 2010-5-4 13:50:55

回复 1# zhenglei

使用下列代碼....將檔案 轉成 AU3#include<array.au3>
Func _FileToAu3($sSoure, $sDest)
      $n = 0
      $sfile = FileOpen($sSoure, 16)
      $sbin = String(FileRead($sfile))
      Dim $sarray
      While 1
                If StringLen($sbin) - 4082 * $n < 0 Then ExitLoop
                If $n = 0 Then

                        $sarray = 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 发表于 2010-5-4 14:03:44

回复 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 发表于 2010-5-4 14:41:34

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

woeiwoei 发表于 2010-5-14 11:46:06

强！:face (37):

查看完整版本: 一个不可能的问题--生成EXE程序