CredUIPromptForWindowsCredentialsA

// credui.dll  (ANSI / -A)
#include <windows.h>

DWORD CredUIPromptForWindowsCredentialsA(
    CREDUI_INFOA* pUiInfo,   // optional
    DWORD dwAuthError,
    DWORD* pulAuthPackage,
    const void* pvInAuthBuffer,   // optional
    DWORD ulInAuthBufferSize,
    void** ppvOutAuthBuffer,
    DWORD* pulOutAuthBufferSize,
    BOOL* pfSave,   // optional
    CREDUIWIN_FLAGS dwFlags
);

<DllImport("credui.dll", CharSet:=CharSet.Ansi, ExactSpelling:=True)>
Public Shared Function CredUIPromptForWindowsCredentialsA(
    pUiInfo As IntPtr,   ' CREDUI_INFOA* optional
    dwAuthError As UInteger,   ' DWORD
    ByRef pulAuthPackage As UInteger,   ' DWORD* in/out
    pvInAuthBuffer As IntPtr,   ' void* optional
    ulInAuthBufferSize As UInteger,   ' DWORD
    ppvOutAuthBuffer As IntPtr,   ' void** out
    <Out> ByRef pulOutAuthBufferSize As UInteger,   ' DWORD* out
    pfSave As IntPtr,   ' BOOL* optional, in/out
    dwFlags As UInteger   ' CREDUIWIN_FLAGS
) As UInteger
End Function

' pUiInfo : CREDUI_INFOA* optional
' dwAuthError : DWORD
' pulAuthPackage : DWORD* in/out
' pvInAuthBuffer : void* optional
' ulInAuthBufferSize : DWORD
' ppvOutAuthBuffer : void** out
' pulOutAuthBufferSize : DWORD* out
' pfSave : BOOL* optional, in/out
' dwFlags : CREDUIWIN_FLAGS
Declare PtrSafe Function CredUIPromptForWindowsCredentialsA Lib "credui" ( _
    ByVal pUiInfo As LongPtr, _
    ByVal dwAuthError As Long, _
    ByRef pulAuthPackage As Long, _
    ByVal pvInAuthBuffer As LongPtr, _
    ByVal ulInAuthBufferSize As Long, _
    ByVal ppvOutAuthBuffer As LongPtr, _
    ByRef pulOutAuthBufferSize As Long, _
    ByVal pfSave As LongPtr, _
    ByVal dwFlags As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

CredUIPromptForWindowsCredentialsA = ctypes.windll.credui.CredUIPromptForWindowsCredentialsA
CredUIPromptForWindowsCredentialsA.restype = wintypes.DWORD
CredUIPromptForWindowsCredentialsA.argtypes = [
    ctypes.c_void_p,  # pUiInfo : CREDUI_INFOA* optional
    wintypes.DWORD,  # dwAuthError : DWORD
    ctypes.POINTER(wintypes.DWORD),  # pulAuthPackage : DWORD* in/out
    ctypes.POINTER(None),  # pvInAuthBuffer : void* optional
    wintypes.DWORD,  # ulInAuthBufferSize : DWORD
    ctypes.c_void_p,  # ppvOutAuthBuffer : void** out
    ctypes.POINTER(wintypes.DWORD),  # pulOutAuthBufferSize : DWORD* out
    ctypes.c_void_p,  # pfSave : BOOL* optional, in/out
    wintypes.DWORD,  # dwFlags : CREDUIWIN_FLAGS
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('credui.dll')
CredUIPromptForWindowsCredentialsA = Fiddle::Function.new(
  lib['CredUIPromptForWindowsCredentialsA'],
  [
    Fiddle::TYPE_VOIDP,  # pUiInfo : CREDUI_INFOA* optional
    -Fiddle::TYPE_INT,  # dwAuthError : DWORD
    Fiddle::TYPE_VOIDP,  # pulAuthPackage : DWORD* in/out
    Fiddle::TYPE_VOIDP,  # pvInAuthBuffer : void* optional
    -Fiddle::TYPE_INT,  # ulInAuthBufferSize : DWORD
    Fiddle::TYPE_VOIDP,  # ppvOutAuthBuffer : void** out
    Fiddle::TYPE_VOIDP,  # pulOutAuthBufferSize : DWORD* out
    Fiddle::TYPE_VOIDP,  # pfSave : BOOL* optional, in/out
    -Fiddle::TYPE_INT,  # dwFlags : CREDUIWIN_FLAGS
  ],
  -Fiddle::TYPE_INT)

#[link(name = "credui")]
extern "system" {
    fn CredUIPromptForWindowsCredentialsA(
        pUiInfo: *mut CREDUI_INFOA,  // CREDUI_INFOA* optional
        dwAuthError: u32,  // DWORD
        pulAuthPackage: *mut u32,  // DWORD* in/out
        pvInAuthBuffer: *const (),  // void* optional
        ulInAuthBufferSize: u32,  // DWORD
        ppvOutAuthBuffer: *mut *mut (),  // void** out
        pulOutAuthBufferSize: *mut u32,  // DWORD* out
        pfSave: *mut i32,  // BOOL* optional, in/out
        dwFlags: u32  // CREDUIWIN_FLAGS
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("credui.dll", CharSet = CharSet.Ansi)]
public static extern uint CredUIPromptForWindowsCredentialsA(IntPtr pUiInfo, uint dwAuthError, ref uint pulAuthPackage, IntPtr pvInAuthBuffer, uint ulInAuthBufferSize, IntPtr ppvOutAuthBuffer, out uint pulOutAuthBufferSize, IntPtr pfSave, uint dwFlags);
"@
$api = Add-Type -MemberDefinition $sig -Name 'credui_CredUIPromptForWindowsCredentialsA' -Namespace Win32 -PassThru
# $api::CredUIPromptForWindowsCredentialsA(pUiInfo, dwAuthError, pulAuthPackage, pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, pulOutAuthBufferSize, pfSave, dwFlags)

#uselib "credui.dll"
#func global CredUIPromptForWindowsCredentialsA "CredUIPromptForWindowsCredentialsA" sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr, sptr
; CredUIPromptForWindowsCredentialsA varptr(pUiInfo), dwAuthError, varptr(pulAuthPackage), pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, varptr(pulOutAuthBufferSize), pfSave, dwFlags   ; 戻り値は stat
; pUiInfo : CREDUI_INFOA* optional -> "sptr"
; dwAuthError : DWORD -> "sptr"
; pulAuthPackage : DWORD* in/out -> "sptr"
; pvInAuthBuffer : void* optional -> "sptr"
; ulInAuthBufferSize : DWORD -> "sptr"
; ppvOutAuthBuffer : void** out -> "sptr"
; pulOutAuthBufferSize : DWORD* out -> "sptr"
; pfSave : BOOL* optional, in/out -> "sptr"
; dwFlags : CREDUIWIN_FLAGS -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "credui.dll"
#cfunc global CredUIPromptForWindowsCredentialsA "CredUIPromptForWindowsCredentialsA" var, int, var, sptr, int, sptr, var, int, int
; res = CredUIPromptForWindowsCredentialsA(pUiInfo, dwAuthError, pulAuthPackage, pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, pulOutAuthBufferSize, pfSave, dwFlags)
; pUiInfo : CREDUI_INFOA* optional -> "var"
; dwAuthError : DWORD -> "int"
; pulAuthPackage : DWORD* in/out -> "var"
; pvInAuthBuffer : void* optional -> "sptr"
; ulInAuthBufferSize : DWORD -> "int"
; ppvOutAuthBuffer : void** out -> "sptr"
; pulOutAuthBufferSize : DWORD* out -> "var"
; pfSave : BOOL* optional, in/out -> "int"
; dwFlags : CREDUIWIN_FLAGS -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; DWORD CredUIPromptForWindowsCredentialsA(CREDUI_INFOA* pUiInfo, DWORD dwAuthError, DWORD* pulAuthPackage, void* pvInAuthBuffer, DWORD ulInAuthBufferSize, void** ppvOutAuthBuffer, DWORD* pulOutAuthBufferSize, BOOL* pfSave, CREDUIWIN_FLAGS dwFlags)
#uselib "credui.dll"
#cfunc global CredUIPromptForWindowsCredentialsA "CredUIPromptForWindowsCredentialsA" var, int, var, intptr, int, intptr, var, int, int
; res = CredUIPromptForWindowsCredentialsA(pUiInfo, dwAuthError, pulAuthPackage, pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, pulOutAuthBufferSize, pfSave, dwFlags)
; pUiInfo : CREDUI_INFOA* optional -> "var"
; dwAuthError : DWORD -> "int"
; pulAuthPackage : DWORD* in/out -> "var"
; pvInAuthBuffer : void* optional -> "intptr"
; ulInAuthBufferSize : DWORD -> "int"
; ppvOutAuthBuffer : void** out -> "intptr"
; pulOutAuthBufferSize : DWORD* out -> "var"
; pfSave : BOOL* optional, in/out -> "int"
; dwFlags : CREDUIWIN_FLAGS -> "int"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	credui = windows.NewLazySystemDLL("credui.dll")
	procCredUIPromptForWindowsCredentialsA = credui.NewProc("CredUIPromptForWindowsCredentialsA")
)

// pUiInfo (CREDUI_INFOA* optional), dwAuthError (DWORD), pulAuthPackage (DWORD* in/out), pvInAuthBuffer (void* optional), ulInAuthBufferSize (DWORD), ppvOutAuthBuffer (void** out), pulOutAuthBufferSize (DWORD* out), pfSave (BOOL* optional, in/out), dwFlags (CREDUIWIN_FLAGS)
r1, _, err := procCredUIPromptForWindowsCredentialsA.Call(
	uintptr(pUiInfo),
	uintptr(dwAuthError),
	uintptr(pulAuthPackage),
	uintptr(pvInAuthBuffer),
	uintptr(ulInAuthBufferSize),
	uintptr(ppvOutAuthBuffer),
	uintptr(pulOutAuthBufferSize),
	uintptr(pfSave),
	uintptr(dwFlags),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function CredUIPromptForWindowsCredentialsA(
  pUiInfo: Pointer;   // CREDUI_INFOA* optional
  dwAuthError: DWORD;   // DWORD
  pulAuthPackage: Pointer;   // DWORD* in/out
  pvInAuthBuffer: Pointer;   // void* optional
  ulInAuthBufferSize: DWORD;   // DWORD
  ppvOutAuthBuffer: Pointer;   // void** out
  pulOutAuthBufferSize: Pointer;   // DWORD* out
  pfSave: Pointer;   // BOOL* optional, in/out
  dwFlags: DWORD   // CREDUIWIN_FLAGS
): DWORD; stdcall;
  external 'credui.dll' name 'CredUIPromptForWindowsCredentialsA';

result := DllCall("credui\CredUIPromptForWindowsCredentialsA"
    , "Ptr", pUiInfo   ; CREDUI_INFOA* optional
    , "UInt", dwAuthError   ; DWORD
    , "Ptr", pulAuthPackage   ; DWORD* in/out
    , "Ptr", pvInAuthBuffer   ; void* optional
    , "UInt", ulInAuthBufferSize   ; DWORD
    , "Ptr", ppvOutAuthBuffer   ; void** out
    , "Ptr", pulOutAuthBufferSize   ; DWORD* out
    , "Ptr", pfSave   ; BOOL* optional, in/out
    , "UInt", dwFlags   ; CREDUIWIN_FLAGS
    , "UInt")   ; return: DWORD

●CredUIPromptForWindowsCredentialsA(pUiInfo, dwAuthError, pulAuthPackage, pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, pulOutAuthBufferSize, pfSave, dwFlags) = DLL("credui.dll", "dword CredUIPromptForWindowsCredentialsA(void*, dword, void*, void*, dword, void*, void*, void*, dword)")
# 呼び出し: CredUIPromptForWindowsCredentialsA(pUiInfo, dwAuthError, pulAuthPackage, pvInAuthBuffer, ulInAuthBufferSize, ppvOutAuthBuffer, pulOutAuthBufferSize, pfSave, dwFlags)
# pUiInfo : CREDUI_INFOA* optional -> "void*"
# dwAuthError : DWORD -> "dword"
# pulAuthPackage : DWORD* in/out -> "void*"
# pvInAuthBuffer : void* optional -> "void*"
# ulInAuthBufferSize : DWORD -> "dword"
# ppvOutAuthBuffer : void** out -> "void*"
# pulOutAuthBufferSize : DWORD* out -> "void*"
# pfSave : BOOL* optional, in/out -> "void*"
# dwFlags : CREDUIWIN_FLAGS -> "dword"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。