-1

我想知道为什么我的 updateresource 不起作用。它始终是资本,不会更新/替换资源,只会添加一个。

这是我在 VB.NET 中的代码

Imports System.Runtime.InteropServices

Public Class Form1

Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    Dim strMiniConfig As String
    strMiniConfig = TextBox1.Text

    Dim encoder As New System.Text.UnicodeEncoding()

    WriteResource("UpdateMyRes.exe", encoder.GetBytes(strMiniConfig))

    MsgBox("Resources are now updated.", vbOKOnly + MsgBoxStyle.Information)

End Sub


<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function UpdateResource(ByVal hUpdate As IntPtr, ByVal lpType As String, ByVal lpName As String, ByVal wLanguage As UShort, ByVal lpData As IntPtr, ByVal cbData As UInteger) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function BeginUpdateResource(ByVal pFileName As String, <MarshalAs(UnmanagedType.Bool)> ByVal bDeleteExistingResources As Boolean) As IntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function EndUpdateResource(ByVal hUpdate As IntPtr, ByVal fDiscard As Boolean) As Boolean
End Function

Public Function WriteResource(ByVal filename As String, ByVal bytes As Byte()) As Boolean
    Try
        Dim handle As IntPtr = BeginUpdateResource(filename, False)
        Dim file1 As Byte() = bytes
        Dim fileptr As IntPtr = ToPtr(file1)
        Dim res As Boolean = UpdateResource(handle, "RCData", "CONFIG", 1, fileptr, System.Convert.ToUInt16(file1.Length))
        EndUpdateResource(handle, False)
    Catch ex As Exception
        Return False
    End Try
    Return True

End Function

Private Function ToPtr(ByVal data As Object) As IntPtr
    Dim h As GCHandle = GCHandle.Alloc(data, GCHandleType.Pinned)
    Dim ptr As IntPtr
    Try
        ptr = h.AddrOfPinnedObject()
    Finally
        h.Free()
    End Try
    Return ptr

End Function
End Class

这应该替换 RCData\CONFIG 中的资源,但它总是添加名称为 RCDATA\CONFIG 的资源?这是为什么?

这是 C++ 中的相同代码:

WCHAR * newD = L"I am updated resource at the RCData\CONFIG";
HANDLE hUpdate = BeginUpdateResourceW(L"Stub.exe", false);
UpdateResourceW(hUpdate, MAKEINTRESOURCEW(10), L"CONFIG", 1, newD, wcslen(newD)*2);
EndUpdateResource(hUpdate, false);
4

1 回答 1

0

现在通过使用不同的 API 来修复它。

我会尽可能关闭它。

于 2013-10-05T16:52:32.060 回答