FeliCa でソフトを作りまくるスレ 2ブロック目at TECHFeliCa でソフトを作りまくるスレ 2ブロック目 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト74:デフォルトの名無しさん 08/10/28 22:18:09 If (PollingAndGetCardInformation(udtPolling, bytNumberOfCard, udtCardInformation) = 0) Then MsgBox "Can't find FeliCa." Else IDm = "" For i = 0 To 7 IDm = IDm + Hex(bytCardIdm(i)) Next i Sheets(1).Cells(1, 1).Value = IDm End If If (CloseReaderWriter() = 0) Then MsgBox "Can't close reader writer." If (DisposeLibrary() = 0) Then MsgBox "Can't dispose library." Exit Sub End If Exit Sub End If 75:デフォルトの名無しさん 08/10/28 22:21:05 If (DisposeLibrary() = 0) Then MsgBox "Can't dispose library." Exit Sub End If End Sub 76:デフォルトの名無しさん 08/10/28 23:32:28 これ、エクセルのvbaか？ 77:デフォルトの名無しさん 08/10/29 01:07:54 ソフトでFeliCaを作りまくるほうがいい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch