WinHttpQueryHeadersEx

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

DWORD WinHttpQueryHeadersEx(
    void* hRequest,
    DWORD dwInfoLevel,
    ULONGLONG ullFlags,
    DWORD uiCodePage,
    DWORD* pdwIndex,   // optional
    WINHTTP_HEADER_NAME* pHeaderName,   // optional
    void* pBuffer,   // optional
    DWORD* pdwBufferLength,
    WINHTTP_EXTENDED_HEADER** ppHeaders,   // optional
    DWORD* pdwHeadersCount
);

<DllImport("WINHTTP.dll", ExactSpelling:=True)>
Public Shared Function WinHttpQueryHeadersEx(
    hRequest As IntPtr,   ' void*
    dwInfoLevel As UInteger,   ' DWORD
    ullFlags As ULong,   ' ULONGLONG
    uiCodePage As UInteger,   ' DWORD
    pdwIndex As IntPtr,   ' DWORD* optional, in/out
    pHeaderName As IntPtr,   ' WINHTTP_HEADER_NAME* optional
    pBuffer As IntPtr,   ' void* optional, out
    ByRef pdwBufferLength As UInteger,   ' DWORD* in/out
    ppHeaders As IntPtr,   ' WINHTTP_EXTENDED_HEADER** optional, out
    <Out> ByRef pdwHeadersCount As UInteger   ' DWORD* out
) As UInteger
End Function

