Lire une adresse avec VBA

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour tout le monde

Il y a quelque temps, j'ai demandé comment on déclare un byte sur VBA, et j'ai bien eu ma réponse (c'était ici : http://www.developpez.net/forums/d16...e-via-vba-vb6/ )
Depuis, j'essaie d'utiliser ce que l'on m'a appris pour faire une fonction universelle qui me permettra de trouver une "adresse dynamique" à partir d'une adresse statique (c'est à dire une base address + des pointers).

Donc comme vous vous en doutez... J'ai essayé de le faire tout seul, en vain...
Je pense vraiment ne pas être loin :

Mon avancement VBA
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 Public Const PROCESS_ALL_ACCESS = &H1F0FFF Public Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere As Long, lpdwProcessId As Long) As Long Public Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Public Declare PtrSafe Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Public Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long Public Declare PtrSafe Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Public Declare PtrSafe Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long Sub AppelerMacrotestGetPointed() Dim SomeValueIsStoredHere As Long, SomeValueIsStoredHereToo As Long, SomeValue As LongPtr ' Ici on déclare tout ce qui va me permettre de trouver le Handle du jeu en question : Assault Cube SomeValueIsStoredHere = FindWindow(vbNullString, "AssaultCube") GetWindowThreadProcessId SomeValueIsStoredHere, SomeValueIsStoredHereToo SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo) Call GetPointedAddr(SomeValue, &H50F4F4, &H34) 'Appel de la fonction pour trouver l'adresse dynamique du jeu "AssaultCube" dont la base address est "50F4F4" et le pointer est "34" End Sub Public Function GetPointedAddr(ByVal BFhandle As LongPtr, ByVal BaseAddr As LongPtr, ByVal Offs0 As Long) As Long Dim TempBuf(4) As Byte 'Big up à Jouad et Docmarti Dim Message1 As String ' Lecture de ce que l'on vient de lire dans Tempbuf. ReadProcessMemory BFhandle, BaseAddr, TempBuf, 4, 0& '''''''''''''''''''''Encore merci à Docmarti, grâce à ce passage j'ai pu voir si j'arrivais à lire quoique ce soit'''''''''''''''''''''''''' Message1 = "" For i = 0 To 4 Message1 = Message1 & "TempBuf(" & i & ")= " & Hex$(TempBuf(i)) & _ " décimale : " & TempBuf(i) & _ " octale : " & Oct(TempBuf(i)) & vbCrLf Next i MsgBox Message1 End Function
Je pense que mon code est bon, le problème doit très probablement venir de ma déclaration de "Read Process Memory", j'avais essayé quelque chose comme cela:

Code:

Public Declare PtrSafe Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As LongPtr, ByVal lpBaseAddress As LongPtr, ByVal lpBuffer() As Byte, ByVal nSize As Long, ByRef lpNumberOfBytesWritten As Long) As Boolean

Voila tout, j'espère avoir été clair :) Si ça peut aider, il y a le code que j'essaie de faire en VB.net et en C# sur le lien que j'ai donné en haut, message #3

PS: Je fais ça sur le jeu AssaultCube, je m'en fiche de ce jeu. Je le prends car c'est une "plateforme" très pratique pour faire mes tests. Je pourrais faire mes tests sur un logiciel de compta, mais j'ai pas envie de foutre le bordel dans ma boite ^^

Bonjour,
sans conviction!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 Public Const PROCESS_ALL_ACCESS = &H1F0FFF
 #If vba7 Then
    Public Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere As Long, lpdwProcessId As Long) As Long
    Public Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Public Declare PtrSafe Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Public Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare PtrSafe Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
    Public Declare PtrSafe Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
#Else
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal SomeValueIsStoredHere As Long, lpdwProcessId As Long) As Long
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
#End If
 
Sub AppelerMacrotestGetPointed()
Dim SomeValueIsStoredHere As Long, SomeValueIsStoredHereToo As Long, SomeValue As Long   ' Ici on déclare tout ce qui va me permettre de trouver le Handle du jeu en question : Assault Cube
SomeValueIsStoredHere = FindWindow(vbNullString, "AssaultCube")
GetWindowThreadProcessId 10, SomeValueIsStoredHereToo
SomeValue = OpenProcess(PROCESS_ALL_ACCESS, False, SomeValueIsStoredHereToo)
Call GetPointedAddr(SomeValue, &H50F4F4, &H34)   'Appel de la fonction pour trouver l'adresse dynamique du jeu "AssaultCube" dont la base address est "50F4F4" et le pointer est "34"
End Sub
Public Function GetPointedAddr(ByVal BFhandle As Variant, ByVal BaseAddr As Variant, ByVal Offs0 As Variant) As Long
Dim TempBuf 'Big up à Jouad et Docmarti
Dim Message1 As String ' Lecture de ce que l'on vient de lire dans Tempbuf.
 
 
        ReadProcessMemory BFhandle, BaseAddr, TempBuf, 4, 0&
 
 
'''''''''''''''''''''Encore merci à Docmarti, grâce à ce passage j'ai pu voir si j'arrivais à lire quoique ce soit''''''''''''''''''''''''''
 
 
Message1 = ""
For i = 0 To 4
        Message1 = Message1 & "TempBuf(" & i & ")= " & Hex$(TempBuf(i)) & _
                "          décimale : " & TempBuf(i) & _
                "          octale : " & Oct(TempBuf(i)) & vbCrLf
