Réponse acceptée !
J'ai bien progressé dans ma recherche, et j'ai codé çà qui fonctionne très très bien :
Option Strict On
Imports System
Imports System.Text
Imports System.Runtime.InteropServices
Public Class Form1
<DllImport( "User32" , SetLastError:= True )> _
Public Shared Function LoadString( ByVal hInstance As IntPtr, ByVal uID As UInt32, ByVal lpBuffer As Text.StringBuilder, ByVal nBufferMax As Integer ) As Integer
End Function
Declare Auto Function LoadLibrary Lib "kernel32.dll" ( ByVal lpFileName As String ) As IntPtr
<DllImport( "kernel32.dll" , SetLastError:= True , EntryPoint:= "FreeLibrary" )> _
Public Shared Function FreeLibrary( ByVal hModule As IntPtr) As Boolean
End Function
Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim id As UInteger
Dim hInst As IntPtr = LoadLibrary( "c:\windows\system32\audiosrv.dll" )
Dim sb As New StringBuilder( 1024 )
For id = 1 To 65536
Dim len As Integer = LoadString(hInst, id, sb, sb.Capacity)
If (len > 0 ) Then
Debug.Print( CStr ( id)& " -- " & sb.ToString)
End If
Next
FreeLibrary(hInst)
End Sub
End Class
Bon ben si çà peut servir à d'autres...
N'hésitez pas svp à commenter si il y a mieux/si c'est pas bien codé, MERCI !
