Please help to view the sample

[yxq]

Hello,
I want to get the string resource from DLL file, the code work well for
Vista x86, but it will not work on Vista x64, why? can anyone help to view
the code below? thank you very much.

//////////////////////////////////////////////////////////////////////////////////

Public Class GetResourceStri ngFromFile

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As Integer
Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As Integer, ByVal uID As Integer, ByVal lpBuffer As String,
ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal
hLibModule As Integer) As Integer

Public Shared Function GetResourceStri ngFromFile(ByVa l sModule As
String, ByVal idString As Integer) As String
Dim hModule As Integer
Dim nChars As Integer
Dim Buffer As New
Microsoft.Visua lBasic.Compatib ility.VB6.Fixed LengthString(26 0)
Dim ReturnValue As String = ""

Try
hModule = LoadLibrary(sMo dule)
If hModule Then
nChars = LoadString(hMod ule, idString, Buffer.Value,
260)
If nChars 0 Then
ReturnValue =
Microsoft.Visua lBasic.Left(Buf fer.Value, nChars)
End If

FreeLibrary(hMo dule)
End If
Catch ex As Exception
End Try
Return ""
End Function

End Class

[Armin Zingler]

"yxq" <ga***@163.nets chrieb

Hello,
I want to get the string resource from DLL file, the code work well
for Vista x86, but it will not work on Vista x64, why? can anyone
help to view the code below? thank you very much.

//////////////////////////////////////////////////////////////////////////////////

Public Class GetResourceStri ngFromFile

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As Integer
Private Declare Function LoadString Lib "user32" Alias
"LoadString A" (ByVal hInstance As Integer, ByVal uID As Integer,
ByVal lpBuffer As String, ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal
hLibModule As Integer) As Integer

Handles must be declared as IntPtr. IntPtr is plattform specific and
automatically the correct size, ie. 32 or 64 bit depending on the plattform.
Whereas Integer = Int32.

Watch the declarations:

HMODULE LoadLibrary(
LPCTSTR lpFileName
);
int LoadString( HINSTANCE hInstance,
UINT uID,
LPTSTR lpBuffer,
int nBufferMax
);

BOOL FreeLibrary(
HMODULE hModule
);

Type translation:

int -IntPtr
UINT = unsigned int -IntPtr
HMODULE = HINSTANCE = HANDLE = PVOID = void* -IntPtr
BOOL = int -IntPtr
Example:

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As IntPtr

See also:
http://msdn2.microsoft.com/en-us/library/ms241064.aspx
http://msdn2.microsoft.com/en-us/library/8ck8e1y2.aspx
To the community: How is "As Boolean" treated? Shouldn't it be IntPtr? I've
always translated BOOL to Boolean, but this seems to be wrong.

Armin

[Armin Zingler]

"yxq" <ga***@163.nets chrieb

Haven't looked at the rest of the code...

Also, use a Stringbuilder if you get a string back from an unmanaged [API]
function. Note that Strings are "immutable" in .Net. No need to use
VB6.FixedLength String anyways.
See http://msdn2.microsoft.com/en-us/library/sd10k43k.aspx,
especially http://msdn2.microsoft.com/en-us/library/s9ts558h.aspx (head line
"Fixed-Length String Buffers").
(but don't rely on the declarations there...)
So, in LoadString, declare "ByVal lpBuffer As StringBuilder". Before calling
the function, fill the stringbuilder.

Also exchange the variable types in the function according to the types you
used in the Declares.
Armin

[Herfried K. Wagner [MVP]]

"yxq" <ga***@163.nets chrieb:

I want to get the string resource from DLL file, the code work well for
Vista x86, but it will not work on Vista x64, why? can anyone help to view
the code below? thank you very much.

Your function declarations are wrong. I suggest to check out the sample
<URL:http://dotnet.mvps.org/temp/Win32Res.zip>.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[yxq]

Thank you for your help, but i have changed to the code below, it works well
on x86, but will not work on x64(only get a few dll's string), thank you.

/////////////////////////////////////////////////////////////////////////////////
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibrar yA"
(ByVal lpLibFileName As String) As Integer
Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As IntPtr, ByVal uID As Integer, ByVal lpBuffer As String,
ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As
Integer) As Integer

Public Function GetResourceStri ngFromFile(ByVa l sModule As String, ByVal
idString As Integer) As String

Dim Buffer As String = Space(&H1000)
Dim hModule As Integer

Try
hModule = LoadLibrary(sMo dule)
If hModule Then
Dim n As Int32 = LoadString(hMod ule, idString, Buffer,
Buffer.Length)
If n 0 Then
Return Left(Buffer, n)
End If
End If
Catch ex As Exception
End Try
Return ""
End Function

"yxq" <ga***@163.netÐ ´ÈëÏûÏ¢ÐÂÎÅ:OL* *************** @TK2MSFTNGP05.p hx.gbl...

Hello,
I want to get the string resource from DLL file, the code work well for
Vista x86, but it will not work on Vista x64, why? can anyone help to view
the code below? thank you very much.

//////////////////////////////////////////////////////////////////////////////////

Public Class GetResourceStri ngFromFile

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As Integer
Private Declare Function LoadString Lib "user32" Alias
"LoadString A" (ByVal hInstance As Integer, ByVal uID As Integer, ByVal
lpBuffer As String, ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal
hLibModule As Integer) As Integer

Public Shared Function GetResourceStri ngFromFile(ByVa l sModule As
String, ByVal idString As Integer) As String
Dim hModule As Integer
Dim nChars As Integer
Dim Buffer As New
Microsoft.Visua lBasic.Compatib ility.VB6.Fixed LengthString(26 0)
Dim ReturnValue As String = ""

Try
hModule = LoadLibrary(sMo dule)
If hModule Then
nChars = LoadString(hMod ule, idString, Buffer.Value,
260)
If nChars 0 Then
ReturnValue =
Microsoft.Visua lBasic.Left(Buf fer.Value, nChars)
End If

FreeLibrary(hMo dule)
End If
Catch ex As Exception
End Try
Return ""
End Function

End Class

[Armin Zingler]

"yxq" <ga***@163.nets chrieb

Thank you for your help, but i have changed to the code below, it works
well on x86, but will not work on x64(only get a few dll's string), thank
you.

/////////////////////////////////////////////////////////////////////////////////
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibrar yA"
(ByVal lpLibFileName As String) As Integer
Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As IntPtr, ByVal uID As Integer, ByVal lpBuffer As
String, ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule
As Integer) As Integer

You should change not only some types. Correct them all. For example, the
return value of LoadLibrary must be Intptr. As I wrote, handles must be
Intptr.

I was wrong with the type translation table. Correction:

int -Integer/Int32
UINT = unsigned int -VB 2005: UInteger/UInt32, VB 2003: Integer/Int32
HMODULE = HINSTANCE = HANDLE = PVOID = void* -IntPtr
BOOL -Boolean
->

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibrar yA"
(ByVal lpLibFileName As String) As IntPtr

Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As IntPtr, ByVal uID As UInteger, ByVal lpBuffer As
StringBuilder, ByVal nBufferMax As Integer) As Integer

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule
As IntPtr) As Boolean
Armin

[Herfried K. Wagner [MVP]]

"Armin Zingler" <az*******@free net.deschrieb:

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibrar yA"
(ByVal lpLibFileName As String) As IntPtr

Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As IntPtr, ByVal uID As UInteger, ByVal lpBuffer As
StringBuilder, ByVal nBufferMax As Integer) As Integer

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule
As IntPtr) As Boolean

.... and you can even get rid of the alias and declare the function as 'Auto'
('Declare Auto Function...').

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Armin Zingler]

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.atschri eb

"Armin Zingler" <az*******@free net.deschrieb:

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As IntPtr

Private Declare Function LoadString Lib "user32" Alias
"LoadString A" (ByVal hInstance As IntPtr, ByVal uID As UInteger,
ByVal lpBuffer As StringBuilder, ByVal nBufferMax As Integer) As
Integer

Private Declare Function FreeLibrary Lib "kernel32" (ByVal
hLibModule As IntPtr) As Boolean

... and you can even get rid of the alias and declare the function
as 'Auto' ('Declare Auto Function...').

I didn't look at it at all. Had to find out whether "int" is Intptr or
Int32. :-)
Armin

[yxq]

Thank you, but i tried all your suggestions, but did not work yet.
If add the "Auto" to the API, it will not work on x64(include x86).
Modifid the Integer to Intptr, not effect.

Could you please help me to test on OS-64bit? i want to get the string in
Shell32.dll(Res ID is -22985), it can return "Folder Options".
I used the code below. It work well on x86, but will not work on x64.

//////////////////////////////////////////////////////////////////////////
MessageBox.Show (GetResourceStr ingFromFile("C: \Windows\System 32\shell32.dll" ,
22985))

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibrar yA"
(ByVal lpLibFileName As String) As IntPtr
Private Declare Function LoadString Lib "user32" Alias "LoadString A"
(ByVal hInstance As IntPtr, ByVal uID As UInteger, ByVal lpBuffer As String,
ByVal nBufferMax As Integer) As Integer
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As
IntPtr) As Integer

Public Function GetResourceStri ngFromFile(ByVa l sModule As String, ByVal
idString As Integer) As String

Dim Buffer As String = Space(&H1000)
Dim hModule As Integer

Try
hModule = LoadLibrary(sMo dule)
If hModule Then
Dim n As Int32 = LoadString(hMod ule, idString, Buffer,
Buffer.Length)
If n 0 Then
Return Left(Buffer, n)
End If
End If
Catch ex As Exception
End Try
Return ""
End Function

"Armin Zingler" <az*******@free net.de>
??????:uw****** ********@TK2MSF TNGP03.phx.gbl. ..

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.atschri eb

>"Armin Zingler" <az*******@free net.deschrieb:

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As IntPtr

Private Declare Function LoadString Lib "user32" Alias
"LoadString A" (ByVal hInstance As IntPtr, ByVal uID As UInteger,
ByVal lpBuffer As StringBuilder, ByVal nBufferMax As Integer) As
Integer

Private Declare Function FreeLibrary Lib "kernel32" (ByVal
hLibModule As IntPtr) As Boolean

... and you can even get rid of the alias and declare the function
as 'Auto' ('Declare Auto Function...').

I didn't look at it at all. Had to find out whether "int" is Intptr or
Int32. :-)
Armin

[Armin Zingler]

"yxq" <ga***@163.nets chrieb

Thank you, but i tried all your suggestions, but did not work yet.
If add the "Auto" to the API, it will not work on x64(include x86).
Modifid the Integer to Intptr, not effect.

Could you please help me to test on OS-64bit?

If you send me one?

i want to get the
string in Shell32.dll(Res ID is -22985), it can return "Folder
Options".
I used the code below. It work well on x86, but will not work on
x64.

//////////////////////////////////////////////////////////////////////////
MessageBox.Show (GetResourceStr ingFromFile("C: \Windows\System 32\shell32.dll" ,
22985))

Private Declare Function LoadLibrary Lib "kernel32" Alias
"LoadLibrar yA" (ByVal lpLibFileName As String) As IntPtr
Private Declare Function LoadString Lib "user32" Alias
"LoadString A" (ByVal hInstance As IntPtr, ByVal uID As UInteger,
ByVal lpBuffer As String, ByVal nBufferMax As Integer) As Integer

Still wrong declaration. Use a Stringbuilder for lpBuffer. See this thread
for explanation.
Armin