1
我正試圖在Access 2016 x64中找到user32.dll中的本地化按鈕標題。訪問x64 VBA - 嘗試從user32.dll加載字符串時出現ERROR_RESOURCE_DATA_NOT_FOUND
奇怪的是,在安裝了Access 2010 x86的另一臺機器上,代碼完美運行。
的代碼如下:
Option Compare Database
Option Explicit
Private Declare PtrSafe Function LoadString Lib "user32" Alias "LoadStringA" (_
ByVal hInstance As Long, _
ByVal uID As Long, _
ByVal lpBuffer As String, _
ByVal nBufferMax As Long) _
As Long
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (_
ByVal lpFileName As String) _
As Long
Private Enum CAPTION
OK_CAPTION = 800
CANCEL_CAPTION = 801
ABORT_CAPTION = 802
RETRY_CAPTION = 803
IGNORE_CAPTION = 804
YES_CAPTION = 805
NO_CAPTION = 806
CLOSE_CAPTION = 807
HELP_CAPTION = 808
TRYAGAIN_CAPTION = 809
CONTINUE_CAPTION = 810
End Enum
Private Const lPath As String = "user32.dll"
Private Const BufferMax As Long = 256
Private Const cIndex As Long = CAPTION.OK_CAPTION
Private Sub cmdGetCaptionById_Click()
Dim Buffer As String * BufferMax
Dim Instance As Long
Dim sLen As Long
Instance = LoadLibrary(lPath)
sLen = LoadString(Instance, cIndex, Buffer, BufferMax)
If sLen <> 0 Then
Caption = Left(Buffer, sLen)
MsgBox Caption, vbInformation
Else
MsgBox "No caption found, error " & Err.LastDllError, vbCritical
End If
End Sub
我不能設法進入if塊,就好像他沒有找到STRINGTABLE。
詳細的錯誤:
ERROR_RESOURCE_DATA_NOT_FOUND
1812 (0x714)
The specified image file did not contain a resource section.
預期串輸出,基於CINDEX(在這種情況下,OK_CAPTION,其具有ID = 800):
Caption = "Ok"
幫助十分讚賞!
你只是陳述一個事實。就像錯誤消息告訴你的,更高版本的Windows不再在user32.dll中包含這些字符串。依靠這些實施細節總是一個非常糟糕的做法,雞回家棲息。 –
我實際上使用ResourceViewer .NET打開了user32.dll,我發現它們都是非常奇怪的。 –
修正了它,LoadLibrary應該返回LongPtr,而不是Long。 –