DLLCall und Absturz: Exit Code -1073741819

Hi,
diese Zeile hier verursacht den Absturz:

DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "InstallClient")), 1))

Habe mir den Rest gespart, weil ich das Problem gefunden habe, glaube ich. Wenn ich nämlich die Länge des chars verändere, klappt es. z.B. klappt es bei "WCHAR [64]", die Frage ist nur wieso? Ich habe bisher alle Daten des Typs PCWSTR mit WCHAR [260] definiert und es hat nie Probleme gemacht. Hat jemand eine Idee?

Danke jungs!

Den Pointer zu checken hatte ich auch schon versucht. Also was du sagst, alpines, ist das Ergebnis von BugFix. Habe es nochmal versucht. Das ConsolWrite führt er nicht aus, weil AutoIt vorher abstürzt und auf die Abfrage springt er nicht an weil der pointer ok ist.
Das Problem ist:

$struct = DllStructCreate("WCHAR[260]", $ptr)

Ja bin sicher: Hier der Aufbau des structs

typedef struct _DismPackageInfo
{
    PCWSTR PackageName;
    DismPackageFeatureState PackageState;
    DismReleaseType ReleaseType;
    SYSTEMTIME InstallTime;
    BOOL Applicable;
    PCWSTR Copyright;
    PCWSTR Company;
    SYSTEMTIME CreationTime;
    PCWSTR DisplayName;
    PCWSTR Description;
    PCWSTR InstallClient;
    PCWSTR InstallPackageName;
    SYSTEMTIME LastUpdateTime;
    PCWSTR ProductName;
    PCWSTR ProductVersion;
    DismRestartType RestartRequired;
    DismFullyOfflineInstallableType FullyOffline;
    PCWSTR SupportInformation;
    DismCustomProperty* CustomProperty;
    UINT CustomPropertyCount;
    DismFeature* Feature;
    UINT FeatureCount;
}

Link: http://msdn.microsoft.com/en-us/library/…p/hh824774.aspx

siehe InstallClient

oki hier die main:

Func _DISM_GetPackageInfo($Session, $Identifier, ByRef $CustomProperty, ByRef $Feature, $PackageIdentifier = $DismPackageName, $OutputFormat = 0)

Local $aResult = DllCall($ghdismapi, "LONG", "DismGetPackageInfo", _
"PTR", $Session, _
"WSTR", $Identifier, _
"INT", $PackageIdentifier, _
"PTR*", 0 _ ; out
)
If @error Then Return SetError(@error, @extended, 0)
If IsArray($aResult) = 1 Then
If $aResult[0] <> $S_OK Then Return SetError(@error, @extended, $aResult[0])
EndIf

Local $PackageInfo = $aResult[4] ; get pointer to struct
If $PackageInfo <> 0 Then ; if pointer not empty
; create DismPackageInfo Structure
Local $PackageInfo_struct = DllStructCreate($tagDismPackageInfo, $PackageInfo)

Local $oPackageInfo_dict = ObjCreate("Scripting.Dictionary") ; store package info data in dictionay

; get package info data
$oPackageInfo_dict.add("PackageName", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "PackageName")), 1))
$oPackageInfo_dict.add("PackageState", _DISM_GetPackageFeatureState(DllStructGetData($PackageInfo_struct, "PackageState")))
$oPackageInfo_dict.add("ReleaseType", _DISM_GetReleaseType(DllStructGetData($PackageInfo_struct, "ReleaseType")))

Local $InstallTime_struct = DllStructCreate($tagSYSTEMTIME, DllStructGetPtr($PackageInfo_struct, 4)) ; index = 4

$oPackageInfo_dict.add("InstallTime", _Date_Time_SystemTimeToDateTimeStr($InstallTime_struct, 1))
$oPackageInfo_dict.add("Applicable", DllStructGetData($PackageInfo_struct, "Applicable"))
$oPackageInfo_dict.add("Copyright", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "Copyright")), 1))
$oPackageInfo_dict.add("Company", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "Company")), 1))

Local $CreationTime_struct = DllStructCreate($tagSYSTEMTIME, DllStructGetPtr($PackageInfo_struct, 15)) ; index = 15

$oPackageInfo_dict.add("CreationTime", _Date_Time_SystemTimeToDateTimeStr($CreationTime_struct, 1))
$oPackageInfo_dict.add("DisplayName", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "DisplayName")), 1))
$oPackageInfo_dict.add("Description", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "Description")), 1))
$oPackageInfo_dict.add("InstallClient", DllStructGetData(DllStructCreate("WCHAR [64]", DllStructGetData($PackageInfo_struct, "InstallClient")), 1))

;~ Local $ptr = DllStructGetData($PackageInfo_struct, "InstallClient")
;~ If Not IsPtr($ptr) Then Exit MsgBox(0, 'FEHLER', "InstallClient ist kein Pointer")
;~ Local $struct = DllStructCreate("WCHAR[260]", $ptr)
;~ ConsoleWrite( DllStructGetData($struct, 1) & @LF)

$oPackageInfo_dict.add("InstallPackageName", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "InstallPackageName")), 1))

Local $LastUpdateTime_struct = DllStructCreate($tagSYSTEMTIME, DllStructGetPtr($PackageInfo_struct, 27)) ; index = 27

$oPackageInfo_dict.add("LastUpdateTime", _Date_Time_SystemTimeToDateTimeStr($LastUpdateTime_struct, 1))
$oPackageInfo_dict.add("ProductName", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "ProductName")), 1))
$oPackageInfo_dict.add("ProductVersion", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "ProductVersion")), 1))
$oPackageInfo_dict.add("RestartRequired", _DISM_GetRestartType(DllStructGetData($PackageInfo_struct, "RestartRequired")))
$oPackageInfo_dict.add("FullyOffline", _DISM_GetFullyOfflineInstallableType(DllStructGetData($PackageInfo_struct, "FullyOffline")))
$oPackageInfo_dict.add("SupportInformation", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($PackageInfo_struct, "SupportInformation")), 1))

; get custom property data
Local $CustomPropertyCount = DllStructGetData($PackageInfo_struct, "CustomPropertyCount")
If $CustomPropertyCount <> 0 Then
Local $oCustomProperty_list = ObjCreate("System.Collections.ArrayList")
For $properties = 1 To $CustomPropertyCount
Local $oCustomProperty_dict = ObjCreate("Scripting.Dictionary") ; store custom property data in dictionay
; create DismCustomProperty Structure
Local $CustomProperty_struct = DllStructCreate($tagDismCustomProperty, DllStructGetPtr($PackageInfo_struct, DetermineLocation($tagDismCustomProperty, 1, 1))) ; offset = 1
; get custom property data
$oCustomProperty_dict.add("Name", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($CustomProperty_struct, "Name")), 1))
$oCustomProperty_dict.add("Value", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($CustomProperty_struct, "Value")), 1))
$oCustomProperty_dict.add("Path", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($CustomProperty_struct, "Path")), 1))
$oCustomProperty_list.add($oCustomProperty_dict) ; add dict to list
Next

; free resources
_DISM_Delete($CustomProperty_struct)

Local $CustomProperty_array[$CustomPropertyCount+1][3], $j = 1
#Region - Create 2d-array
For $property in $oCustomProperty_list.add
Local $i = 0
For $keys in $property.Keys
If $j = 1 Then $CustomProperty_array[0][$i] = $keys ; array title
$CustomProperty_array[$j][$i] = $property($keys)
$i+=1
Next
$j+=1
Next

$CustomProperty = $CustomProperty_array
EndIf

; get feature data
Local $FeatureCount = DllStructGetData($PackageInfo_struct, "FeatureCount")
If $FeatureCount <> 0 Then
Local $oFeature_list = ObjCreate("System.Collections.ArrayList")
For $features = 1 To $FeatureCount
Local $oFeature_dict = ObjCreate("Scripting.Dictionary") ; store feature data in dictionay
; create DismFeature Structure
Local $Feature_struct = DllStructCreate($tagDismFeature, DllStructGetPtr($PackageInfo_struct, DetermineLocation($tagDismFeature, 1, 1))) ; offset = 1
; get feature data
$oFeature_dict.add("FeatureName", DllStructGetData(DllStructCreate("WCHAR [260]", DllStructGetData($Feature_struct, "FeatureName")), 1))
$oFeature_dict.add("State", _DISM_GetPackageFeatureState(DllStructGetData($Feature_struct, "State")))
$oFeature_list.add($oFeature_dict) ; add dict to list
Next

; free resources
_DISM_Delete($Feature_struct)

Local $Feature_array[$FeatureCount+1][2], $j = 1
#Region - Create 2d-array
For $feature in $oFeature_list
Local $i = 0
For $keys in $feature.Keys
If $j = 1 Then $Feature_array[0][$i] = $keys ; array title
$Feature_array[$j][$i] = $feature($keys)
$i+=1
Next
$j+=1
Next

$Feature = $Feature_array
EndIf

; free resources
_DISM_Delete($PackageInfo_struct)
_DISM_Delete($InstallTime_struct)
_DISM_Delete($CreationTime_struct)
_DISM_Delete($LastUpdateTime_struct)

If $OutputFormat = 1 Then
Local $PackageInfo_array[2][18], $i = 0
#Region - Create 2d-array
For $keys in $oPackageInfo_dict.Keys
$PackageInfo_array[0][$i] = $keys ; array title
$PackageInfo_array[1][$i] = $oPackageInfo_dict($keys)
$i+=1
Next
#EndRegion - Create 2d-array
Return SetExtended(_WinAPI_GetLastError(), $PackageInfo_array)
EndIf

Return SetExtended(_WinAPI_GetLastError(), $oPackageInfo_dict)
EndIf

Return SetExtended(_WinAPI_GetLastError(), $aResult[0])
EndFunc ;==>_DISM_GetPackageInfo

Hier die Enus:

; #ENUMS# =======================================================================================================================
; DismLogLevel
Global Enum _
$DismLogErrors, _
$DismLogErrorsWarnings, _
$DismLogErrorsWarningsInfo

; DismImageIdentifier
Global Enum _
$DismImageIndex, _
$DismImageName

; DismMountMode
Global Enum _
$DismReadWrite, _
$DismReadOnly

; DismImageType
Global Enum _
$DismImageTypeUnsupported = -1, _
$DismImageTypeWim, _
$DismImageTypeVhd

; DismImageBootable
Global Enum _
$DismImageBootableYes, _
$DismImageBootableNo, _
$DismImageBootableUnknown

; DismMountStatus
Global Enum _
$DismMountStatusOk, _
$DismMountStatusNeedsRemount, _
$DismMountStatusInvalid

; DismImageHealthState
Global Enum _
$DismImageHealthy, _
$DismImageRepairable, _
$DismImageNonRepairable

; DismPackageIdentifier
Global Enum _
$DismPackageNone, _
$DismPackageName, _
$DismPackagePath

; DismPackageFeatureState
Global Enum _
$DismStateNotPresent, _
$DismStateUninstallPending, _
$DismStateStaged, _
$DismStateResolved, _
$DismStateRemoved = $DismStateResolved, _
$DismStateInstalled, _
$DismStateInstallPending, _
$DismStateSuperseded, _
$DismStatePartiallyInstalled

; DismReleaseType
Global Enum _
$DismReleaseTypeCriticalUpdate, _
$DismReleaseTypeDriver, _
$DismReleaseTypeFeaturePack, _
$DismReleaseTypeHotfix, _
$DismReleaseTypeSecurityUpdate, _
$DismReleaseTypeSoftwareUpdate, _
$DismReleaseTypeUpdate, _
$DismReleaseTypeUpdateRollup, _
$DismReleaseTypeLanguagePack, _
$DismReleaseTypeFoundation, _
$DismReleaseTypeServicePack, _
$DismReleaseTypeProduct, _
$DismReleaseTypeLocalPack, _
$DismReleaseTypeOther

; DismRestartType
Global Enum _
$DismRestartNo, _
$DismRestartPossible, _
$DismRestartRequired

; DismDriverSignature
Global Enum _
$DismDriverSignatureUnknown, _
$DismDriverSignatureUnsigned, _
$DismDriverSignatureSigned

; DismFullyOfflineInstallableType
Global Enum _
$DismFullyOfflineInstallable, _
$DismFullyOfflineNotInstallable, _
$DismFullyOfflineInstallableUndetermined
; ===============================================================================================================================

Und hier die Übersetzung:

; #FUNCTION# ====================================================================================================================
; Name...........: _DISM_GetPackageFeatureState
; Description ...: Converts a DismPackageFeatureState Enumeration Value to its Constant Name
; Syntax.........: _DISM_GetPackageFeatureState($PackageState)
; Parameters ....: $PackageState - Specifies the state of a package or a feature.
; | 0 - $DismStateNotPresent
; | 1 - $DismStateUninstallPending
; | 2 - $DismStateStaged
; | 3 - $DismStateResolved
; | 3 - $DismStateRemoved
; | 4 - $DismStateInstalled
; | 5 - $DismStateInstallPending
; | 6 - $DismStateSuperseded
; | 7 - $DismStatePartiallyInstalled
; Return values .: Success - Returns $PackageState
; | NotPresent - The package or feature is not present.
; | UninstallPending - An uninstall process for the package or feature is pending. Additional processes are pending and must be completed before the package or feature is successfully uninstalled.
; | Staged - The package or feature is staged.
; | Resolved - Metadata about the package or feature has been added to the system, but the package or feature is not present.
; | Removed - Same as StateResolved
; | Installed - The package or feature is installed.
; | InstallPending - The install process for the package or feature is pending. Additional processes are pending and must be completed before the package or feature is successfully installed.
; | Superseded - The package or feature has been superseded by a more recent package or feature.
; | PartiallyInstalled - The package or feature is partially installed. Some parts of the package or feature have not been installed.
; Failure - Not implemented
; Author(s) .....: André Cut
; Modified.......:
; Remarks .......:
; Related .......: _DISM_GetReleaseType, _DISM_GetRestartType, _DISM_GetFullyOfflineInstallableType, _DISM_GetMountStatus, _DISM_GetMountMode, _DISM_GetImageBootable, _DISM_GetImageType
;
; ===============================================================================================================================
Func _DISM_GetPackageFeatureState($PackageState)
Switch $PackageState
Case $DismStateNotPresent
$PackageState = "NotPresent"
Case $DismStateUninstallPending
$PackageState = "UninstallPending"
Case $DismStateStaged
$PackageState = "Staged"
Case $DismStateRemoved, $DismStateResolved
$PackageState = "Resolved"
Case $DismStateInstalled
$PackageState = "Installed"
Case $DismStateInstallPending
$PackageState = "InstallPending"
Case $DismStateSuperseded
$PackageState = "Superseded"
Case $DismStatePartiallyInstalled
$PackageState = "PartiallyInstalled"
EndSwitch
Return $PackageState
EndFunc ;==>_DISM_GetPackageFeatureState

; #FUNCTION# ====================================================================================================================
; Name...........: _DISM_GetReleaseType
; Description ...: Converts a DismPackageFeatureState Enumeration Value to its Constant Name
; Syntax.........: _DISM_GetReleaseType($ReleaseType)
; Parameters ....: $ReleaseType - Specifies the release type of a package.
; | 0 - $DismReleaseTypeCriticalUpdate
; | 1 - $DismReleaseTypeDriver
; | 2 - $DismReleaseTypeFeaturePack
; | 3 - $DismReleaseTypeHotfix
; | 4 - $DismReleaseTypeSecurityUpdate
; | 5 - $DismReleaseTypeSoftwareUpdate
; | 6 - $DismReleaseTypeUpdate
; | 7 - $DismReleaseTypeUpdateRollup
; | 8 - $DismReleaseTypeLanguagePack
; | 9 - $DismReleaseTypeFoundation
; | 10 - $DismReleaseTypeServicePack
; | 11 - $DismReleaseTypeProduct
; | 12 - $DismReleaseTypeLocalPack
; | 13 - $DismReleaseTypeOther
; Return values .: Success - Returns $ReleaseType
; | CriticalUpdate - The package is a critical update.
; | Driver - The package is a driver.
; | FeaturePack - The package is a feature pack.
; | Hotfix - The package is a hotfix.
; | SecurityUpdate - The package is a security update.
; | SoftwareUpdate - The package is a software update.
; | Update - The package is a general update.
; | UpdateRollup - The package is an update rollup.
; | LanguagePack - The package is a language pack.
; | Foundation - The package is a foundation package.
; | ServicePack - The package is a service pack.
; | Product - The package is a product release.
; | LocalPack - The package is a local pack.
; | Other - The package is another type of release.
; Failure - Not implemented
; Author(s) .....: André Cut
; Modified.......:
; Remarks .......:
; Related .......: _DISM_GetPackageFeatureState, _DISM_GetRestartType, _DISM_GetFullyOfflineInstallableType, _DISM_GetMountStatus, _DISM_GetMountMode, _DISM_GetImageBootable, _DISM_GetImageType
;
; ===============================================================================================================================
Func _DISM_GetReleaseType($ReleaseType)
Switch $ReleaseType
Case $DismReleaseTypeCriticalUpdate
$ReleaseType = "CriticalUpdate"
Case $DismReleaseTypeDriver
$ReleaseType = "Driver"
Case $DismReleaseTypeFeaturePack
$ReleaseType = "FeaturePack"
Case $DismReleaseTypeHotfix
$ReleaseType = "HotFix"
Case $DismReleaseTypeSecurityUpdate
$ReleaseType = "SecurityUpdate"
Case $DismReleaseTypeSoftwareUpdate
$ReleaseType = "SoftwareUpdate"
Case $DismReleaseTypeUpdate
$ReleaseType = "Update"
Case $DismReleaseTypeUpdateRollup
$ReleaseType = "UpdateRollup"
Case $DismReleaseTypeLanguagePack
$ReleaseType = "LanguagePack"
Case $DismReleaseTypeFoundation
$ReleaseType = "Foundation"
Case $DismReleaseTypeServicePack
$ReleaseType = "ServicePack"
Case $DismReleaseTypeProduct
$ReleaseType = "Product"
Case $DismReleaseTypeLocalPack
$ReleaseType = "LocalPack"
Case $DismReleaseTypeOther
$ReleaseType = "Other"
EndSwitch
Return $ReleaseType
EndFunc ;==>_DISM_GetReleaseType

