WriteProcessMemory が VB で書き込みに失敗した場合の解決策

2年 ago
海斗, 葵
2 minutes

VB で WriteProcessMemory 関数を使用して書き込みを行っても成功しない場合は、次のような理由と解決策が考えられます。

  1. 権限の問題: 現在のユーザーに、ターゲットプロセスに書き込むために十分な権限があることを確認してください。管理者権限が必要な場合は、VB プログラムを管理者として実行してみてください。
  2. ターゲットプロセスのハンドルの問題：正しいターゲットプロセスのハンドルを使用しているか確認してください。ターゲットプロセスのハンドルは、OpenProcess関数を使用して取得できます。
  3. メモリ保護問題：対象プロセスのメモリは保護されている可能性が高く、直接書き込むことができません。メモリ保護属性を変更するには VirtualProtectEx 関数を使用し、その後に書き込み操作を行うことができます。
  4. データ長の書き込みエラー： 書き込みデータの長さが適切であることを確認します。データの長さがターゲットメモリ領域のサイズを超えている場合は、書き込みが失敗する可能性があります。

以下は、WriteProcessMemory関数をデータの書き込みに使用するコードサンプルです。

Imports System.Runtime.InteropServices

Public Class Form1

    '定义常量和API函数
    Private Const PROCESS_ALL_ACCESS As Integer = &H1F0FFF
    Private Const WM_CLOSE As Integer = &H10

    <DllImport("kernel32.dll")>
    Private Shared Function OpenProcess(ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As IntPtr
    End Function

    <DllImport("kernel32.dll", SetLastError:=True)>
    Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As Byte(), ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Boolean
    End Function

    <DllImport("kernel32.dll")>
    Private Shared Function CloseHandle(ByVal hObject As IntPtr) As Boolean
    End Function

    '写入数据的函数
    Private Sub WriteData(ByVal processId As Integer, ByVal address As IntPtr, ByVal data As Byte())
        '打开目标进程
        Dim processHandle As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, processId)
        If processHandle = IntPtr.Zero Then
            MessageBox.Show("无法打开目标进程")
            Return
        End If

        '写入数据
        Dim bytesWritten As Integer = 0
        Dim success As Boolean = WriteProcessMemory(processHandle, address, data, data.Length, bytesWritten)
        If Not success Then
            MessageBox.Show("写入数据失败")
        End If

        '关闭进程句柄
        CloseHandle(processHandle)
    End Sub

    '按钮点击事件
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '示例：写入一个整数值到目标进程的指定地址
        Dim processId As Integer = 1234 '目标进程ID
        Dim address As IntPtr = New IntPtr(&H12345678) '目标进程中的地址
        Dim value As Integer = 100 '要写入的值

        Dim data As Byte() = BitConverter.GetBytes(value)
        WriteData(processId, address, data)
    End Sub
End Class

お役に立てれば幸いです！

bannerAds