Discussion :

[kitcarflo]

Salut
Toujours en conversion du programme de VB6 à VB.Net,, je bloque sur un dernier point du programme.

Il s'agit d'une procedure "ReadProcessMémory".

voici la code d'origine.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Function GetFloat(ByVal Address As Integer) As Single
        On Error Resume Next

        hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)
        Test = ReadProcessMemory(hProcess, Address, sngbuffer, ByVal 4 ,0)
        CloseHandle(hProcess)
        GetFloat = sngbuffer
End Function


Public Function GetLong(ByVal Address As Long) As Long
        On Error Resume Next
        hProcess = OpenProcess(PROCESS_READ_WRITE_QUERY, False, pid)
        Test = ReadProcessMemory(hProcess, Address, longBuffer, ByVal 4, 0)
        CloseHandle(hProcess)
        GetLong = longBuffer
    End Function

Les erreurs concernent les "ByVal"

Après quelques recherches et info, glané à droite et gauche. Il semblerait que le problème vienne de cette ligne suivante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

J'ai réalisé plusieurs modification en suprimant des ByRef pour des Byval, des Long pour des Integer et autre.

Mais je sèche la.

Merci de m'aider.

[Sankasssss]

Bonsoir,

les ByRef et ByVal ne se mettent que dans les définitions de fonction / procédure et non dans l'appel de celle-ci. Donc essayes de le supprimer tout simplement

[kitcarflo]

Bonsoir,

les ByRef et ByVal ne se mettent que dans les définitions de fonction / procédure et non dans l'appel de celle-ci. Donc essayes de le supprimer tout simplement

J'avoue que je l'ai joué un peu débile, car j'avais virer le ByVal comme tu disait. et l'erreur se déplaçais sur "Address, sngbuffer".

Ceci parce que en fait au début voila comment était déclaré.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Int32(), ByVal lpBuffer As Int32(), ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long

Que j'ai modifié en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer

Et donc j'avais pas pensé à supprimer les ByVal, mais effectivement maintenant il n'y a plus d'erreur.

Merci

[Pol63]

J'ai réalisé plusieurs modification en suprimant des ByRef pour des Byval

si tu as remplacé des byref par des byval ou l'inverse c'est du grand n'importe quoi
de plus pour transformer un programme vb6 en vb.net il convient de le repenser et de le réécrire, pas de recopier bêtement en adaptant la syntaxe