contactlessdemovb.frm

omnikey sample app with source

VERSION 5.00
Begin VB.Form ContactLessDemoVB 
   Caption         =   "ContactLessDemoVB"
   ClientHeight    =   11595
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   13425
   LinkTopic       =   "Form1"
   ScaleHeight     =   11595
   ScaleWidth      =   13425
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox iCLASSReceivedText 
      Height          =   495
      Left            =   6960
      MultiLine       =   -1  'True
      TabIndex        =   49
      Top             =   7080
      Width           =   6375
   End
   Begin VB.TextBox iCLASSSendText 
      Height          =   375
      Left            =   2160
      TabIndex        =   48
      Top             =   7080
      Width           =   4095
   End
   Begin VB.CommandButton iCLASSTransmit 
      Caption         =   "iCLASS Transmit"
      Height          =   495
      Left            =   120
      TabIndex        =   47
      Top             =   7080
      Width           =   1695
   End
   Begin VB.TextBox StatusText 
      Alignment       =   2  'Center
      Height          =   375
      Left            =   6000
      TabIndex        =   45
      Top             =   8280
      Width           =   2535
   End
   Begin VB.CommandButton DisConnectCard 
      Caption         =   "Disconnect Card "
      Height          =   495
      Left            =   120
      TabIndex        =   44
      Top             =   8280
      Width           =   2055
   End
   Begin VB.CommandButton RefreshOutput 
      Caption         =   "Refresh Output Screen"
      Height          =   495
      Left            =   11280
      TabIndex        =   43
      Top             =   8280
      Width           =   2055
   End
   Begin VB.TextBox DecermentValText 
      Height          =   375
      Left            =   10200
      MaxLength       =   8
      TabIndex        =   35
      Top             =   6000
      Width           =   2775
   End
   Begin VB.TextBox IncrementValText 
      Height          =   375
      Left            =   2640
      MaxLength       =   8
      TabIndex        =   34
      Top             =   6120
      Width           =   2535
   End
   Begin VB.CommandButton Decrement 
      Caption         =   "Decrement"
      Height          =   495
      Left            =   7920
      TabIndex        =   33
      Top             =   5880
      Width           =   1455
   End
   Begin VB.CommandButton Increment 
      Caption         =   "Increment"
      Height          =   495
      Left            =   120
      TabIndex        =   32
      Top             =   6000
      Width           =   1455
   End
   Begin VB.Frame AuthenticationMode 
      Caption         =   "Authentication Mode"
      Height          =   1335
      Left            =   8880
      TabIndex        =   29
      Top             =   3360
      Width           =   4335
      Begin VB.OptionButton ModeOptionB 
         Caption         =   "Mode B"
         Height          =   375
         Left            =   2040
         TabIndex        =   31
         Top             =   480
         Width           =   1935
      End
      Begin VB.OptionButton ModeOptionA 
         Caption         =   "Mode A"
         Height          =   375
         Left            =   360
         TabIndex        =   30
         Top             =   480
         Width           =   1575
      End
   End
   Begin VB.Frame AccessOption 
      Caption         =   "Access Option"
      Height          =   1335
      Left            =   3120
      TabIndex        =   24
      Top             =   3480
      Width           =   5655
      Begin VB.OptionButton OptionKey 
         Caption         =   "Key will be supplied"
         Height          =   255
         Left            =   3000
         TabIndex        =   41
         Top             =   240
         Width           =   2535
      End
      Begin VB.OptionButton OptionKeyNr 
         Caption         =   "Key Nr will be supplied"
         Height          =   255
         Left            =   240
         TabIndex        =   40
         Top             =   240
         Width           =   2415
      End
      Begin VB.TextBox MifAuthentKeyText 
         Height          =   285
         Left            =   3480
         MaxLength       =   12
         TabIndex        =   27
         Top             =   600
         Width           =   2055
      End
      Begin VB.TextBox AuthenKeyNrText 
         Height          =   285
         Left            =   720
         TabIndex        =   25
         Top             =   600
         Width           =   855
      End
      Begin VB.Label Label11 
         Caption         =   "Key ( 6 byte hex)"
         Height          =   255
         Left            =   3600
         TabIndex        =   28
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label10 
         Caption         =   "Key Nr (0-1F)"
         Height          =   255
         Left            =   720
         TabIndex        =   26
         Top             =   960
         Width           =   1095
      End
   End
   Begin VB.CommandButton Authenticate 
      Caption         =   "Authenticate"
      Height          =   495
      Left            =   120
      TabIndex        =   23
      Top             =   3720
      Width           =   1455
   End
   Begin VB.TextBox DataWriteText 
      Height          =   375
      Left            =   8280
      MaxLength       =   32
      TabIndex        =   21
      Top             =   5040
      Width           =   4935
   End
   Begin VB.CommandButton Write 
      Caption         =   "Write"
      Height          =   495
      Left            =   6840
      TabIndex        =   20
      Top             =   5040
      Width           =   1215
   End
   Begin VB.TextBox DataReadText 
      Height          =   375
      Left            =   2040
      TabIndex        =   17
      Top             =   5040
      Width           =   4095
   End
   Begin VB.TextBox BlockNrText 
      Alignment       =   2  'Center
      Height          =   375
      Left            =   1920
      TabIndex        =   16
      Text            =   "00"
      Top             =   3720
      Width           =   735
   End
   Begin VB.CommandButton Read 
      Caption         =   "Read"
      Height          =   495
      Left            =   120
      TabIndex        =   15
      Top             =   5040
      Width           =   1335
   End
   Begin VB.TextBox MifKeyToReaderNrText 
      Height          =   285
      Left            =   7320
      MaxLength       =   2
      TabIndex        =   14
      Text            =   "00"
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox MifareKeyToReaderText 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   8280
      MaxLength       =   12
      TabIndex        =   12
      Top             =   960
      Width           =   2055
   End
   Begin VB.TextBox CardNameText 
      Height          =   495
      Left            =   10200
      TabIndex        =   7
      Top             =   2040
      Width           =   3015
   End
   Begin VB.TextBox UIDText 
      Height          =   495
      Left            =   6360
      TabIndex        =   6
      Top             =   2040
      Width           =   3495
   End
   Begin VB.TextBox ATRText 
      Height          =   495
      Left            =   480
      TabIndex        =   5
      Top             =   2040
      Width           =   5415
   End
   Begin VB.CommandButton WriteMifKeyToReader 
      Caption         =   "Write Mifare Key To reader"
      Height          =   615
      Left            =   5280
      TabIndex        =   4
      Top             =   840
      Width           =   1815
   End
   Begin VB.PictureBox OmnikeyLogo 
      Height          =   1455
      Left            =   10440
      Picture         =   "ContactLessDemoVB.frx":0000
      ScaleHeight     =   1395
      ScaleWidth      =   2715
      TabIndex        =   3
      Top             =   120
      Width           =   2775
   End
   Begin VB.CommandButton ConnectCard 
      Caption         =   "Connect Card "
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   2640
      Width           =   1455
   End
   Begin VB.ListBox OutPutList 
      Height          =   2790
      Left            =   120
      MultiSelect     =   1  'Simple
      TabIndex        =   1
      Top             =   8880
      Width           =   13335
   End
   Begin VB.ListBox ReaderList 
      Height          =   1620
      Left            =   120
      MultiSelect     =   1  'Simple
      TabIndex        =   0
      Top             =   120
      Width           =   5055
   End
   Begin VB.Label Label21 
      Caption         =   "iCLASS Functionalities"
      Height          =   255
      Left            =   6000
      TabIndex        =   54
      Top             =   6720
      Width           =   1695
   End
   Begin VB.Label Label20 
      Caption         =   "Mifare Functionalities"
      Height          =   255
      Left            =   0
      TabIndex        =   53
      Top             =   0
      Width           =   1575
   End
   Begin VB.Label Label19 
      Caption         =   "Mifare Functionalities"
      Height          =   255
      Left            =   6360
      TabIndex        =   52
      Top             =   3120
      Width           =   1575
   End
   Begin VB.Label Label18 
      Alignment       =   2  'Center
      Caption         =   "Bytes (hex) received"
      Height          =   255
      Left            =   7560
      TabIndex        =   51
      Top             =   7680
      Width           =   4815
   End
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      Caption         =   "Bytes to send(hex)"
      Height          =   255
      Left            =   2520
      TabIndex        =   50
      Top             =   7680
      Width           =   3495
   End
   Begin VB.Line Line3 
      X1              =   0
      X2              =   13440
      Y1              =   8040
      Y2              =   8040
   End
   Begin VB.Label Label16 
      Alignment       =   2  'Center
      Caption         =   "Status"
      Height          =   255
      Left            =   4920
      TabIndex        =   46
      Top             =   8400
      Width           =   855
   End
   Begin VB.Shape Shape1 
      Height          =   615
      Left            =   4800
      Top             =   8160
      Width           =   4095
   End
   Begin VB.Line Line2 
      X1              =   0
      X2              =   13320
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Line Line1 
      X1              =   0
      X2              =   13320
      Y1              =   6840
      Y2              =   6840
   End
   Begin VB.Label Label15 
      Alignment       =   2  'Center
      Caption         =   $"ContactLessDemoVB.frx":2022
      Height          =   615
      Left            =   5280
      TabIndex        =   42
      Top             =   120
      Width           =   5055
   End
   Begin VB.Label Label14 
      Alignment       =   2  'Center
      Caption         =   "4-byte hex data"
      Height          =   375
      Left            =   10320
      TabIndex        =   39
      Top             =   6600
      Width           =   2655
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "4-byte hex data"
      Height          =   255
      Left            =   2760
      TabIndex        =   38
      Top             =   6600
      Width           =   2295
   End
   Begin VB.Label Label13 
      Caption         =   "by"
      Height          =   375
      Left            =   9600
      TabIndex        =   37
      Top             =   6000
      Width           =   375
   End
   Begin VB.Label Label12 
      Caption         =   "by"
      Height          =   375
      Left            =   1920
      TabIndex        =   36
      Top             =   6120
      Width           =   375
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Caption         =   "Data to be Writen"
      Height          =   255
      Left            =   8400
      TabIndex        =   22
      Top             =   5520
      Width           =   4815
   End
   Begin VB.Label Label7 
      Alignment       =   2  'Center
      Caption         =   "Data read"
      Height          =   255
      Left            =   2160
      TabIndex        =   19
      Top             =   5520
      Width           =   4095
   End
   Begin VB.Label Label6 
      Caption         =   "Block Nr"
      Height          =   255
      Left            =   1920
      TabIndex        =   18
      Top             =   4200
      Width           =   735
   End
   Begin VB.Label Label5 
      Caption         =   "6-Byte Mifare Key (hex)"
      Height          =   255
      Left            =   8400
      TabIndex        =   13
      Top             =   1440
      Width           =   1815
   End
   Begin VB.Label Label4 
      Caption         =   "Key Nr     ( 0 - 1F)"
      Height          =   375
      Left            =   7440
      TabIndex        =   11
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label3