SignerTimeStamp

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

HRESULT SignerTimeStamp(
    SIGNER_SUBJECT_INFO* pSubjectInfo,
    LPCWSTR pwszHttpTimeStamp,
    CRYPT_ATTRIBUTES* psRequest,   // optional
    void* pSipData   // optional
);

<DllImport("Mssign32.dll", ExactSpelling:=True)>
Public Shared Function SignerTimeStamp(
    pSubjectInfo As IntPtr,   ' SIGNER_SUBJECT_INFO*
    <MarshalAs(UnmanagedType.LPWStr)> pwszHttpTimeStamp As String,   ' LPCWSTR
    psRequest As IntPtr,   ' CRYPT_ATTRIBUTES* optional
    pSipData As IntPtr   ' void* optional
) As Integer
End Function

' pSubjectInfo : SIGNER_SUBJECT_INFO*
' pwszHttpTimeStamp : LPCWSTR
' psRequest : CRYPT_ATTRIBUTES* optional
' pSipData : void* optional
Declare PtrSafe Function SignerTimeStamp Lib "mssign32" ( _
    ByVal pSubjectInfo As LongPtr, _
    ByVal pwszHttpTimeStamp As LongPtr, _
    ByVal psRequest As LongPtr, _
    ByVal pSipData As LongPtr) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

SignerTimeStamp = ctypes.windll.mssign32.SignerTimeStamp
SignerTimeStamp.restype = ctypes.c_int
SignerTimeStamp.argtypes = [
    ctypes.c_void_p,  # pSubjectInfo : SIGNER_SUBJECT_INFO*
    wintypes.LPCWSTR,  # pwszHttpTimeStamp : LPCWSTR
    ctypes.c_void_p,  # psRequest : CRYPT_ATTRIBUTES* optional
    ctypes.POINTER(None),  # pSipData : void* optional
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('Mssign32.dll')
SignerTimeStamp = Fiddle::Function.new(
  lib['SignerTimeStamp'],
  [
    Fiddle::TYPE_VOIDP,  # pSubjectInfo : SIGNER_SUBJECT_INFO*
    Fiddle::TYPE_VOIDP,  # pwszHttpTimeStamp : LPCWSTR
    Fiddle::TYPE_VOIDP,  # psRequest : CRYPT_ATTRIBUTES* optional
    Fiddle::TYPE_VOIDP,  # pSipData : void* optional
  ],
  Fiddle::TYPE_INT)

#[link(name = "mssign32")]
extern "system" {
    fn SignerTimeStamp(
        pSubjectInfo: *mut SIGNER_SUBJECT_INFO,  // SIGNER_SUBJECT_INFO*
        pwszHttpTimeStamp: *const u16,  // LPCWSTR
        psRequest: *mut CRYPT_ATTRIBUTES,  // CRYPT_ATTRIBUTES* optional
        pSipData: *mut ()  // void* optional
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("Mssign32.dll")]
public static extern int SignerTimeStamp(IntPtr pSubjectInfo, [MarshalAs(UnmanagedType.LPWStr)] string pwszHttpTimeStamp, IntPtr psRequest, IntPtr pSipData);
"@
$api = Add-Type -MemberDefinition $sig -Name 'Mssign32_SignerTimeStamp' -Namespace Win32 -PassThru
# $api::SignerTimeStamp(pSubjectInfo, pwszHttpTimeStamp, psRequest, pSipData)

#uselib "Mssign32.dll"
#func global SignerTimeStamp "SignerTimeStamp" sptr, sptr, sptr, sptr
; SignerTimeStamp varptr(pSubjectInfo), pwszHttpTimeStamp, varptr(psRequest), pSipData   ; 戻り値は stat
; pSubjectInfo : SIGNER_SUBJECT_INFO* -> "sptr"
; pwszHttpTimeStamp : LPCWSTR -> "sptr"
; psRequest : CRYPT_ATTRIBUTES* optional -> "sptr"
; pSipData : void* optional -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "Mssign32.dll"
#cfunc global SignerTimeStamp "SignerTimeStamp" var, wstr, var, sptr
; res = SignerTimeStamp(pSubjectInfo, pwszHttpTimeStamp, psRequest, pSipData)
; pSubjectInfo : SIGNER_SUBJECT_INFO* -> "var"
; pwszHttpTimeStamp : LPCWSTR -> "wstr"
; psRequest : CRYPT_ATTRIBUTES* optional -> "var"
; pSipData : void* optional -> "sptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; HRESULT SignerTimeStamp(SIGNER_SUBJECT_INFO* pSubjectInfo, LPCWSTR pwszHttpTimeStamp, CRYPT_ATTRIBUTES* psRequest, void* pSipData)
#uselib "Mssign32.dll"
#cfunc global SignerTimeStamp "SignerTimeStamp" var, wstr, var, intptr
; res = SignerTimeStamp(pSubjectInfo, pwszHttpTimeStamp, psRequest, pSipData)
; pSubjectInfo : SIGNER_SUBJECT_INFO* -> "var"
; pwszHttpTimeStamp : LPCWSTR -> "wstr"
; psRequest : CRYPT_ATTRIBUTES* optional -> "var"
; pSipData : void* optional -> "intptr"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	mssign32 = windows.NewLazySystemDLL("Mssign32.dll")
	procSignerTimeStamp = mssign32.NewProc("SignerTimeStamp")
)

// pSubjectInfo (SIGNER_SUBJECT_INFO*), pwszHttpTimeStamp (LPCWSTR), psRequest (CRYPT_ATTRIBUTES* optional), pSipData (void* optional)
r1, _, err := procSignerTimeStamp.Call(
	uintptr(pSubjectInfo),
	uintptr(unsafe.Pointer(windows.StringToUTF16Ptr(pwszHttpTimeStamp))),
	uintptr(psRequest),
	uintptr(pSipData),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function SignerTimeStamp(
  pSubjectInfo: Pointer;   // SIGNER_SUBJECT_INFO*
  pwszHttpTimeStamp: PWideChar;   // LPCWSTR
  psRequest: Pointer;   // CRYPT_ATTRIBUTES* optional
  pSipData: Pointer   // void* optional
): Integer; stdcall;
  external 'Mssign32.dll' name 'SignerTimeStamp';

result := DllCall("Mssign32\SignerTimeStamp"
    , "Ptr", pSubjectInfo   ; SIGNER_SUBJECT_INFO*
    , "WStr", pwszHttpTimeStamp   ; LPCWSTR
    , "Ptr", psRequest   ; CRYPT_ATTRIBUTES* optional
    , "Ptr", pSipData   ; void* optional
    , "Int")   ; return: HRESULT

●SignerTimeStamp(pSubjectInfo, pwszHttpTimeStamp, psRequest, pSipData) = DLL("Mssign32.dll", "int SignerTimeStamp(void*, char*, void*, void*)")
# 呼び出し: SignerTimeStamp(pSubjectInfo, pwszHttpTimeStamp, psRequest, pSipData)
# pSubjectInfo : SIGNER_SUBJECT_INFO* -> "void*"
# pwszHttpTimeStamp : LPCWSTR -> "char*"
# psRequest : CRYPT_ATTRIBUTES* optional -> "void*"
# pSipData : void* optional -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。