(ResHacker UDF) _RunBin() CMD Zeile wird nicht übertragen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <Process.au3>
#include <ResHacker.exe.au3>
#include-once
Global $_ResHacker_DefPath = @ScriptDir & "\ResHacker.exe"
Dim $bResHacker

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;_ResHacker('-addoverwrite "'&@ScriptDir&'\sample.exe", "'&@ScriptDir&'\sample.exe", "'&@ScriptDir&'\ICON.ico", ICONGROUP, MAINICON, 0')

[/autoit] [autoit][/autoit] [autoit]

_ResHacker_Init()
$Script = _ResHacker_CreateScript(@ScriptDir & "\sample.exe")
_ResHacker_SetIcon($Script,@ScriptDir&"\ICON.ico")
_ResHacker_SetVersionInfo($Script)
;_ResHacker_AddCMD($Script,'"'&@ScriptDir&'\ICON.ico", ICONGROUP, MAINICON, 0')
_ResHacker_Execute($Script)
MsgBox(64,"","Finished!")
_ResHacker_DeInit()

[/autoit] [autoit][/autoit] [autoit]

Func _ResHacker_Init()
If Not(FileExists($_ResHacker_DefPath)) Then
$hFile = FileOpen($_ResHacker_DefPath,16+2)
FileWrite($hFile,$bResHacker)
FileClose($hFile)
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ResHacker_CreateScript($vExe)
Dim $TempFile = @ScriptDir & "\script.txt"
If FileExists($TempFile) Then FileDelete($TempFile)
IniWrite($TempFile,"FILENAMES","Exe",$vExe)
IniWrite($TempFile,"FILENAMES","SaveAs",$vExe)
$hFile = FileOpen($TempFile,1)
FileWrite($hFile,@CRLF & "[COMMANDS]" & @CRLF)
FileClose($hFile)
Return $TempFile
EndFunc
Func _ResHacker_SetIcon($hScript,$vIcon)
_ResHacker_AddCMD($Script,'"'&$vIcon&'", ICONGROUP, MAINICON, 0')
EndFunc
Func _ResHacker_SetVersionInfo($hScript,$vID=2057)
$vTempFile = _TempFile(@TempDir,"~",".rsrc")
$vString = @CRLF & '1 VERSIONINFO' & @CRLF & _
'FILEVERSION 3,4,0,79' & @CRLF & _
'PRODUCTVERSION 3,4,0,79' & @CRLF & _
'FILEOS 0x4' & @CRLF & _
'FILETYPE 0x1' & @CRLF & _
'{' & @CRLF & _
'BLOCK "StringFileInfo"' & @CRLF & _
'{' & @CRLF & _
' BLOCK "080904b0"' & @CRLF & _
' {' & @CRLF & _
' VALUE "CompanyName", ""' & @CRLF & _
' VALUE "FileDescription", "Resource viewer, decompiler & recompiler."' & @CRLF & _
' VALUE "FileVersion", "3.4.0.79"' & @CRLF & _
' VALUE "InternalName", "ResHack"' & @CRLF & _
' VALUE "LegalCopyright", "(c) Angus Johnson 1999-2002"' & @CRLF & _
' VALUE "LegalTrademarks", ""' & @CRLF & _
' VALUE "OriginalFilename", "ResHack"' & @CRLF & _
' VALUE "ProductName", ""' & @CRLF & _
' VALUE "ProductVersion", "3.0.0.0"' & @CRLF & _
' VALUE "Comments", "Freeware, but see help file for conditions."' & @CRLF & _
' VALUE "Aditional Notes", "Not for distribution without the authors permission"' & @CRLF & _
' }' & @CRLF & _
'}' & @CRLF & _
'' & @CRLF & _
'BLOCK "VarFileInfo"' & @CRLF & _
'{' & @CRLF & _
' VALUE "Translation", 0x0C09 0x04E4' & @CRLF & _
'}' & @CRLF & _
'}'
$hFileOpen = FileOpen($vTempFile,2)
FileWrite($hFileOpen,$vString)
FileClose($hFileOpen)
_ResHacker_AddCMD($Script,'"'&$vTempFile&'", VERSION, 1, '&$vID)
EndFunc
Func _ResHacker_AddCMD($hScript,$vString)
$hFile = FileOpen($hScript,1)
FileWrite($hFile,"-addoverwrite " & $vString & @CRLF)
FileClose($hFile)
EndFunc
Func _ResHacker_Execute($hScript)
Run($_ResHacker_DefPath & ' -script "' & $hScript&'"')
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _ResHacker_DeInit()
FileDelete($_ResHacker_DefPath)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]