; #FUNCTION# ====================================================================================================================
; Name...........: _DISM_GetRestartType
; Description ...: Converts a DismRestartType Enumeration Value to its Constant Name
; Syntax.........: _DISM_GetRestartType($RestartType)
; Parameters ....: $RestartType - Specifies whether a restart is required after enabling a feature or installing a package.
; | 0 - $DismRestartNo
; | 1 - $DismRestartPossible
; | 2 - $DismRestartRequired
; Return values .: Success - Returns $RestartType
; | No - No restart is required.
; | Possible - This package or feature might require a restart.
; | Required - This package or feature always requires a restart.
; Failure - Not implemented
; Author(s) .....: André Cut
; Modified.......:
; Remarks .......:
; Related .......: _DISM_GetPackageFeatureState, _DISM_GetReleaseType, _DISM_GetFullyOfflineInstallableType, _DISM_GetMountStatus, _DISM_GetMountMode, _DISM_GetImageBootable, _DISM_GetImageType
;
; ===============================================================================================================================
Func _DISM_GetRestartType($RestartType)
Switch $RestartType
Case $DismRestartNo
$RestartType = "No"
Case $DismRestartPossible
$RestartType = "Possible"
Case $DismRestartRequired
$RestartType = "Required"
EndSwitch
Return $RestartType
EndFunc ;==>_DISM_GetRestartType

Alles da?

Das ist übrigens nicht die einzige Funktion der API bei der das Problem auftritt. Und was ich noch beobachtet habe. Manchmal klappt es auch problemlos, aber es stürzt häufiger ab als es funktioniert.

Hmm also die Enumerationen geben als Wert ganze Zahlen zurück, dafür habe ich int gewählt, wenn ich dann noch für den PackageName WCHAR [64] oder WCHAR [96] verwende klappt es. Wenn ich Byte statt int nehme stürzt es ab, wenn ich int als Array nehme bekomme ich Müll.

Also den Datentyp als Array zu übergeben halte ich für falsch... ne iDee?

Klingt plausibel, aber wie erklärst du dir den Umstand, das es manchmal klappt egal welchen datentyp ich mit welcher size auch immer verwende?

super danke für deine Hilfe und auch danke an die anderen! habe versucht einen error handler zu registrieren, habs aber net auf die reihe bekommen. Da kam nie eine besondere Ausgabe, nur der standard autoit text exit code...

was meinst du mit botter und ollydbg, ok ollydbg für gamehack, ist das ein "must have". Was käme denn dann für ne special Meldung raus wenn ich das habe?

gern geschehen!

AutoIt hat doch einen Debugger, also für mich ist die console schon debug genug, naja außer in diesem Fall, eine genauere Fehlermeldung wäre echt ne feine sache, aber übermäßig dafür mein Gehirn zu benutzen hab ich nicht vor, dann mach ich lieber traditionell weiter. Hast mal ne Anleitung wie man den einsetzt, ist der schwer zu benutzen? Wenns nicht einfach ist, dann egal....

Danke Andy!

Danke Chef, werde das mal als gelöst markieren