' hRequest : void*
' dwInfoLevel : DWORD
' ullFlags : ULONGLONG
' uiCodePage : DWORD
' pdwIndex : DWORD* optional, in/out
' pHeaderName : WINHTTP_HEADER_NAME* optional
' pBuffer : void* optional, out
' pdwBufferLength : DWORD* in/out
' ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out
' pdwHeadersCount : DWORD* out
Declare PtrSafe Function WinHttpQueryHeadersEx Lib "winhttp" ( _
    ByVal hRequest As LongPtr, _
    ByVal dwInfoLevel As Long, _
    ByVal ullFlags As LongLong, _
    ByVal uiCodePage As Long, _
    ByVal pdwIndex As LongPtr, _
    ByVal pHeaderName As LongPtr, _
    ByVal pBuffer As LongPtr, _
    ByRef pdwBufferLength As Long, _
    ByVal ppHeaders As LongPtr, _
    ByRef pdwHeadersCount As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

WinHttpQueryHeadersEx = ctypes.windll.winhttp.WinHttpQueryHeadersEx
WinHttpQueryHeadersEx.restype = wintypes.DWORD
WinHttpQueryHeadersEx.argtypes = [
    ctypes.POINTER(None),  # hRequest : void*
    wintypes.DWORD,  # dwInfoLevel : DWORD
    ctypes.c_ulonglong,  # ullFlags : ULONGLONG
    wintypes.DWORD,  # uiCodePage : DWORD
    ctypes.POINTER(wintypes.DWORD),  # pdwIndex : DWORD* optional, in/out
    ctypes.c_void_p,  # pHeaderName : WINHTTP_HEADER_NAME* optional
    ctypes.POINTER(None),  # pBuffer : void* optional, out
    ctypes.POINTER(wintypes.DWORD),  # pdwBufferLength : DWORD* in/out
    ctypes.c_void_p,  # ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out
    ctypes.POINTER(wintypes.DWORD),  # pdwHeadersCount : DWORD* out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('WINHTTP.dll')
WinHttpQueryHeadersEx = Fiddle::Function.new(
  lib['WinHttpQueryHeadersEx'],
  [
    Fiddle::TYPE_VOIDP,  # hRequest : void*
    -Fiddle::TYPE_INT,  # dwInfoLevel : DWORD
    -Fiddle::TYPE_LONG_LONG,  # ullFlags : ULONGLONG
    -Fiddle::TYPE_INT,  # uiCodePage : DWORD
    Fiddle::TYPE_VOIDP,  # pdwIndex : DWORD* optional, in/out
    Fiddle::TYPE_VOIDP,  # pHeaderName : WINHTTP_HEADER_NAME* optional
    Fiddle::TYPE_VOIDP,  # pBuffer : void* optional, out
    Fiddle::TYPE_VOIDP,  # pdwBufferLength : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out
    Fiddle::TYPE_VOIDP,  # pdwHeadersCount : DWORD* out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "winhttp")]
extern "system" {
    fn WinHttpQueryHeadersEx(
        hRequest: *mut (),  // void*
        dwInfoLevel: u32,  // DWORD
        ullFlags: u64,  // ULONGLONG
        uiCodePage: u32,  // DWORD
        pdwIndex: *mut u32,  // DWORD* optional, in/out
        pHeaderName: *mut WINHTTP_HEADER_NAME,  // WINHTTP_HEADER_NAME* optional
        pBuffer: *mut (),  // void* optional, out
        pdwBufferLength: *mut u32,  // DWORD* in/out
        ppHeaders: *mut *mut WINHTTP_EXTENDED_HEADER,  // WINHTTP_EXTENDED_HEADER** optional, out
        pdwHeadersCount: *mut u32  // DWORD* out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("WINHTTP.dll")]
public static extern uint WinHttpQueryHeadersEx(IntPtr hRequest, uint dwInfoLevel, ulong ullFlags, uint uiCodePage, IntPtr pdwIndex, IntPtr pHeaderName, IntPtr pBuffer, ref uint pdwBufferLength, IntPtr ppHeaders, out uint pdwHeadersCount);
"@
$api = Add-Type -MemberDefinition $sig -Name 'WINHTTP_WinHttpQueryHeadersEx' -Namespace Win32 -PassThru
# $api::WinHttpQueryHeadersEx(hRequest, dwInfoLevel, ullFlags, uiCodePage, pdwIndex, pHeaderName, pBuffer, pdwBufferLength, ppHeaders, pdwHeadersCount)

#uselib "WINHTTP.dll"
#func global WinHttpQueryHeadersEx "WinHttpQueryHeadersEx" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; WinHttpQueryHeadersEx hRequest, dwInfoLevel, ullFlags, uiCodePage, varptr(pdwIndex), varptr(pHeaderName), pBuffer, varptr(pdwBufferLength), varptr(ppHeaders), varptr(pdwHeadersCount)   ; 戻り値は stat
; hRequest : void* -> "sptr"
; dwInfoLevel : DWORD -> "sptr"
; ullFlags : ULONGLONG -> "sptr"
; uiCodePage : DWORD -> "sptr"
; pdwIndex : DWORD* optional, in/out -> "sptr"
; pHeaderName : WINHTTP_HEADER_NAME* optional -> "sptr"
; pBuffer : void* optional, out -> "sptr"
; pdwBufferLength : DWORD* in/out -> "sptr"
; ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out -> "sptr"
; pdwHeadersCount : DWORD* out -> "sptr"
; ※HSP3.7は int64 引数(64bit値渡し)に非対応です。
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "WINHTTP.dll"
#cfunc global WinHttpQueryHeadersEx "WinHttpQueryHeadersEx" sptr, int, int64, int, var, var, sptr, var, var, var
; res = WinHttpQueryHeadersEx(hRequest, dwInfoLevel, ullFlags, uiCodePage, pdwIndex, pHeaderName, pBuffer, pdwBufferLength, ppHeaders, pdwHeadersCount)
; hRequest : void* -> "sptr"
; dwInfoLevel : DWORD -> "int"
; ullFlags : ULONGLONG -> "int64"
; uiCodePage : DWORD -> "int"
; pdwIndex : DWORD* optional, in/out -> "var"
; pHeaderName : WINHTTP_HEADER_NAME* optional -> "var"
; pBuffer : void* optional, out -> "sptr"
; pdwBufferLength : DWORD* in/out -> "var"
; ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out -> "var"
; pdwHeadersCount : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。
; ※int64 引数の DLL 値渡しは x64 ランタイム(hsp3_64)のみ対応(x86 は未対応)。

; DWORD WinHttpQueryHeadersEx(void* hRequest, DWORD dwInfoLevel, ULONGLONG ullFlags, DWORD uiCodePage, DWORD* pdwIndex, WINHTTP_HEADER_NAME* pHeaderName, void* pBuffer, DWORD* pdwBufferLength, WINHTTP_EXTENDED_HEADER** ppHeaders, DWORD* pdwHeadersCount)
#uselib "WINHTTP.dll"
#cfunc global WinHttpQueryHeadersEx "WinHttpQueryHeadersEx" intptr, int, int64, int, var, var, intptr, var, var, var
; res = WinHttpQueryHeadersEx(hRequest, dwInfoLevel, ullFlags, uiCodePage, pdwIndex, pHeaderName, pBuffer, pdwBufferLength, ppHeaders, pdwHeadersCount)
; hRequest : void* -> "intptr"
; dwInfoLevel : DWORD -> "int"
; ullFlags : ULONGLONG -> "int64"
; uiCodePage : DWORD -> "int"
; pdwIndex : DWORD* optional, in/out -> "var"
; pHeaderName : WINHTTP_HEADER_NAME* optional -> "var"
; pBuffer : void* optional, out -> "intptr"
; pdwBufferLength : DWORD* in/out -> "var"
; ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out -> "var"
; pdwHeadersCount : DWORD* out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	winhttp = windows.NewLazySystemDLL("WINHTTP.dll")
	procWinHttpQueryHeadersEx = winhttp.NewProc("WinHttpQueryHeadersEx")
)

// hRequest (void*), dwInfoLevel (DWORD), ullFlags (ULONGLONG), uiCodePage (DWORD), pdwIndex (DWORD* optional, in/out), pHeaderName (WINHTTP_HEADER_NAME* optional), pBuffer (void* optional, out), pdwBufferLength (DWORD* in/out), ppHeaders (WINHTTP_EXTENDED_HEADER** optional, out), pdwHeadersCount (DWORD* out)
r1, _, err := procWinHttpQueryHeadersEx.Call(
	uintptr(hRequest),
	uintptr(dwInfoLevel),
	uintptr(ullFlags),
	uintptr(uiCodePage),
	uintptr(pdwIndex),
	uintptr(pHeaderName),
	uintptr(pBuffer),
	uintptr(pdwBufferLength),
	uintptr(ppHeaders),
	uintptr(pdwHeadersCount),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function WinHttpQueryHeadersEx(
  hRequest: Pointer;   // void*
  dwInfoLevel: DWORD;   // DWORD
  ullFlags: UInt64;   // ULONGLONG
  uiCodePage: DWORD;   // DWORD
  pdwIndex: Pointer;   // DWORD* optional, in/out
  pHeaderName: Pointer;   // WINHTTP_HEADER_NAME* optional
  pBuffer: Pointer;   // void* optional, out
  pdwBufferLength: Pointer;   // DWORD* in/out
  ppHeaders: Pointer;   // WINHTTP_EXTENDED_HEADER** optional, out
  pdwHeadersCount: Pointer   // DWORD* out
): DWORD; stdcall;
  external 'WINHTTP.dll' name 'WinHttpQueryHeadersEx';

result := DllCall("WINHTTP\WinHttpQueryHeadersEx"
    , "Ptr", hRequest   ; void*
    , "UInt", dwInfoLevel   ; DWORD
    , "Int64", ullFlags   ; ULONGLONG
    , "UInt", uiCodePage   ; DWORD
    , "Ptr", pdwIndex   ; DWORD* optional, in/out
    , "Ptr", pHeaderName   ; WINHTTP_HEADER_NAME* optional
    , "Ptr", pBuffer   ; void* optional, out
    , "Ptr", pdwBufferLength   ; DWORD* in/out
    , "Ptr", ppHeaders   ; WINHTTP_EXTENDED_HEADER** optional, out
    , "Ptr", pdwHeadersCount   ; DWORD* out
    , "UInt")   ; return: DWORD

●WinHttpQueryHeadersEx(hRequest, dwInfoLevel, ullFlags, uiCodePage, pdwIndex, pHeaderName, pBuffer, pdwBufferLength, ppHeaders, pdwHeadersCount) = DLL("WINHTTP.dll", "dword WinHttpQueryHeadersEx(void*, dword, qword, dword, void*, void*, void*, void*, void*, void*)")
# 呼び出し: WinHttpQueryHeadersEx(hRequest, dwInfoLevel, ullFlags, uiCodePage, pdwIndex, pHeaderName, pBuffer, pdwBufferLength, ppHeaders, pdwHeadersCount)
# hRequest : void* -> "void*"
# dwInfoLevel : DWORD -> "dword"
# ullFlags : ULONGLONG -> "qword"
# uiCodePage : DWORD -> "dword"
# pdwIndex : DWORD* optional, in/out -> "void*"
# pHeaderName : WINHTTP_HEADER_NAME* optional -> "void*"
# pBuffer : void* optional, out -> "void*"
# pdwBufferLength : DWORD* in/out -> "void*"
# ppHeaders : WINHTTP_EXTENDED_HEADER** optional, out -> "void*"
# pdwHeadersCount : DWORD* out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。