touch_xu 发表于 2010-10-18 10:34:40

【已解决】求嵌入ICO或DLL的UDF

本帖最后由 touch_xu 于 2010-10-26 11:37 编辑

如题,AU3程序,我为了防止杀毒软件误报,想把不ICO DLL文件嵌入其中,不想用Fileinstall释放,所以想找一下方便的工具或UDF,能方便把ICO DLL文件转换为AU3,并且方便调用,如果高手有更好的方法那就更好了.谢谢

3mile 发表于 2010-10-18 11:48:15

写的很简单，对付着用吧。
#include <array.au3>
#include <WinAPI.au3>
Local $File_Name,$Hfile,$File_Content,$File_Size
Local $Obj_File,$obj_hfile,$nBytes
$File_Name=FileOpenDialog("输入要转换的文件",@ScriptDir,"所有文件(*.*)")
If Not @error Then
        $Obj_File=@ScriptDir&'\temp.au3'
        $Hfile=FileOpen($File_Name,16)
        $File_Content=FileRead($Hfile)
        $File_Size=BinaryLen($File_Content)
        FileClose($Hfile)
EndIf

$Output_Filename=StringRegExpReplace($File_Name,'(.+\\)(.*$)','\2')

$Bin=StringTrimLeft($File_Content,2)
FileWrite($Obj_File,'$str="0x"'&@CRLF)
FileWrite($Obj_File,'$str&="'&$Bin&'"'&@CRLF)
FileWrite($Obj_File,'$len=Binary($str)'&@CRLF)
FileWrite($Obj_File,'$file=FileOpen(@scriptDir&"\'&$Output_Filename&'",18)'&@CRLF)
FileWrite($Obj_File,'FileWrite($file, $str)'&@CRLF)
FileWrite($Obj_File,'FileClose($file)')
MsgBox(0,"成功","成功写入"&$Obj_File)

netegg 发表于 2010-10-18 12:05:22

本帖最后由 netegg 于 2010-10-18 12:08 编辑

楼主，不是所有的功能都有对应的udf的，别忘了udf的定义是user defined fuction
如果都有个现成的udf供你使用还编什么，直接列出函数来就完了

kood481748 发表于 2010-10-18 12:19:45

回复 3# netegg

经常在AU3论坛看到UDF这个词，搞不懂是什么意思，现在才知道是“用户自定义函数”，
而用户自定义函数我都已经用过好几回了，现在才知道简写成了“UDF”，想想真的好笑。

touch_xu 发表于 2010-10-21 11:38:45

问一下,这样本质上和Fileinstall有什么不一样,都是要有文件生成的.

touch_xu 发表于 2010-10-26 11:37:23

谢谢,可以的,只是不知道有什么本质区别.
页: [1]
查看完整版本: 【已解决】求嵌入ICO或DLL的UDF