Beiträge von UEZ

#include <WinAPI.au3>
#include <WinAPIGdi.au3>


Local $sFile = "c:\Windows.old\windows\System32\wucltux.dll"
Local $iIconIndex = -1
Local $iIcons = _WinAPI_ExtractIconEx($sFile, $iIconIndex, 0, 0, 0)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iIcons = ' & $iIcons & @CRLF & '>Error code: ' & @error & @CRLF) ;### Debug Console


Local $tIcons = DllStructCreate("ptr hIcons[" & $iIcons & "]")


Local $tDim = DllStructCreate($tagBITMAP), $hHBitmap


Local $iExtIcons = _WinAPI_PrivateExtractIcons($sFile, $iIconIndex, $iIcons, 0, 0, $tIcons)


For $i = 1 To $iIcons
	$hHBitmap = _WinAPI_Create32BitHBITMAP($tIcons.hIcons(($i)), 0)
	DllCall('gdi32.dll', 'int', 'GetObject', 'int', $hHBitmap, 'int', DllStructGetSize($tDim), 'ptr', DllStructGetPtr($tDim))
	ConsoleWrite($tDim.bmWidth & " x " & $tDim.bmHeight & @CRLF)
	_WinAPI_DeleteObject($hHBitmap)
	_WinAPI_DestroyIcon($tIcons.hIcons(($i)))
Next




; #FUNCTION# ====================================================================================================================
; Name ..........: _WinAPI_PrivateExtractIcons
; Description ...: Creates an array of handles to icons that are extracted from a specified file.
; Syntax ........: _WinAPI_PrivateExtractIcons($sFile, $iIconIndex[, $iIcons = 1[, $iWidth = 0[, $iHeight = 0[, $tIcons = Null[,
;                  $tResourceIdent = Null[, $iFlags = $LR_LOADFROMFILE]]]]]])
; Parameters ....: $sFile               - The path and name of the file from which the icon(s) are to be extracted.
;                  $iIconIndex          - The zero-based index of the first icon to extract. For example, if this value is zero,
;										  the function extracts the first icon in the specified file.
;                  $iIcons              - [optional] The number of icons to extract from the file. This parameter is only valid
;													 when extracting from .exe and .dll files.
;                  $iWidth              - [optional] The horizontal icon size wanted. See Remarks.
;                  $iHeight             - [optional] The vertical icon size wanted. See Remarks.
;                  $tIcons              - [optional] A pointer to the returned array of icon handles.
;                  $tResourceIdent      - [optional] A pointer to a returned resource identifier for the icon that best fits the _
;													 current display device. The returned identifier is 0xFFFFFFFF if the identifier
;													 is not available for this format. The returned identifier is 0 if the identifier
;													 cannot otherwise be obtained.
;                  $iFlags              - [optional] Specifies flags that control this function. These flags are the LR_* flags used
;													 by the LoadImage function.
; Return values .: If the phicon parameter is NULL and this function succeeds, then the return value is the number of icons in the file.
;				   If the function fails then the return value is 0.
;				   If the phicon parameter is not NULL and the function succeeds, then the return value is the number of icons extracted.
;				   Otherwise, the return value is 0xFFFFFFFF if the file is not found.
; Author ........: UEZ
; Modified ......:
; Remarks .......: This function extracts from executable (.exe), DLL (.dll), icon (.ico), cursor (.cur), animated cursor (.ani), and bitmap (.bmp)
;				   files. Extractions from Windows 3.x 16-bit executables (.exe or .dll) are also supported.
;				   The $iWidth and $iHeight parameters specify the size of the icons to extract. Two sizes can be extracted by putting the first
;				   size in the LOWORD of the parameter and the second size in the HIWORD.
;				   For example, MAKELONG(24, 48) for both the $iWidth and $iHeight parameters would extract both 24 and 48 size icons.
;				   You must destroy all icons extracted by PrivateExtractIcons by calling the DestroyIcon function.
;				   This function was not included in the SDK headers and libraries until Windows XP Service Pack 1 (SP1) and Windows Server 2003.
;				   If you do not have a header file and import library for this function, you can call the function using LoadLibrary and
;				   GetProcAddress.
; Related .......:
; Link ..........: https://msdn.microsoft.com/en-us/library/windows/desktop/ms648075(v=vs.85).aspx
; Example .......: No
; ===============================================================================================================================
Func _WinAPI_PrivateExtractIcons($sFile, $iIconIndex, $iIcons = 1, $iWidth = 0, $iHeight = 0, $tIcons = Null, $tResourceIdent = Null, $iFlags = $LR_LOADFROMFILE)
	Local $aResult = DllCall("user32.dll",  "int", "PrivateExtractIcons", _
											"str", $sFile, _
											"int", $iIconIndex, _
											"uint", $iWidth, _
											"uint", $iHeight, _
											"struct*", $tIcons, _
											"struct*", $tResourceIdent, _
											"uint", $iIcons, _
											"uint", $iFlags)
	If @error Or $aResult[0] = 0xFFFFFFFF Then Return SetError(1, 0, $aResult[0])
	Return $aResult[0]
EndFunc

#include <File.au3>
$sTestFile = @ScriptDir & "\Test.csv"
$fTimer = TimerInit()
ConsoleWrite(_FileCountLines($sTestFile) & " / " & TimerDiff($fTimer) & @CRLF)


$fTimer = TimerInit()
$hFile = FileOpen($sTestFile)
$iLines = _ASM_StringLFCharCount_Bin(FileRead($hFile))
FileClose($hFile)
ConsoleWrite($iLines & " / " & TimerDiff($fTimer) & @CRLF)




Func _ASM_StringLFCharCount_Bin($sString)
	Local $tCodeBuffer = DllStructCreate("byte ASM[27]") ;reserve memory for ASM opcode
	$tCodeBuffer.ASM = "0x8B7424048B7C240831DBAC3C0074093C0A75F783C301EBF2891FC3" ;write opcodes into memory (struct) / length: 27
	Local $tResult = DllStructCreate("dword AmountLF")
	DllCall("user32.dll", "none", "CallWindowProcW", "ptr", DllStructGetPtr($tCodeBuffer), "str", $sString, "ptr", DllStructGetPtr($tResult), "int", 0, "int", 0)
	Return $tResult.AmountLF
EndFunc