Next i
MsgBox Message1
End Function

voilà ce que j'ai trouvé!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByRef lpBaseAddress As Long, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
 
Private Sub UserForm_Initialize()
Dim hwnd As Long ' Holds the handle returned by FindWindow
Dim pid As Long ' Holds the Process Id
Dim pHandle As Long ' Holds the Process Handle
Dim str As String * 20 ' String to hold display text
Dim test As Long ' this var is supposed to hold the value in the memory address
Dim TempBuf, BaseAddr, BFhandle
' First get a handle to the "game" window
hwnd = FindWindow(vbNullString, Me.Name)
If (hwnd = 0) Then Exit Sub
' We can now get the pid
GetWindowThreadProcessId hwnd, pid
' Use the pid to get a Process Handle
pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
 
 
' Now we can read from memory
' ReadProcessMemory BFhandle, &H50F4F4, TempBuf, 4, 0&
test = ReadProcessMemory(pHandle, &H80B910, str, 0&, 20)
' And display the string in our textboxes
Text1.Text = hwnd
Text2.Text = pid
Text3.Text = pHandle
Text4.Text = str
Text5.Text = test
End Sub

25/10/2016, 14h25
Sodruza

Merci beaucoup pour le temps consacré. :)

Je suis impatient de pouvoir jeter un coup d'œil (suis au travail), car vraiment ça commençait à me peser :/

Y a quelques petits trucs que je comprends pas:

Code:

Dim str As String * 20 ' String to hold display text

Comment peut-on faire du texte *20?

Code:

Dim TempBuf, BaseAddr, BFhandle

Je savais pas qu'on peut déclarer des variables sans donner de type.

Code:

test = ReadProcessMemory(pHandle, &H80B910, str, 0&, 20)

je comprends pas pourquoi le str est un string, ça devrait être un byte, on essaie de trouver comment l'adresse "s'appelle" (Par exemple "50F4F4") , non pas la valeur de cette adresse, je me trompe? :?

Encore merci :)
25/10/2016, 15h07
Invité
Windows Xp par exemple dispose de 850 Api, qu'il faut connaitre ou pas!

en tout cas difficile de les appréhender!

disposant de Visual studio 6 j'utilise l’exportateur d'Api et je récupère le code , si je trouve pas je passe par google.

je ne me pose pas trop de question dans ces cas là, en général a fonctionne.

dans le cas prisent, je dirai ça manchote d'ou mon sans conviction.

Citation:

Comment peut-on faire du texte *20?
Code:

1 2 3 4 Sub test() Dim a As String * 100 Debug.Print Len(a) End Sub
Citation:

je savais pas qu'on peut déclarer des variables sans donner de type.

par défaut les variable sont variant! un Byte me jetait sur lpBuffer As Any alors j'ai mis variant et ReadProcessMemory se débrouille avec ça!

dans mas tests, ReadProcessMemory(pHandle, &H80B910, str, 0&, 20)str me retourne vide pas fière! :oops:
25/10/2016, 17h08
Sodruza

Merci pour les infos.

Ah mince ça me fait un mauvais ascenseur émotionnel le fait que ton test ne marche pas :/

À vrai dire je me rends compte qu'à aucun moment je ne t'ai donné la déclaration de read process memory du code VB.net qui marche.
Peut être qu'en se contentant de traduire ça pourrait marcher?

Je pars du boulot je te donne ça dès que j'arrive.
25/10/2016, 17h18
Invité

Ok

Déclaration de la fonction read process memory sur VB.net :

Code:

1
2
    <DllImport("kernel32.dll", SetLastError:=True)> Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <Out()> ByVal lpBuffer() As Byte, ByVal dwSize As Integer, ByRef lpNumberOfBytesRead As Integer) As Boolean
    End Function

Fonction GetPointedAddress complète sur VB.net :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
  Public Function GetPointedAddr(ByVal BFhandle As IntPtr, ByVal BaseAddr As IntPtr, Optional ByVal Offs0 As Integer = -1, Optional ByVal Offs1 As Integer = -1, Optional ByVal Offs2 As Integer = -1, Optional ByVal Offs3 As Integer = -1, Optional ByVal Offs4 As Integer = -1) As Integer
        Dim Ptr As Integer = 0
        Dim TempBuf(4) As Byte
 
        ReadProcessMemory(BFhandle, BaseAddr, TempBuf, 4, 0)
        Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs0
 
        If Offs1 = -1 Then Return BitConverter.ToInt32(TempBuf, 0)
        ReadProcessMemory(BFhandle, Ptr, TempBuf, 4, 0)
        Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs1
 
        If Offs2 = -1 Then Return BitConverter.ToInt32(TempBuf, 0)
        ReadProcessMemory(BFhandle, Ptr, TempBuf, 4, 0)
        Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs2
 
        If Offs3 = -1 Then Return BitConverter.ToInt32(TempBuf, 0)
        ReadProcessMemory(BFhandle, Ptr, TempBuf, 4, 0)
        Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs3
 
        If Offs4 = -1 Then Return BitConverter.ToInt32(TempBuf, 0)
        ReadProcessMemory(BFhandle, Ptr, TempBuf, 4, 0)
        Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs4
 
        Return Ptr
    End Function

Déclaration de la fonction read process memory sur C# :

Code:

1
2
 [DllImport("kernel32.dll", SetLastError = true)]
        static extern bool ReadProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, byte[] lpBuffer, int dwSize, int lpNumberOfBytesRead);

Fonction GetPointedAddress complète sur C# :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
        public int GetPointedAddr(IntPtr BFhandle, IntPtr BaseAddr, int Offs0 = -1, int Offs1 = -1, int Offs2 = -1, int Offs3 = -1, int Offs4 = -1)
        {
            int Ptr = 0;
            byte[] TempBuf = new byte[5];
 
            ReadProcessMemory(BFhandle, BaseAddr, TempBuf, 4, 0);
            Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs0;
 
            if (Offs1 == -1)
                return BitConverter.ToInt32(TempBuf, 0);
            ReadProcessMemory(BFhandle, (IntPtr)Ptr, TempBuf, 4, 0);
            Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs1;
 
            if (Offs2 == -1)
                return BitConverter.ToInt32(TempBuf, 0);
            ReadProcessMemory(BFhandle, (IntPtr)Ptr, TempBuf, 4, 0);
            Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs2;
 
            if (Offs3 == -1)
                return BitConverter.ToInt32(TempBuf, 0);
            ReadProcessMemory(BFhandle, (IntPtr)Ptr, TempBuf, 4, 0);
            Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs3;
 
            if (Offs4 == -1)
                return BitConverter.ToInt32(TempBuf, 0);
            ReadProcessMemory(BFhandle, (IntPtr)Ptr, TempBuf, 4, 0);
            Ptr = BitConverter.ToInt32(TempBuf, 0) + Offs4;
 
            return Ptr;
        }

