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
| wchar_t exefile[]; // Contient le chemin absolut vers l'exécutable .Net à déboguer
ICLRMetaHost* _MetaHost = 0;
ICLRDebugging* _Debugging = 0;
ICorDebug* _CorDebug = 0;
ICorDebugProcess* _CorProcess = 0;
// Obtient un CLMetaHost
HRESULT hr = CLRCreateInstance(CLSID_CLRMetaHost, IID_ICLRMetaHost, (void**)&_MetaHost); // OK
if(hr) throw std::exception("Echec de l'obtention de l'interface de meta-données.");
// Obtient un CLRDebugging
hr = CLRCreateInstance(CLSID_CLRDebugging, IID_ICLRDebugging, (void**)&_Debugging); // OK
if(hr) throw std::exception("Echec de l'obtention de l'interface de débogage.");
wchar_t CLRVersion[MAX_PATH]; // MAX_PATH pour prendre large, rien de lié aux chemins
DWORD bufLength = MAX_PATH;
_MetaHost->GetVersionFromFile(exefile, CLRVersion, &bufLength); // Ok, CLRVersion = "v4.0.30319", l'exécutable a déboguer est bien en .Net 4,
//j'ai testé avec un exe en .Net 2 et la fonction retourne bien "v2.[...]"
// Obtient le runtime associé
ICLRRuntimeInfo* _RuntimeInfo = 0;
HRESULT hr = _MetaHost->GetRuntime(CLRVersion, IID_ICLRRuntimeInfo, (void**)&_RuntimeInfo); // OK
if(hr) throw std::exception("Echec de l'obtention de l'interface ICLRRuntimeInfo.");
// Obtient l'interface de débogage pour le runtime spécifié
hr = _RuntimeInfo->GetInterface(CLSID_CLRDebuggingLegacy, IID_ICorDebug, (void**)&_CorDebug); // OK
// Maintenant que l'interface de débogage est obtenue, le ICLRRuntimeInfo n'est plus requis
_RuntimeInfo->Release(); // J'ai tenté en commentant cette ligne, sans changement.
STARTUPINFO startupinfo;
PROCESS_INFORMATION processinfo;
memset(&startupinfo, 0, sizeof(STARTUPINFO));
startupinfo.cb = sizeof(STARTUPINFO);
memset(&processinfo, 0, sizeof(PROCESS_INFORMATION));
// J'ai tenté toutes les combinaisons entre ApplicationName et CommandLine, aucun changement
HRESULT hr = _CorDebug->CreateProcess
(
0, // ApplicationName
exefile, //CommandLine
0, //ProcessAttributes
0, // ThreadAttribute
FALSE, // InheritHandles
CREATE_NEW_CONSOLE,
0, // Environment
0, // CurrentDirectory
&startupinfo,
&processinfo,
DEBUG_NO_SPECIAL_OPTIONS,
&_CorProcess
); // une HRException est lancée au sein de cette fonction
if(hr) // E_FAIL
{
DWORD err = GetLastError(); // err = 0 ?!?!?!
return STOPPED;
} |
