WHvQueryGpaRangeDirtyBitmap

// WinHvPlatform.dll
#include <windows.h>

HRESULT WHvQueryGpaRangeDirtyBitmap(
    WHV_PARTITION_HANDLE Partition,
    ULONGLONG GuestAddress,
    ULONGLONG RangeSizeInBytes,
    ULONGLONG* Bitmap,   // optional
    DWORD BitmapSizeInBytes
);

<DllImport("WinHvPlatform.dll", ExactSpelling:=True)>
Public Shared Function WHvQueryGpaRangeDirtyBitmap(
    Partition As IntPtr,   ' WHV_PARTITION_HANDLE
    GuestAddress As ULong,   ' ULONGLONG
    RangeSizeInBytes As ULong,   ' ULONGLONG
    Bitmap As IntPtr,   ' ULONGLONG* optional, out
    BitmapSizeInBytes As UInteger   ' DWORD
) As Integer
End Function

' Partition : WHV_PARTITION_HANDLE
' GuestAddress : ULONGLONG
' RangeSizeInBytes : ULONGLONG
' Bitmap : ULONGLONG* optional, out
' BitmapSizeInBytes : DWORD
Declare PtrSafe Function WHvQueryGpaRangeDirtyBitmap Lib "winhvplatform" ( _
    ByVal Partition As LongPtr, _
    ByVal GuestAddress As LongLong, _
    ByVal RangeSizeInBytes As LongLong, _
    ByVal Bitmap As LongPtr, _
    ByVal BitmapSizeInBytes As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

WHvQueryGpaRangeDirtyBitmap = ctypes.windll.winhvplatform.WHvQueryGpaRangeDirtyBitmap
WHvQueryGpaRangeDirtyBitmap.restype = ctypes.c_int
WHvQueryGpaRangeDirtyBitmap.argtypes = [
    ctypes.c_ssize_t,  # Partition : WHV_PARTITION_HANDLE
    ctypes.c_ulonglong,  # GuestAddress : ULONGLONG
    ctypes.c_ulonglong,  # RangeSizeInBytes : ULONGLONG
    ctypes.POINTER(ctypes.c_ulonglong),  # Bitmap : ULONGLONG* optional, out
    wintypes.DWORD,  # BitmapSizeInBytes : DWORD
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('WinHvPlatform.dll')
WHvQueryGpaRangeDirtyBitmap = Fiddle::Function.new(
  lib['WHvQueryGpaRangeDirtyBitmap'],
  [
    Fiddle::TYPE_INTPTR_T,  # Partition : WHV_PARTITION_HANDLE
    -Fiddle::TYPE_LONG_LONG,  # GuestAddress : ULONGLONG
    -Fiddle::TYPE_LONG_LONG,  # RangeSizeInBytes : ULONGLONG
    Fiddle::TYPE_VOIDP,  # Bitmap : ULONGLONG* optional, out
    -Fiddle::TYPE_INT,  # BitmapSizeInBytes : DWORD
  ],
  Fiddle::TYPE_INT)

#[link(name = "winhvplatform")]
extern "system" {
    fn WHvQueryGpaRangeDirtyBitmap(
        Partition: isize,  // WHV_PARTITION_HANDLE
        GuestAddress: u64,  // ULONGLONG
        RangeSizeInBytes: u64,  // ULONGLONG
        Bitmap: *mut u64,  // ULONGLONG* optional, out
        BitmapSizeInBytes: u32  // DWORD
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("WinHvPlatform.dll")]
public static extern int WHvQueryGpaRangeDirtyBitmap(IntPtr Partition, ulong GuestAddress, ulong RangeSizeInBytes, IntPtr Bitmap, uint BitmapSizeInBytes);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WinHvPlatform_WHvQueryGpaRangeDirtyBitmap' -Namespace Win32 -PassThru
# $api::WHvQueryGpaRangeDirtyBitmap(Partition, GuestAddress, RangeSizeInBytes, Bitmap, BitmapSizeInBytes)

#uselib "WinHvPlatform.dll"
#func global WHvQueryGpaRangeDirtyBitmap "WHvQueryGpaRangeDirtyBitmap" sptr, sptr, sptr, sptr, sptr
; WHvQueryGpaRangeDirtyBitmap Partition, GuestAddress, RangeSizeInBytes, varptr(Bitmap), BitmapSizeInBytes   ; 戻り値は stat
; Partition : WHV_PARTITION_HANDLE -> "sptr"
; GuestAddress : ULONGLONG -> "sptr"
; RangeSizeInBytes : ULONGLONG -> "sptr"
; Bitmap : ULONGLONG* optional, out -> "sptr"
; BitmapSizeInBytes : DWORD -> "sptr"
; ※HSP3.7は int64 引数(64bit値渡し)に非対応です。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "WinHvPlatform.dll"
#cfunc global WHvQueryGpaRangeDirtyBitmap "WHvQueryGpaRangeDirtyBitmap" sptr, int64, int64, var, int
; res = WHvQueryGpaRangeDirtyBitmap(Partition, GuestAddress, RangeSizeInBytes, Bitmap, BitmapSizeInBytes)
; Partition : WHV_PARTITION_HANDLE -> "sptr"
; GuestAddress : ULONGLONG -> "int64"
; RangeSizeInBytes : ULONGLONG -> "int64"
; Bitmap : ULONGLONG* optional, out -> "var"
; BitmapSizeInBytes : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
; ※int64 引数の DLL 値渡しは x64 ランタイム(hsp3_64)のみ対応(x86 は未対応)。

; HRESULT WHvQueryGpaRangeDirtyBitmap(WHV_PARTITION_HANDLE Partition, ULONGLONG GuestAddress, ULONGLONG RangeSizeInBytes, ULONGLONG* Bitmap, DWORD BitmapSizeInBytes)
#uselib "WinHvPlatform.dll"
#cfunc global WHvQueryGpaRangeDirtyBitmap "WHvQueryGpaRangeDirtyBitmap" intptr, int64, int64, var, int
; res = WHvQueryGpaRangeDirtyBitmap(Partition, GuestAddress, RangeSizeInBytes, Bitmap, BitmapSizeInBytes)
; Partition : WHV_PARTITION_HANDLE -> "intptr"
; GuestAddress : ULONGLONG -> "int64"
; RangeSizeInBytes : ULONGLONG -> "int64"
; Bitmap : ULONGLONG* optional, out -> "var"
; BitmapSizeInBytes : DWORD -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

import (
	"golang.org/x/sys/windows"
	"unsafe"
)

var (
	winhvplatform = windows.NewLazySystemDLL("WinHvPlatform.dll")
	procWHvQueryGpaRangeDirtyBitmap = winhvplatform.NewProc("WHvQueryGpaRangeDirtyBitmap")
)

// Partition (WHV_PARTITION_HANDLE), GuestAddress (ULONGLONG), RangeSizeInBytes (ULONGLONG), Bitmap (ULONGLONG* optional, out), BitmapSizeInBytes (DWORD)
r1, _, err := procWHvQueryGpaRangeDirtyBitmap.Call(
	uintptr(Partition),
	uintptr(GuestAddress),
	uintptr(RangeSizeInBytes),
	uintptr(Bitmap),
	uintptr(BitmapSizeInBytes),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function WHvQueryGpaRangeDirtyBitmap(
  Partition: NativeInt;   // WHV_PARTITION_HANDLE
  GuestAddress: UInt64;   // ULONGLONG
  RangeSizeInBytes: UInt64;   // ULONGLONG
  Bitmap: Pointer;   // ULONGLONG* optional, out
  BitmapSizeInBytes: DWORD   // DWORD
): Integer; stdcall;
  external 'WinHvPlatform.dll' name 'WHvQueryGpaRangeDirtyBitmap';

result := DllCall("WinHvPlatform\WHvQueryGpaRangeDirtyBitmap"
    , "Ptr", Partition   ; WHV_PARTITION_HANDLE
    , "Int64", GuestAddress   ; ULONGLONG
    , "Int64", RangeSizeInBytes   ; ULONGLONG
    , "Ptr", Bitmap   ; ULONGLONG* optional, out
    , "UInt", BitmapSizeInBytes   ; DWORD
    , "Int")   ; return: HRESULT

●WHvQueryGpaRangeDirtyBitmap(Partition, GuestAddress, RangeSizeInBytes, Bitmap, BitmapSizeInBytes) = DLL("WinHvPlatform.dll", "int WHvQueryGpaRangeDirtyBitmap(int, qword, qword, void*, dword)")
# 呼び出し: WHvQueryGpaRangeDirtyBitmap(Partition, GuestAddress, RangeSizeInBytes, Bitmap, BitmapSizeInBytes)
# Partition : WHV_PARTITION_HANDLE -> "int"
# GuestAddress : ULONGLONG -> "qword"
# RangeSizeInBytes : ULONGLONG -> "qword"
# Bitmap : ULONGLONG* optional, out -> "void*"
# BitmapSizeInBytes : DWORD -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。