Je me sens mal de te demander ça, car tu dois être 1000 fois meilleur que moi qui ai commencé à coder les week ends (seulement car j'ai job :/ ) y a 2 mois. Mais tu vois ce que j'essaie de faire avec cette fonction?

Je pense que je vais devoir demander sur des forums en anglais. Si jamais ça marche, je donnerai le lien.

Je suis pas du genre à abandonner :P

26/10/2016, 19h07
unparia

Bonjour

Citation:

Je pense que je vais devoir demander sur des forums en anglais

parce-que cela dépendrait de la langue (français ou anglais) utilisée ? Tu crois ?
ou parce-que tu penses qu'un anglophone est plus compétent ? Tu crois ?
Tu risques fort (on verra bien) d'obtenir sur un forum "anglophone" la réponse d'un "francophone" présent (et ... on va dire "actif") sur le forum "anglophone", ... :D
Et s'il a lu cette discussion, il retiendra surtout que tu n'es pas "du genre à abandonner" et traduira comme il se doit cette expression (tu es du "genre à trouver par toi-même" ;)).
26/10/2016, 19h19
Sodruza

Au risque de me répéter, j'ai commencé VBA il y a peu (2 mois et je fais ça surtout les week ends). En deux moi j'estime que j'ai obtenu un niveau pas trop dégueulasse, et si j'ai du mal à faire ce genre de truc alors que dysorthographie (aka l'Ingénieur en développement de logiciels, rien que ça) galère, ça me semble normal que j'en fasse de même, non? Je suis un petit stagiaire en école de commerce qui n'a eu des cours d'excel qui se sont arrêtés à la RechercheV.

Et pour prouver ma bonne fois, je donne le code de la GetPointedAddress en VB.Net et en C# (essaie de trouver ça sur le net!!)

Citation:

parce-que cela dépendrait de la langue (français ou anglais) utilisée ? Tu crois ?
ou parce-que tu penses qu'un anglophone est plus compétent ? Tu crois ?

4 points d'interrogations avec des "tu crois?", peut être que je fais fausse route, mais je trouve ça un poil agressif.
Non, si je poste sur des forums anglais c'est tout simplement car la langue anglaise est bien plus parlée dans le monde entier que notre petite langue française, et j'ai donc plus de chance de tomber par hasard sur un type qui a fait du "memory hacking" avec VBA ;) ça me semble évident.
26/10/2016, 19h44
NVCfrm

Citation:

Envoyé par Sodruza

... et j'ai donc plus de chance de tomber par hasard sur un type qui a fait du "memory hacking" avec VBA ;) ça me semble évident.

Salut, j'avoue que je ne comprends pas l'enjeu. Bien que je puisses te donner tout de suite un code qui marche.
VBA hérite de VB qui fait abstraction de la notion même des pointeurs.
Les usagers du vba auront à le soupçonner un petit peu avec les passages de paramètres à une fonction avec les arguments Byval ou Byref.
L'utilisateur n'a pas à manipuler les pointeurs pour agir, en vba.

Quel est l'intérêt pour toi qui débute depuis peu en VBA, de lire l'adresse mémoire d'une variable ?
26/10/2016, 19h58
Sodruza

Citation:

Quel est l'intérêt pour toi qui débute depuis peu en VBA, de lire l'adresse mémoire d'une variable ?

