SnmpOidCompare

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

DWORD SnmpOidCompare(
    smiOID* xOID,
    smiOID* yOID,
    DWORD maxlen,
    INT* result
);

<DllImport("wsnmp32.dll", ExactSpelling:=True)>
Public Shared Function SnmpOidCompare(
    xOID As IntPtr,   ' smiOID* in/out
    yOID As IntPtr,   ' smiOID* in/out
    maxlen As UInteger,   ' DWORD
    ByRef result As Integer   ' INT* in/out
) As UInteger
End Function

' xOID : smiOID* in/out
' yOID : smiOID* in/out
' maxlen : DWORD
' result : INT* in/out
Declare PtrSafe Function SnmpOidCompare Lib "wsnmp32" ( _
    ByVal xOID As LongPtr, _
    ByVal yOID As LongPtr, _
    ByVal maxlen As Long, _
    ByRef result As Long) As Long
' VBA7前提(PtrSafe)。32bit Office では LongPtr→Long。Integer=16bit / Long=32bit / LongLong=64bit。

import ctypes
from ctypes import wintypes

SnmpOidCompare = ctypes.windll.wsnmp32.SnmpOidCompare
SnmpOidCompare.restype = wintypes.DWORD
SnmpOidCompare.argtypes = [
    ctypes.c_void_p,  # xOID : smiOID* in/out
    ctypes.c_void_p,  # yOID : smiOID* in/out
    wintypes.DWORD,  # maxlen : DWORD
    ctypes.POINTER(ctypes.c_int),  # result : INT* in/out
]

require 'fiddle'
require 'fiddle/import'

lib = Fiddle.dlopen('wsnmp32.dll')
SnmpOidCompare = Fiddle::Function.new(
  lib['SnmpOidCompare'],
  [
    Fiddle::TYPE_VOIDP,  # xOID : smiOID* in/out
    Fiddle::TYPE_VOIDP,  # yOID : smiOID* in/out
    -Fiddle::TYPE_INT,  # maxlen : DWORD
    Fiddle::TYPE_VOIDP,  # result : INT* in/out
  ],
  -Fiddle::TYPE_INT)

#[link(name = "wsnmp32")]
extern "system" {
    fn SnmpOidCompare(
        xOID: *mut smiOID,  // smiOID* in/out
        yOID: *mut smiOID,  // smiOID* in/out
        maxlen: u32,  // DWORD
        result: *mut i32  // INT* in/out
    ) -> u32;
}
// crates: windows-sys provides ready-made bindings for this API.

$sig = @"
[DllImport("wsnmp32.dll")]
public static extern uint SnmpOidCompare(IntPtr xOID, IntPtr yOID, uint maxlen, ref int result);
"@
$api = Add-Type -MemberDefinition $sig -Name 'wsnmp32_SnmpOidCompare' -Namespace Win32 -PassThru
# $api::SnmpOidCompare(xOID, yOID, maxlen, result)

#uselib "wsnmp32.dll"
#func global SnmpOidCompare "SnmpOidCompare" sptr, sptr, sptr, sptr
; SnmpOidCompare varptr(xOID), varptr(yOID), maxlen, varptr(result)   ; 戻り値は stat
; xOID : smiOID* in/out -> "sptr"
; yOID : smiOID* in/out -> "sptr"
; maxlen : DWORD -> "sptr"
; result : INT* in/out -> "sptr"
; ※HSP3.7は #func のため戻り値はシステム変数 stat に格納されます。

#uselib "wsnmp32.dll"
#cfunc global SnmpOidCompare "SnmpOidCompare" var, var, int, var
; res = SnmpOidCompare(xOID, yOID, maxlen, result)
; xOID : smiOID* in/out -> "var"
; yOID : smiOID* in/out -> "var"
; maxlen : DWORD -> "int"
; result : INT* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

; DWORD SnmpOidCompare(smiOID* xOID, smiOID* yOID, DWORD maxlen, INT* result)
#uselib "wsnmp32.dll"
#cfunc global SnmpOidCompare "SnmpOidCompare" var, var, int, var
; res = SnmpOidCompare(xOID, yOID, maxlen, result)
; xOID : smiOID* in/out -> "var"
; yOID : smiOID* in/out -> "var"
; maxlen : DWORD -> "int"
; result : INT* in/out -> "var"
; ※出力/バッファ引数は var 方式(変数を直接渡す)。varptr 方式にも切替可。

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

var (
	wsnmp32 = windows.NewLazySystemDLL("wsnmp32.dll")
	procSnmpOidCompare = wsnmp32.NewProc("SnmpOidCompare")
)

// xOID (smiOID* in/out), yOID (smiOID* in/out), maxlen (DWORD), result (INT* in/out)
r1, _, err := procSnmpOidCompare.Call(
	uintptr(xOID),
	uintptr(yOID),
	uintptr(maxlen),
	uintptr(result),
)
_ = err  // syscall.Errno (valid when the call sets last-error)
_ = r1   // DWORD

function SnmpOidCompare(
  xOID: Pointer;   // smiOID* in/out
  yOID: Pointer;   // smiOID* in/out
  maxlen: DWORD;   // DWORD
  result: Pointer   // INT* in/out
): DWORD; stdcall;
  external 'wsnmp32.dll' name 'SnmpOidCompare';

result := DllCall("wsnmp32\SnmpOidCompare"
    , "Ptr", xOID   ; smiOID* in/out
    , "Ptr", yOID   ; smiOID* in/out
    , "UInt", maxlen   ; DWORD
    , "Ptr", result   ; INT* in/out
    , "UInt")   ; return: DWORD

●SnmpOidCompare(xOID, yOID, maxlen, result) = DLL("wsnmp32.dll", "dword SnmpOidCompare(void*, void*, dword, void*)")
# 呼び出し: SnmpOidCompare(xOID, yOID, maxlen, result)
# xOID : smiOID* in/out -> "void*"
# yOID : smiOID* in/out -> "void*"
# maxlen : DWORD -> "dword"
# result : INT* in/out -> "void*"
# なでしこ1は32bit・ANSI(Shift_JIS)。文字列=char*(ANSI)、ポインタ/ハンドル=void*(4byte)。