How to read func resource data

[GoravG]

I am create script with get Func to resource section but error

anyone help me.

my script..

expandcollapse popup

#AutoIt3Wrapper_Res_File_Add=Code.txt, rt_rcdata, Func_Code

Global Const $mb_systemmodal = 4096
Global Const $hgdi_error = Ptr(-1)
Global Const $invalid_handle_value = Ptr(-1)
Global Const $kf_extended = 256
Global Const $kf_altdown = 8192
Global Const $kf_up = 32768
Global Const $llkhf_extended = BitShift($kf_extended, 8)
Global Const $llkhf_altdown = BitShift($kf_altdown, 8)
Global Const $llkhf_up = BitShift($kf_up, 8)
Global Const $load_library_as_datafile = 2
Global Const $tagrect = "struct;long Left;long Top;long Right;long Bottom;endstruct"
Global Const $taggdipstartupinput = "uint Version;ptr Callback;bool NoThread;bool NoCodecs"
Global Const $tagrebarbandinfo = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader" & ((@OSVersion = "WIN_XP") ? "" : ";" & $tagrect & ";uint uChevronState")

Func _winapi_freelibrary($hmodule)
    Local $aresult = DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hmodule)
    If @error Then Return SetError(@error, @extended, False)
    Return $aresult[0]
EndFunc

Func _winapi_getmodulehandle($smodulename)
    Local $smodulenametype = "wstr"
    If $smodulename = "" Then
        $smodulename = 0
        $smodulenametype = "ptr"
    EndIf
    Local $aresult = DllCall("kernel32.dll", "handle", "GetModuleHandleW", $smodulenametype, $smodulename)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Func _winapi_loadimage($hinstance, $simage, $itype, $ixdesired, $iydesired, $iload)
    Local $aresult, $simagetype = "int"
    If IsString($simage) Then $simagetype = "wstr"
    $aresult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hinstance, $simagetype, $simage, "uint", $itype, "int", $ixdesired, "int", $iydesired, "uint", $iload)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Func _winapi_loadlibraryex($sfilename, $iflags = 0)
    Local $aresult = DllCall("kernel32.dll", "handle", "LoadLibraryExW", "wstr", $sfilename, "ptr", 0, "dword", $iflags)
    If @error Then Return SetError(@error, @extended, 0)
    Return $aresult[0]
EndFunc

Global Const $tagosversioninfo = "struct;dword OSVersionInfoSize;dword MajorVersion;dword MinorVersion;dword BuildNumber;dword PlatformId;wchar CSDVersion[128];endstruct"
Global Const $__winver = __winver()

Func __winver()
    Local $tosvi = DllStructCreate($tagosversioninfo)
    DllStructSetData($tosvi, 1, DllStructGetSize($tosvi))
    Local $ret = DllCall("kernel32.dll", "bool", "GetVersionExW", "struct*", $tosvi)
    If @error OR NOT $ret[0] Then Return SetError(@error, @extended, 0)
    Return BitOR(BitShift(DllStructGetData($tosvi, 2), -8), DllStructGetData($tosvi, 3))
EndFunc

Global $ghgdipdll = 0
Global $gigdipref = 0
Global $gigdiptoken = 0
Global $gbgdip_v1_0 = True

Func _gdiplus_startup($sgdipdll = Default)
    $gigdipref += 1
    If $gigdipref > 1 Then Return True
    If $sgdipdll = Default Then
        If @OSBuild > 4999 AND @OSBuild < 7600 Then
            $sgdipdll = @WindowsDir & "\winsxs\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.6000.16386_none_8df21b8362744ace\gdiplus.dll"
        Else
            $sgdipdll = "gdiplus.dll"
        EndIf
    EndIf
    $ghgdipdll = DllOpen($sgdipdll)
    If $ghgdipdll = -1 Then
        $gigdipref = 0
        Return SetError(1, 2, False)
    EndIf
    Local $sver = FileGetVersion($sgdipdll)
    $sver = StringSplit($sver, ".")
    If $sver[1] > 5 Then $gbgdip_v1_0 = False
    Local $tinput = DllStructCreate($taggdipstartupinput)
    Local $ttoken = DllStructCreate("ulong_ptr Data")
    DllStructSetData($tinput, "Version", 1)
    Local $aresult = DllCall($ghgdipdll, "int", "GdiplusStartup", "struct*", $ttoken, "struct*", $tinput, "ptr", 0)
    If @error Then Return SetError(@error, @extended, False)
    If $aresult[0] Then Return SetError(10, $aresult[0], False)
    $gigdiptoken = DllStructGetData($ttoken, "Data")
    Return True
EndFunc

_gdiplus_startup()
Global Const $rt_bitmap = 2