Pour deux raisons:
1- Je sais le faire en C# et en VB.net et je veux être doué en VB.net, C# et VBA. Donc dès que je fais quoique ce soit dans une "langue" je le fais dans les 2 autres pour me faire de l'expérience.
2- À mon stage on me donne une liste (excel) tous les jours avec des trucs (pour faire simple) que je dois rajouter sur le logiciel de notre entrepôt. Donc sur une colonne j'ai un numéro de facture, sur une autre colonne j'ai le nom de la personne de l'entreprise qui en est chargée, sur une autre colonne le numéro de l'article etc etc

Et comme je suis stagiaire, on m'a collé ça. On va pas se mentir : c'est chiant! (je m'en fou je peux dire que seulement cet aspect est chiant, car je fais mon stage en allemagne, et ma boss parle pas français mdr). Après je fais aussi du reporting et ça c'est 1000 fois mieux!

J'ai parlé à ma boss que j'arrive à modifier des valeurs sur d'autres logiciels via excel chez moi, ou alors lire les valeurs. Et j'ai un lourd feu vert si j'arrive à rendre ce truc automatique. Mais bon voila les adresses sont dynamiques :/ et là je bloque vraiment...
26/10/2016, 20h01
unparia

- Ta demande n'a rien à voir avec des connaissances VBA. Tu ne fais-là que chercher à utiliser VBA pour l'exécution et l'exploitation de fonctions de l'API de Windows (rien de VBA, là-dedans)
- J'ignore (et veux ignorer) ce que tu entends par "du "memory hacking"
- A bientôt, donc, peut-être, ici ou ailleurs.
26/10/2016, 20h06
Sodruza

Citation:

Envoyé par NVCfrm

Salut, j'avoue que je ne comprends pas l'enjeu. Bien que je puisses te donner tout de suite un code qui marche.
VBA hérite de VB qui fait abstraction de la notion même des pointeurs.

Je ne comprends pas ce passage. Comment tu peux avoir un code qui marche si ce n'est pas possible ? (c'est ce que je comprends avec le fait que VB ne comprenne pas la notion de pointer, je te garantie que ma fonction GetPointedAddr marche, et pourtant c'est du VB.net)

Citation:

Envoyé par unparia

- Ta demande n'a rien à voir avec des connaissances VBA. Tu ne fais-là que chercher à utiliser VBA pour l'exécution et l'exploitation de fonctions de l'API de Windows (rien de VBA, là-dedans)

Là je te comprends pas. C'est possible d'utiliser les fonctions de l'API avec VBA, pourquoi s'en priver quand on a les informations sur Excel?
26/10/2016, 20h12
unparia

Citation:

Là je te comprends pas. C'est possible d'utiliser les fonctions de l'API avec VBA

certes, mais ce ne sera du VBA (pas du tout, même) !

Citation:

pourquoi s'en priver quand on a les informations sur Excel

Excel ????? Que vient faire Excel dans cette affaire ??????8O
Ben ... ne t'en prive pas, ma foi ...
26/10/2016, 20h17
Sodruza

Citation:

Envoyé par unparia

Excel ????? Que vient faire Excel dans cette affaire ??????

Il y aNVCfrm qui m'a demandé pourquoi je veux faire ça, je lui ai répondu ça:

Citation:

2- À mon stage on me donne une liste (excel) tous les jours avec des trucs (pour faire simple) que je dois rajouter sur le logiciel de notre entrepôt. Donc sur une colonne j'ai un numéro de facture, sur une autre colonne j'ai le nom de la personne de l'entreprise qui en est chargée, sur une autre colonne le numéro de l'article etc etc
26/10/2016, 20h47
NVCfrm

Bon, inutile de se disputailler.
Je veux que tu comprennes que l'environnement VB n'a pas été pensé pour que l'utilisateur manipuler les pointeurs.
Bien sûr, par appels aux api, on arrive à tout faire. Mais ce n'est plus du vba comme te l'a dit un paria.
En fait, tu pourras avoir des surprises, si tu ne cernes pas certaines choses que fait VB en coulisses, en essayant d'agir sur les pointeurs.
26/10/2016, 20h53
Sodruza

Bon ok, je suis en PLS. :aie:

Je l'entends et admets que VB n'a pas été fait pour ça, mais là il s'avère que j'ai du excel et je veux le mettre sur un logiciel à part. (mais est il théoriquement possible de traduire ma fonction GetPointedAddr en VBA?)
Peut être qu'un jour je rigolerai d'avoir pu penser qu'utiliser des fonctions API via VBA c'est du VBA. Après, si t'as une méthode qui a marché sur vba, je ne demande qu'à voir... :oops:

Juste pour ma culture perso: qu'est ce qui est fait pour les pointers alors?
26/10/2016, 21h40
Invité

Bonsoir,
Il est vrai que les api permettent de manipuler des objets widows! Une fois qu'on a dit ça on est pas bien avancé!

Comme je l'ai dit plus haut, il n'est pas possible de connaitre toutes les api! En .net les api ce décline de façon instinctive système.Windows.??? .

On utilise les api un peut comme les identités remarquables en maths, on recherche le modèle qui convient et on l'utilise! Ça n'a rien à voir avec de l'analyse fonctionnelle, ou du vocabulaire de programmation!

Le code que tu as fournis en traduction VB ces ce que tu as trouvé également et rien de nouveau à ce que moi même ai trouvé.

Je n'ai rien trouvé de probant sur le sujet et rien trouvé qui permet de récupérer l valeur du beffer.

Et de plus désolé de dire cela mais je me connecte sur le forum le temps de tester mes propres routine mais pas en permanence!

J'ai même envisagé de regarder un dll Vb.net a utiliser dans Vba mais je ne suis pas sur de trouver le temps!

Comme dit plus haut les api c'est pas de la programmation c'est un peut comme un webservice tu envois ta requête et tu récupères le résultat; je ne vois pas d'erreur dans le code et sauf trouver la bonne api....
26/10/2016, 21h46
Sodruza

Sur un forum anglais, on m'a dit de mettre ma fonction dans un DLL avec C#.
Je me suis facepalm car je regrette de pas y avoir pensé.

Je n'ai jamais créé de DLL pour le moment, mais je me renseigne. Je sens que ça va marcher :P

Citation:

Envoyé par Sodruza

Juste pour ma culture perso: qu'est ce qui est fait pour les pointers alors?

Je te l'ai dit. Je n'ai pas le temps d'expliciter clairement. Je cherchais un lien qui allait m'épargner cette corvée. Peut-être que Microsoft l'a archivé, ou enlevé pour toujours.
En gros, VBA est un langage interprété. Ces variables sont crées et recrées dynamiquement. Il lui arrive de déplacer Un tableau de la zone mémoire oŭ il réside, alors si à ce moment là, ton code n'avait pas les précautions qu'il faut, il lira une adresse qui ne pointe pas sur le tableau en question.

Quand on veut manipuler en VBA, c'est qu'on a des appels à des bibliothèques de fonctions externes qui nécessitent de connaître l'adresse d'une variable, à cet instant précis. VBA fonctionne en envoyant par défaut la référence de la variable passé en argument.
Est-il nécessaire de rappeler que toute affectation effectuée sur cette variable passé en référence agit directement sur l'emplacement mémoire de celui-ci.
Ce comportement peut-être modifié explicitement avec le mot clé ByVal.

Il y a en effet des fonctions non officielles, qui permettent d'obtenir les adresses. Mais en tenant compte du point haut, c'est à tes risques et périls.
J'ai cru dans la lecture rapide du fil que tu vises une variable chaîne, ce qui encore nécessite d'avoir une maîtrise de la notion de pointeur de pointeur, et du comportement VB qui traite les chaînes par défaut en unicode.

Voilà:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByRef pDst As Any, ByRef pSrc As Any, ByVal ByteLen As Long)
Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
 
Sub Test()
    Dim str_byteTab() As Byte, x() As Byte, y() As Byte
    Dim str_test As String, tbs() As String, str_test2 As String
    Dim addr As Long, n As Long, i As Long, lng As Long, v
    'utilisation de fonctions non supportés: VarPtr; VarPtrArray; StrPtr; VarPtrStringArray; ObjPtr
 
    str_test2 = String(10, "*")
    str_test = "Renvoi sans le premier renvoi"
 
    lng = Len(str_test)
    ReDim x(lng - 1)
    ReDim y(lng - 1)
    ReDim str_byteTab(lng / 2)
    ReDim tbs(lng / 2)
    addr = StrPtr(str_test)
    'envoi de la valeur pointée par str_test dans copy
    n = lng / 2
    ' On va envoyer à une api de copie qui attend des pointeurs la variable str_test2, et l'adresse de str_test
    CopyMemory str_test2, addr, n  'renvoi large.
    v = (Len(str_test2) - Len(str_test)) = Len(str_test) ' renverra vrai.
    Debug.Print str_test2 'pour voir graphiquement ce que ça donne
    'J'espère que tu comprends ce qui se passe.
 
    'copie de la valeur pointée dans un tableau.
    'Recopie de la moitié de ce tableau vers un autre.
    'Et recopie à partir de la moitié de x vers un troisième tableau en limitant également le nombre d'élém copiés
    CopyMemory x(0), ByVal str_test, (i * 2)
        v = ""
        For i = 0 To UBound(x)
            v = v & x(i)
        Next
        Debug.Print v
 
    'CopyMemory y(0), str_test, 10 'interdit! car vous passez un pointeur de pointeur
    CopyMemory y(0), x(0), 10
    '
    CopyMemory str_byteTab(0), x(10), 10
    'l'inverse maintenant en renvoyant un tableau de valeurs vers une variable chaine
    CopyMemory ByVal str_test2, str_byteTab(0), 9
        v = ""
        For i = 0 To UBound(str_byteTab)
            v = v & str_byteTab(i)
        Next
 
    'Comment cela se passe? C'est toute la subtillité du pointage que tu observes là.
    'Byval n'a t-il pas fonctionné? Mais non, son fonctionnement te semblera à la perfection
    'quand tu auras compris que c'est la valeur pointée par str_test2  qui a été transmis pour être changé.
    'une fois ceci compris on utilisera ces principes d'indirection avec copymemory pour transformer
    'nos variables efficacement avec peu de code et un peu plus de calculs bien sûr.
    'si vous avez compris cela, vous comprendrez pourquoi ce tableau qui attend des chaînes est utilsé avec un tableau de byte ici
    'attention aux indices. Car tout dépassement de tampon est désastreux
 
    'addr = VarPtrStringArray(tbs) 'on suppose que tu as compilé et chargé la librairie utile pour les tableaux de chaines.
    ' il s 'agit de VB6ptrlib.odl.tlb pour supporté les fonctions suivantes
    'et que vous avez déclare la fonction externe pour l'adresse d'un SafeArray:
    'Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() as Any) As Long
 
    'addr = VarPtrArray(str_byteTab)
    'addr = StrPtr(str_byteTab)
 
    'ne jamais tenter une manoeuvre semblable à celle ci:
    'CopyMemory ByVal tbs(0), str_byteTab(0), 2 ' tbs est un tableau. donc un pointeur.
                                        'son contenu aussi est un pointeur. Un pointeur de pointeur.L'expression renvoi la valeur
                                        'pointée (une adresse mémoire) et non une valeur du tableau.
 
    'addr = VarPtrStringArray(tbs) 'réf du tableau de chaînes
    'addr = StrPtr(str_test2) 'ref d'un tableau numérique
    'CopyMemory ByVal tbs(0), str_byteTab(0), 10 'La manipulation d'un tableau de chaînes doit tenir compte
                                        'des 2 cas. Le tableau est un pointeur de pointeur. C'est à dire un pointeur
                                        'sur références.
 
 
End Sub

Voir 40 message(s) de cette discussion en une page