WinSCard.dllメモ

VBAで簡単に使いたいなぁ、、と調査メモ

qiita.com

NFC 入門 | TipsZone

テストPGのソース

    Const SCARD_SCOPE_USER As Integer = 0
  
    Dim ret As Long

    ret = SCardEstablishContext(SCARD_SCOPE_USER, 0, 0, hContext)
    If ret <> 0 Then
        MsgBox ("Error1:" + CStr(ret))
        Exit Sub
    End If
  
    Dim pcchReaders As Long: pcchReaders = 256
    'リーダー名称取得
    Dim mszReaders As String

    '文字列サイズ取得
    ret = SCardListReaders(hContext, vbNullString, mszReaders, pcchReaders)
    If ret <> 0 Then
        MsgBox ("Error2:" + Hex(ret))
        Exit Sub
    End If
  
    mszReaders = String$(pcchReaders, vbNullChar)
    ret = SCardListReaders(hContext, vbNullString, mszReaders, pcchReaders)
    If ret <> 0 Then
        MsgBox ("Error3:" + Hex(ret))
        Exit Sub
    End If
  
    Dim readerArray() As String
    readerArray = Split(mszReaders, vbNullChar)  '名称を配列にセット
    Debug.Print readerArray(0)

---

▼結果

Sony FeliCa Port/PaSoRi 3.0 0