Tentative de lecture ou d'écriture de mémoire protégée. C'est souvent une indication que l'autre mémoire est corrompue

Je suis en utilisant le code suivant

Cette erreur se produit :

Tentative de lecture ou d'écriture de mémoire protégée. C'est souvent une indication que l'autre mémoire est corrompue.
Tentative de lecture ou d'écriture de mémoire protégée. C'est souvent une indication que d'autres mémoire est endommagée.

Public Class FormRegEnumValue
Private Const ERROR_SUCCESS = 0&
Private Const ERROR_NO_MORE_ITEMS = 259&
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_BINARY = 3
Private Const REG_DWORD = 4
Private Const REG_EXPAND_SZ = 2
Private Const REG_SZ = 1
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, ByVal lpcbValueName As Long, ByVal lpReserved As Long, ByVal lpType As Long, ByVal lpData As Object, ByVal lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal phkResult As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hKey As Long, num As Long, strName As String
Dim strData As String, Retval As Long, RetvalData As Long
Const Buffer As Long = 255
num = 0
strName = Space(Buffer)
strData = Space(Buffer)
Retval = Buffer
RetvalData = Buffer
If RegOpenKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hKey) = 0 Then 'error
While RegEnumValue(hKey, num, strName, Retval, 0, 0&, strData, RetvalData) <> ERROR_NO_MORE_ITEMS
If RetvalData > 0 Then
ListBox1.Items.Add(strName + Retval + "  =  " + strData + RetvalData - 1)
End If
num = num + 1
strName = Space(Buffer)
strData = Space(Buffer)
Retval = Buffer
RetvalData = Buffer
End While
RegCloseKey(hKey)
Else
ListBox1.Items.Add("Error")
End If
End Sub
End Class

Veuillez me montrer le droit chemin

OriginalL'auteur jack rasha | 2011-11-24

Ce problème est généralement causé par une mauvaise Private Declare Function déclaration. Les types énumérés dans l'API Windows sont différents de ceux utilisés dans VB ou C# code. C'est une grande liste des conversions de types de données entre l'API Windows et .Net: Win32 API C++.NET

La PInvoke site a souvent le bon code VB répertoriés.

Pour RegEnumValue, fixer les types de données, et lpcValueName est un ByRef, pas un ByVal:

Declare Auto Function RegEnumValue Lib "Advapi32" ( _
ByVal hKey As IntPtr, _
ByVal dwIndex As Integer, _
ByVal lpValueName As StringBuilder, _
ByRef lpcValueName As Integer, _
ByVal lpReserved As IntPtr, _
ByVal lpType As IntPtr, _
ByVal lpData As IntPtr, _
ByVal lpcbData As IntPtr _
) As Integer

Pour RegCloseKey, juste corriger les types de données:

Declare Function RegCloseKey Lib "advapi32.dll" ( _
ByVal hKey As UIntPtr _
) As Integer

Pour RegOpenKey, fixer les types de données et de changer phkResult à un ByRef:

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
ByVal hKey As Integer, _
ByVal lpSubKey As String, _
ByRef phkResult As IntPtr _
) As Integer

De sorte que votre fonction doit ressembler à ceci. Malheureusement, je ne sais pas quoi écrire pour strData ou RetvalData. J'ai ajouté dans un Try/Finally bloc qui est sûr de faire RegCloseKey, même si une erreur se produit. Vous souhaitez assurez-vous de toujours fermer les choses, surtout si quelque chose va mal.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const Buffer As Long = 255
Dim hKey As IntPtr = IntPtr.Zero
Dim num As Integer = 0
Dim strName As New StringBuilder
Dim strData As IntPtr = ' I'm not surte what goes here.
Dim Retval As Integer = Buffer
Dim RetvalData As IntPtr = ' I'm not surte what goes here.
If RegOpenKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hKey) = 0 Then 'error
Try
While RegEnumValue(hKey, num, strName, Retval, IntPtr.Zero, IntPtr.Zero, strData, RetvalData) <> ERROR_NO_MORE_ITEMS
If RetvalData > 0 Then
ListBox1.Items.Add(strName.ToString + Retval + "  =  " + strData + RetvalData - 1)
End If
num = num + 1
strName = New StringBuilder(Buffer)
strData = ' I'm not sure what goes here.
Retval = Buffer
RetvalData = ' I'm not surte what goes here.
End While
Finally
RegCloseKey(hKey)
End Try
Else
ListBox1.Items.Add("Error")
End If
End Sub

Comment puis-je utiliser la Fonction RegEnumValue ?
Ajout d'utilisation pour répondre.
Upvote pour les bons liens.

OriginalL'auteur Hand-E-Food

1

Utiliser les fonctionnalités contenues dans le haut-Microsoft.Win32.Registre de noms à la place.

Vous pouvez trouver la référence et de nombreux exemples MSDN.

Mise à jour

Si vous avez besoin d'utiliser l'API, puis la signature de RegEnumValue doit être changé pour quelque chose comme:
```
Declare Function RegEnumValue Lib "advapi32.dll"  Alias "RegEnumValueA"(ByVal hKey As Integer, ByVal dwIndex As Integer, ByVal lpValueName As String, ByRef lpcbValueName As Integer, ByVal lpReserved As Integer, ByRef lpType As Integer, ByRef lpData As StringBuilder, ByRef lpcbData As Integer) As Integer
```
Ensuite, modifiez le type de strData à StringBuilder et de créer une nouvelle instance de la classe StringBuilder où vous êtes actuellement remplissage strData avec des espaces:
```
strData = New StringBuilder(buffer)
```
Il faudra peut-être d'autres changements apportés ainsi, mais c'est le big one pour l'instant.

Mise à jour 2

L'autre déclaration doivent avoir leur Longue valeurs changé en Entier et le paramètre de résultat pour RegOpenKey est ByRef:
```
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Integer) As Integer
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByRef phkResult As Integer) As Integer
```
Mise à jour 3

Après avoir examiné mon ancien code de l'API, j'ai découvert que vous avez besoin de faire un peu de travail supplémentaire, afin de traiter les résultats:

Une fois que vous avez déterminé que RegEnumValue a été un succès (valeur de retour de 0), vous devez traiter les résultats sur la base des 3 paramètre à partir de la fin (lpType), qui vous indiquera le type de données.

Puis, en se basant sur le type (c'est à dire REG_SZ, REG_DWORD, etc), vous aurez besoin de faire un appel à l'une des RegQueryValueExA méthodes de l'API:
```
Declare Function RegQueryValueExString Lib "advapi32.dll"  Alias "RegQueryValueExA"(ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByVal lpData As String, ByRef lpcbData As Integer) As Integer
Declare Function RegQueryValueExLong Lib "advapi32.dll"  Alias "RegQueryValueExA"(ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByRef lpData As Integer, ByRef lpcbData As Integer) As Integer
```
etc. pour récupérer la valeur dans le registre d'entrée.

Je veux utiliser l'API
rasha: mise à Jour de la réponse avec une signature correcte pour RegEnumValueA et plus d'informations.
erreur : Si RegOpenKey(HKEY_CURRENT_USER, "Control Panel\Desktop", hKey) = 0 Alors erreur"
Ajouté les définitions mises à jour pour d'autres fonctions de réponse.
Ajouté quelques détails supplémentaires sur le travail que vous devez faire afin de traiter les résultats.

OriginalL'auteur competent_tech

Vous devez vous connecter pour publier un commentaire.