Func _resourceget($resname, $restype = 10, $reslang = 0, $dll = -1)
    Local Const $image_bitmap = 0
    Local $hinstance, $hbitmap, $infoblock, $globalmemoryblock, $memorypointer, $ressize
    If $dll = -1 Then
        $hinstance = _winapi_getmodulehandle("")
    Else
        $hinstance = _winapi_loadlibraryex($dll, $load_library_as_datafile)
    EndIf
    If $hinstance = 0 Then Return SetError(1, 0, 0)
    If $restype = $rt_bitmap Then
        $hbitmap = _winapi_loadimage($hinstance, $resname, $image_bitmap, 0, 0, 0)
        If @error Then Return SetError(2, 0, 0)
        Return $hbitmap
    EndIf
    If $reslang <> 0 Then
        $infoblock = DllCall("kernel32.dll", "ptr", "FindResourceExW", "ptr", $hinstance, "long", $restype, "wstr", $resname, "short", $reslang)
    Else
        $infoblock = DllCall("kernel32.dll", "ptr", "FindResourceW", "ptr", $hinstance, "wstr", $resname, "long", $restype)
    EndIf
    If @error Then Return SetError(3, 0, 0)
    $infoblock = $infoblock[0]
    If $infoblock = 0 Then Return SetError(4, 0, 0)
    $ressize = DllCall("kernel32.dll", "dword", "SizeofResource", "ptr", $hinstance, "ptr", $infoblock)
    If @error Then Return SetError(5, 0, 0)
    $ressize = $ressize[0]
    If $ressize = 0 Then Return SetError(6, 0, 0)
    $globalmemoryblock = DllCall("kernel32.dll", "ptr", "LoadResource", "ptr", $hinstance, "ptr", $infoblock)
    If @error Then Return SetError(7, 0, 0)
    $globalmemoryblock = $globalmemoryblock[0]
    If $globalmemoryblock = 0 Then Return SetError(8, 0, 0)
    $memorypointer = DllCall("kernel32.dll", "ptr", "LockResource", "ptr", $globalmemoryblock)
    If @error Then Return SetError(9, 0, 0)
    $memorypointer = $memorypointer[0]
    If $memorypointer = 0 Then Return SetError(10, 0, 0)
    If $dll <> -1 Then _winapi_freelibrary($hinstance)
    If @error Then Return SetError(11, 0, 0)
    SetExtended($ressize)
    Return $memorypointer
EndFunc

Func _resourcegetasstring($resname, $restype = 10, $reslang = 0, $dll = -1)
    Local $respointer, $ressize, $struct
    $respointer = _resourceget($resname, $restype, $reslang, $dll)
    If @error Then
        SetError(1, 0, 0)
        Return ""
    EndIf
    $ressize = @extended
    $struct = DllStructCreate("char[" & $ressize & "]", $respointer)
    Return DllStructGetData($struct, 1)
EndFunc

$FR = _resourcegetasstring("Func_Code")
MsgBox($mb_systemmodal, "", $FR("476F6F6420427965"))

 Code.txt

Edited May 2, 2015 by GoravG

[Jos]

You have 2 closing brackets in this statement:

$FR = _resourcegetasstring("Func_Code"))

Jos

[GoravG]

jos

replace

$FR = _resourcegetasstring("Func_Code"))

$FR = _resourcegetasstring("Func_Code")

but show Error: Variable cannot be accessed in this manner.

[Jos]

What is this portion of code supposed to do?

$FR = _resourcegetasstring("Func_Code")
MsgBox($mb_systemmodal, "", $FR("476F6F6420427965"))

Shouldn't that be something like:

$FR = _resourcegetasstring("476F6F6420427965")
MsgBox($mb_systemmodal, "", $FR)

Jos

[GoravG]

Code.txt text

Func _hextostring($shex)
    If NOT (StringLeft($shex, 2) == "0x") Then $shex = "0x" & $shex
    Return BinaryToString($shex)
EndFunc

my script

$FR = _resourcegetasstring("Func_Code") ;Get Resource data Func_Code Section
MsgBox($mb_systemmodal, "", $FR("476F6F6420427965")) ;this is hex code

string code:

MsgBox($mb_systemmodal, "", $FR("Good Bye"))

no get func_Code

i m very confused

[Jos]

Not sure I understand what you are trying to tell me.
Do you need to convert the returned information in $FR from Hex to String like this? :

MsgBox($mb_systemmodal, "", _hextostring($FR))

Jos

 

[GoravG]

this is not right !

MsgBox($mb_systemmodal, "", _hextostring($FR))

I m trying to read compile exe with add code.txt to resource data (func_Code section)

without add au3 script file _hextostring

[guinness]

Have you checked out ResourcesEx in my signature?

[Jos]

this is not right !

without add au3 script file _hextostring

​I am still lost what it is you want to do so will stop the guessing game.

Jos

[Mobius]

The OP is attempting to use the variable $FR (which contains the _hextostring function source retrieved from the resources) as some kind of prototype of _hextostring,  and is attempting to pass it a parameter here:

 

MsgBox($mb_systemmodal, "", $FR("476F6F6420427965")) ;this is hex code

So thinking that at runtime 

$FR("476F6F6420427965")

will be replaced with

Good Bye

as returned by the function In  $FR.

Apart from the obvious attempting to declare and use a function within the parameter of a function.

 

 

Edited May 2, 2015 by Mobius