Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Seriennummer Aus Chipkarte TOWITOKO ermitteln
Autor: Harald
Datum: 08.03.04 13:00
Seriennummer Aus Chipkarte TOWITOKO ermitteln Zuerst die Deklaration: Private Declare Function SCardComand Lib "SCARD32" (Handle As Long, ByVal Cmd As String, CmdLen As Long, ByVal DataIn As String, DataInLen As Long, ByVal DataOut As String, DataOutLen As Long) As Long Dim D As String D = String(255, 0) L = SCardComand(0, "System,Comands,Apps,TWK", 0, nil, 0, D, 255) Die Antwort in D$ ist: Seriennummer, Hersteller, Datum, Orginalwert, Restwert, Chipcode, ChipHersteller, Betreiber Danach: L = SCardComand(0, "System,Comands,Apps,TWK,Seriennummer", 0, nil, 0, D, 255) Die Antwort in D$ ist: keine Fehlermeldung, keine Seriennummer in einer Amleitung steht: Kommando: Str( "System,Commands[,<SubSet>]" ) Der Kommandobaum kann mit diesem Kommando rekursiv gelistet werden, dazu wird der Kommandostring jeweils um weitere Schlüsselwörter erweitert. Ich kann also die Seriennummer nicht Auslesen, die verwenden Karte für das Kassensystem ist eine SLE 4442, SLE 4432, aber auch verschiedene andere Karten wurden getestet. Wer weis wie ich diese Seriennummer auswerten kann. (nicht Schreiben, nur Lesen) Harald

Seriennummer Aus Chipkarte TOWITOKO ermitteln

783

Harald

08.03.04 13:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen