WebSocketGetGlobalProperty

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

HRESULT WebSocketGetGlobalProperty(
    WEB_SOCKET_PROPERTY_TYPE eType,
    void* pvValue,
    DWORD* ulSize
);

<DllImport("websocket.dll", ExactSpelling:=True)>
Public Shared Function WebSocketGetGlobalProperty(
    eType As Integer,   ' WEB_SOCKET_PROPERTY_TYPE
    pvValue As IntPtr,   ' void* in/out
    ByRef ulSize As UInteger   ' DWORD* in/out
) As Integer
End Function

' eType : WEB_SOCKET_PROPERTY_TYPE
' pvValue : void* in/out
' ulSize : DWORD* in/out
Declare PtrSafe Function WebSocketGetGlobalProperty Lib "websocket" ( _
    ByVal eType As Long, _
    ByVal pvValue As LongPtr, _
    ByRef ulSize As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

WebSocketGetGlobalProperty = ctypes.windll.websocket.WebSocketGetGlobalProperty
WebSocketGetGlobalProperty.restype = ctypes.c_int
WebSocketGetGlobalProperty.argtypes = [
    ctypes.c_int,  # eType : WEB_SOCKET_PROPERTY_TYPE
    ctypes.POINTER(None),  # pvValue : void* in/out
    ctypes.POINTER(wintypes.DWORD),  # ulSize : DWORD* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('websocket.dll')
WebSocketGetGlobalProperty = Fiddle::Function.new(
  lib['WebSocketGetGlobalProperty'],
  [
    Fiddle::TYPE_INT,  # eType : WEB_SOCKET_PROPERTY_TYPE
    Fiddle::TYPE_VOIDP,  # pvValue : void* in/out
    Fiddle::TYPE_VOIDP,  # ulSize : DWORD* in/out
  ],
  Fiddle::TYPE_INT)

#[link(name = "websocket")]
extern "system" {
    fn WebSocketGetGlobalProperty(
        eType: i32,  // WEB_SOCKET_PROPERTY_TYPE
        pvValue: *mut (),  // void* in/out
        ulSize: *mut u32  // DWORD* in/out
    ) -> i32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("websocket.dll")]
public static extern int WebSocketGetGlobalProperty(int eType, IntPtr pvValue, ref uint ulSize);
"@
$api = Add-Type -MemberDefinition $sig -Name 'websocket_WebSocketGetGlobalProperty' -Namespace Win32 -PassThru
# $api::WebSocketGetGlobalProperty(eType, pvValue, ulSize)

#uselib "websocket.dll"
#func global WebSocketGetGlobalProperty "WebSocketGetGlobalProperty" sptr, sptr, sptr
; WebSocketGetGlobalProperty eType, pvValue, varptr(ulSize)   ; 戻り値は stat
; eType : WEB_SOCKET_PROPERTY_TYPE -> "sptr"
; pvValue : void* in/out -> "sptr"
; ulSize : DWORD* in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "websocket.dll"
#cfunc global WebSocketGetGlobalProperty "WebSocketGetGlobalProperty" int, sptr, var
; res = WebSocketGetGlobalProperty(eType, pvValue, ulSize)
; eType : WEB_SOCKET_PROPERTY_TYPE -> "int"
; pvValue : void* in/out -> "sptr"
; ulSize : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; HRESULT WebSocketGetGlobalProperty(WEB_SOCKET_PROPERTY_TYPE eType, void* pvValue, DWORD* ulSize)
#uselib "websocket.dll"
#cfunc global WebSocketGetGlobalProperty "WebSocketGetGlobalProperty" int, intptr, var
; res = WebSocketGetGlobalProperty(eType, pvValue, ulSize)
; eType : WEB_SOCKET_PROPERTY_TYPE -> "int"
; pvValue : void* in/out -> "intptr"
; ulSize : DWORD* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	websocket = windows.NewLazySystemDLL("websocket.dll")
	procWebSocketGetGlobalProperty = websocket.NewProc("WebSocketGetGlobalProperty")
)

// eType (WEB_SOCKET_PROPERTY_TYPE), pvValue (void* in/out), ulSize (DWORD* in/out)
r1, _, err := procWebSocketGetGlobalProperty.Call(
	uintptr(eType),
	uintptr(pvValue),
	uintptr(ulSize),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // HRESULT

function WebSocketGetGlobalProperty(
  eType: Integer;   // WEB_SOCKET_PROPERTY_TYPE
  pvValue: Pointer;   // void* in/out
  ulSize: Pointer   // DWORD* in/out
): Integer; stdcall;
  external 'websocket.dll' name 'WebSocketGetGlobalProperty';

result := DllCall("websocket\WebSocketGetGlobalProperty"
    , "Int", eType   ; WEB_SOCKET_PROPERTY_TYPE
    , "Ptr", pvValue   ; void* in/out
    , "Ptr", ulSize   ; DWORD* in/out
    , "Int")   ; return: HRESULT

●WebSocketGetGlobalProperty(eType, pvValue, ulSize) = DLL("websocket.dll", "int WebSocketGetGlobalProperty(int, void*, void*)")
# 呼び出し: WebSocketGetGlobalProperty(eType, pvValue, ulSize)
# eType : WEB_SOCKET_PROPERTY_TYPE -> "int"
# pvValue : void* in/out -> "void*"
# ulSize : DWORD* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。