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
| Private Function TestModeCompile(ByVal CheminFichierAssemblyATester As String) As String
'Dim retourFlag As Integer = 0
Dim retourIsJITTracking As Boolean = False
Dim retourIsJITOptimizer As Boolean = False
Dim retour As String = ""
Dim Lassembly As Reflection.Assembly = Nothing
Try
Lassembly = Reflection.Assembly.LoadFile(CheminFichierAssemblyATester)
For Each att As Object In Lassembly.GetCustomAttributes(False)
If att.GetType Is GetType(System.Diagnostics.DebuggableAttribute) Then
'retourFlag = DirectCast(att, System.Diagnostics.DebuggableAttribute).DebuggingFlags
retourIsJITTracking = DirectCast(att, System.Diagnostics.DebuggableAttribute).IsJITTrackingEnabled
retourIsJITOptimizer = DirectCast(att, System.Diagnostics.DebuggableAttribute).IsJITOptimizerDisabled
' Exit For
End If
Next
Catch
retour = ""
Finally
Lassembly = Nothing
End Try
'retour = retourFlag & "; " & retourIsJITTracking & "; " & retourIsJITOptimizer
retour = retourIsJITTracking & "; " & retourIsJITOptimizer
Return retour
End Function |
Partager