Récupérer une ressource string depuis une DLL ? [Résolu]
Signaler
CreeAlaVaVite
CreeAlaVaVite
- Messages postés
- 2
- Date d'inscription
- jeudi 4 décembre 2008
- Statut
- Membre
- Dernière intervention
- 4 décembre 2008
CreeAlaVaVite
- Messages postés
- 2
- Date d'inscription
- jeudi 4 décembre 2008
- Statut
- Membre
- Dernière intervention
- 4 décembre 2008
A voir également:
- Audiosrv.dll
- Visual Basic / VB.NET : Modifier une ressource string d'un executable compilé (editeur de res - Guide
- Traiter string vb par dll c/c++ (win32) - Codes sources - C / C++ / C++.NET (API)
- Récupérer de List<string> ✓ - Forum - C# / .NET
- Récupérer un pointeur envoyé à une DLL ✓ - Forum - Visual Basic 6
- Envoi d'un tableau de strings à une DLL standard ✓ - Forum - Visual Basic 6
1 réponse
CreeAlaVaVite
- Messages postés
- 2
- Date d'inscription
- jeudi 4 décembre 2008
- Statut
- Membre
- Dernière intervention
- 4 décembre 2008
J'ai bien progressé dans ma recherche, et j'ai codé çà qui fonctionne très très bien :
Option
Strict
On
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
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 !
Option
Strict
On
<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
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 !