FeliCa でソフトを作りまくるスレ 2ブロック目

FeliCa でソフトを作� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

71:デフォルトの名無しさん
 08/10/28 22:17:02 
Type StructureCardInformation 
    lngCardIdm As Long 
    lngCardPmm As Long 
End Type 
 
Type StructurePolling 
    lngSystemCode As Long 
    bytTimeSlot As Byte 
End Type

72:デフォルトの名無しさん
 08/10/28 22:17:29 
Sub GetIDm() 
 
    If (InitializeLibrary() = 0) Then 
        MsgBox "Can't initialize library." 
        Exit Sub 
    End If 
     
    If (OpenReaderWriterAuto() = 0) Then 
        MsgBox "Can't open reader writer." 
        If (DisposeLibrary() = 0) Then 
            MsgBox "Can't dispose library." 
            Exit Sub 
        End If 
        Exit Sub 
    End If

73:デフォルトの名無しさん
 08/10/28 22:17:49 
    Dim udtPolling As StructurePolling 
    Dim bytSystemCode(1) As Byte 
    bytSystemCode(0) = &HFF 
    bytSystemCode(1) = &HFF 
    udtPolling.lngSystemCode = VarPtr(bytSystemCode(0)) 
    udtPolling.bytTimeSlot = &H0 
     
    Dim bytNumberOfCard As Byte 
     
    Dim udtCardInformation As StructureCardInformation 
    Dim bytCardIdm(7) As Byte 
    Dim bytCardPmm(7) As Byte 
    udtCardInformation.lngCardIdm = VarPtr(bytCardIdm(0)) 
    udtCardInformation.lngCardPmm = VarPtr(bytCardPmm(0)) 
    Dim IDm As String

次ページ