VERSION 5.00 Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx" Begin VB.Form frmMain BorderStyle = 1 'ŒΕ’θ(Žΐό) Caption = "ICCardTester" ClientHeight = 5865 ClientLeft = 45 ClientTop = 435 ClientWidth = 8220 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5865 ScaleWidth = 8220 StartUpPosition = 3 'Windows ‚ΜŠω’θ’l Begin VB.TextBox txtPort Alignment = 1 '‰E‘΅‚¦ Height = 285 Left = 180 TabIndex = 171 Text = "15" Top = 840 Width = 1095 End Begin TabDlg.SSTab SSTab1 Height = 5535 Left = 1350 TabIndex = 3 Top = 150 Width = 6735 _ExtentX = 11880 _ExtentY = 9763 _Version = 393216 Tabs = 6 Tab = 3 TabHeight = 520 TabCaption(0) = "Reader/Writer" TabPicture(0) = "frmMain.frx":0000 Tab(0).ControlEnabled= 0 'False Tab(0).Control(0)= "txtLEDInterval(1)" Tab(0).Control(0).Enabled= 0 'False Tab(0).Control(1)= "txtLEDInterval(0)" Tab(0).Control(1).Enabled= 0 'False Tab(0).Control(2)= "cmbLEDMode" Tab(0).Control(2).Enabled= 0 'False Tab(0).Control(3)= "cmdSetLED" Tab(0).Control(3).Enabled= 0 'False Tab(0).Control(4)= "cmbBaudRate" Tab(0).Control(4).Enabled= 0 'False Tab(0).Control(5)= "cmdModifyHostBaudRate" Tab(0).Control(5).Enabled= 0 'False Tab(0).Control(6)= "cmdGetReaderWriterInfo" Tab(0).Control(6).Enabled= 0 'False Tab(0).Control(7)= "chkCtrlState(1)" Tab(0).Control(7).Enabled= 0 'False Tab(0).Control(8)= "chkCtrlState(0)" Tab(0).Control(8).Enabled= 0 'False Tab(0).Control(9)= "cmdCheckCtrlState" Tab(0).Control(9).Enabled= 0 'False Tab(0).Control(10)= "cmdResetMain" Tab(0).Control(10).Enabled= 0 'False Tab(0).ControlCount= 11 TabCaption(1) = "Common" TabPicture(1) = "frmMain.frx":001C Tab(1).ControlEnabled= 0 'False Tab(1).Control(0)= "cmdSetRecvMode" Tab(1).Control(0).Enabled= 0 'False Tab(1).Control(1)= "txtCardTimeout" Tab(1).Control(1).Enabled= 0 'False Tab(1).Control(2)= "cmdSetCardTimeout" Tab(1).Control(2).Enabled= 0 'False Tab(1).Control(3)= "cmbCardDown" Tab(1).Control(3).Enabled= 0 'False Tab(1).Control(4)= "cmbCardUp" Tab(1).Control(4).Enabled= 0 'False Tab(1).Control(5)= "cmbCardType" Tab(1).Control(5).Enabled= 0 'False Tab(1).Control(6)= "cmdSetCardComm" Tab(1).Control(6).Enabled= 0 'False Tab(1).Control(7)= "cmbCarrierState" Tab(1).Control(7).Enabled= 0 'False Tab(1).Control(8)= "cmdSetCarrierState" Tab(1).Control(8).Enabled= 0 'False Tab(1).Control(9)= "cmdGetCardCommInfo" Tab(1).Control(9).Enabled= 0 'False Tab(1).Control(10)= "cmdResetCardCommCtrl" Tab(1).Control(10).Enabled= 0 'False Tab(1).Control(11)= "cmdGetCardCommCtrlInfo" Tab(1).Control(11).Enabled= 0 'False Tab(1).ControlCount= 12 TabCaption(2) = "Security" TabPicture(2) = "frmMain.frx":0038 Tab(2).ControlEnabled= 0 'False Tab(2).Control(0)= "cmdAuthentication1" Tab(2).Control(0).Enabled= 0 'False Tab(2).Control(1)= "cmdAuthentication2" Tab(2).Control(1).Enabled= 0 'False Tab(2).Control(2)= "txtE2(0)" Tab(2).Control(2).Enabled= 0 'False Tab(2).Control(3)= "txtE2(1)" Tab(2).Control(3).Enabled= 0 'False Tab(2).Control(4)= "txtE2(2)" Tab(2).Control(4).Enabled= 0 'False Tab(2).Control(5)= "txtE2(3)" Tab(2).Control(5).Enabled= 0 'False Tab(2).Control(6)= "txtE2(4)" Tab(2).Control(6).Enabled= 0 'False Tab(2).Control(7)= "txtE2(5)" Tab(2).Control(7).Enabled= 0 'False Tab(2).Control(8)= "txtE2(6)" Tab(2).Control(8).Enabled= 0 'False Tab(2).Control(9)= "txtE2(7)" Tab(2).Control(9).Enabled= 0 'False Tab(2).Control(10)= "txtE3(0)" Tab(2).Control(10).Enabled= 0 'False Tab(2).Control(11)= "txtE3(1)" Tab(2).Control(11).Enabled= 0 'False Tab(2).Control(12)= "txtE3(2)" Tab(2).Control(12).Enabled= 0 'False Tab(2).Control(13)= "txtE3(3)" Tab(2).Control(13).Enabled= 0 'False Tab(2).Control(14)= "txtE3(4)" Tab(2).Control(14).Enabled= 0 'False Tab(2).Control(15)= "txtE3(5)" Tab(2).Control(15).Enabled= 0 'False Tab(2).Control(16)= "txtE3(6)" Tab(2).Control(16).Enabled= 0 'False Tab(2).Control(17)= "txtE3(7)" Tab(2).Control(17).Enabled= 0 'False Tab(2).ControlCount= 18 TabCaption(3) = "Mifare (Basic1)" TabPicture(3) = "frmMain.frx":0054 Tab(3).ControlEnabled= -1 'True Tab(3).Control(0)= "cmdWriteUL" Tab(3).Control(0).Enabled= 0 'False Tab(3).Control(1)= "cmdWriteMifare" Tab(3).Control(1).Enabled= 0 'False Tab(3).Control(2)= "cmdReadMifare" Tab(3).Control(2).Enabled= 0 'False Tab(3).Control(3)= "cmdAuthenticationMifareInMemory" Tab(3).Control(3).Enabled= 0 'False Tab(3).Control(4)= "cmdAuthenticationMifare" Tab(3).Control(4).Enabled= 0 'False Tab(3).Control(5)= "cmdSelectMifare" Tab(3).Control(5).Enabled= 0 'False Tab(3).Control(6)= "cmdAnticollisionMifare" Tab(3).Control(6).Enabled= 0 'False Tab(3).Control(7)= "cmdRequestMifare" Tab(3).Control(7).Enabled= 0 'False Tab(3).Control(8)= "txtReadBlock" Tab(3).Control(8).Enabled= 0 'False Tab(3).Control(9)= "txtWriteBlock" Tab(3).Control(9).Enabled= 0 'False Tab(3).Control(10)= "txtWriteData(7)" Tab(3).Control(10).Enabled= 0 'False Tab(3).Control(11)= "txtWriteData(6)" Tab(3).Control(11).Enabled= 0 'False Tab(3).Control(12)= "txtWriteData(5)" Tab(3).Control(12).Enabled= 0 'False Tab(3).Control(13)= "txtWriteData(4)" Tab(3).Control(13).Enabled= 0 'False Tab(3).Control(14)= "txtWriteData(3)" Tab(3).Control(14).Enabled= 0 'False Tab(3).Control(15)= "txtWriteData(2)" Tab(3).Control(15).Enabled= 0 'False Tab(3).Control(16)= "txtWriteData(1)" Tab(3).Control(16).Enabled= 0 'False Tab(3).Control(17)= "txtWriteData(0)" Tab(3).Control(17).Enabled= 0 'False Tab(3).Control(18)= "txtWriteData(15)" Tab(3).Control(18).Enabled= 0 'False Tab(3).Control(19)= "txtWriteData(14)" Tab(3).Control(19).Enabled= 0 'False Tab(3).Control(20)= "txtWriteData(13)" Tab(3).Control(20).Enabled= 0 'False Tab(3).Control(21)= "txtWriteData(12)" Tab(3).Control(21).Enabled= 0 'False Tab(3).Control(22)= "txtWriteData(11)" Tab(3).Control(22).Enabled= 0 'False Tab(3).Control(23)= "txtWriteData(10)" Tab(3).Control(23).Enabled= 0 'False Tab(3).Control(24)= "txtWriteData(9)" Tab(3).Control(24).Enabled= 0 'False Tab(3).Control(25)= "txtWriteData(8)" Tab(3).Control(25).Enabled= 0 'False Tab(3).Control(26)= "cmbReqMode" Tab(3).Control(26).Enabled= 0 'False Tab(3).Control(27)= "cmbAntiLevel" Tab(3).Control(27).Enabled= 0 'False Tab(3).Control(28)= "txtAntiBitCnt" Tab(3).Control(28).Enabled= 0 'False Tab(3).Control(29)= "txtAntiSnr(0)" Tab(3).Control(29).Enabled= 0 'False Tab(3).Control(30)= "txtAntiSnr(1)" Tab(3).Control(30).Enabled= 0 'False Tab(3).Control(31)= "txtAntiSnr(2)" Tab(3).Control(31).Enabled= 0 'False Tab(3).Control(32)= "txtAntiSnr(3)" Tab(3).Control(32).Enabled= 0 'False Tab(3).Control(33)= "txtSelSnr(3)" Tab(3).Control(33).Enabled= 0 'False Tab(3).Control(34)= "txtSelSnr(2)" Tab(3).Control(34).Enabled= 0 'False Tab(3).Control(35)= "txtSelSnr(1)" Tab(3).Control(35).Enabled= 0 'False Tab(3).Control(36)= "txtSelSnr(0)" Tab(3).Control(36).Enabled= 0 'False Tab(3).Control(37)= "cmbSelLevel" Tab(3).Control(37).Enabled= 0 'False Tab(3).Control(38)= "txtAuthKey(5)" Tab(3).Control(38).Enabled= 0 'False Tab(3).Control(39)= "txtAuthKey(0)" Tab(3).Control(39).Enabled= 0 'False Tab(3).Control(40)= "txtAuthKey(1)" Tab(3).Control(40).Enabled= 0 'False Tab(3).Control(41)= "txtAuthKey(2)" Tab(3).Control(41).Enabled= 0 'False Tab(3).Control(42)= "txtAuthKey(3)" Tab(3).Control(42).Enabled= 0 'False Tab(3).Control(43)= "txtAuthKey(4)" Tab(3).Control(43).Enabled= 0 'False Tab(3).Control(44)= "txtAuthSector" Tab(3).Control(44).Enabled= 0 'False Tab(3).Control(45)= "cmbAuthMode" Tab(3).Control(45).Enabled= 0 'False Tab(3).Control(46)= "txtAuthMemSector" Tab(3).Control(46).Enabled= 0 'False Tab(3).Control(47)= "cmbAuthMemMode" Tab(3).Control(47).Enabled= 0 'False Tab(3).Control(48)= "txtAuthMemNo" Tab(3).Control(48).Enabled= 0 'False Tab(3).ControlCount= 49 TabCaption(4) = "Mifare (Basic2)" TabPicture(4) = "frmMain.frx":0070 Tab(4).ControlEnabled= 0 'False Tab(4).Control(0)= "cmdHaltMifare" Tab(4).Control(0).Enabled= 0 'False Tab(4).Control(1)= "cmdTransferMifare" Tab(4).Control(1).Enabled= 0 'False Tab(4).Control(2)= "cmdRestoreTransMifare" Tab(4).Control(2).Enabled= 0 'False Tab(4).Control(3)= "cmdIncrementTransMifare" Tab(4).Control(3).Enabled= 0 'False Tab(4).Control(4)= "cmdDecrementTransMifare" Tab(4).Control(4).Enabled= 0 'False Tab(4).Control(5)= "cmdLoadKeyMifare" Tab(4).Control(5).Enabled= 0 'False Tab(4).Control(6)= "cmdLoadKeyMifareInMemory" Tab(4).Control(6).Enabled= 0 'False Tab(4).Control(7)= "txtDTDecBlock" Tab(4).Control(7).Enabled= 0 'False Tab(4).Control(8)= "txtDTTransBlock" Tab(4).Control(8).Enabled= 0 'False Tab(4).Control(9)= "txtDTValue" Tab(4).Control(9).Enabled= 0 'False Tab(4).Control(10)= "txtITIncBlock" Tab(4).Control(10).Enabled= 0 'False Tab(4).Control(11)= "txtITTransBlock" Tab(4).Control(11).Enabled= 0 'False Tab(4).Control(12)= "txtITValue" Tab(4).Control(12).Enabled= 0 'False Tab(4).Control(13)= "txtRTResBlock" Tab(4).Control(13).Enabled= 0 'False Tab(4).Control(14)= "txtRTTransBlock" Tab(4).Control(14).Enabled= 0 'False Tab(4).Control(15)= "txtTrans" Tab(4).Control(15).Enabled= 0 'False Tab(4).Control(16)= "cmbLoadMemType" Tab(4).Control(16).Enabled= 0 'False Tab(4).Control(17)= "txtLoadMemNo" Tab(4).Control(17).Enabled= 0 'False Tab(4).Control(18)= "cmbLoadMemAuth" Tab(4).Control(18).Enabled= 0 'False Tab(4).Control(19)= "txtLoadMemSector" Tab(4).Control(19).Enabled= 0 'False Tab(4).Control(20)= "cmbLoadAuth" Tab(4).Control(20).Enabled= 0 'False Tab(4).Control(21)= "txtLoadSector" Tab(4).Control(21).Enabled= 0 'False Tab(4).Control(22)= "txtLoadKey(4)" Tab(4).Control(22).Enabled= 0 'False Tab(4).Control(23)= "txtLoadKey(3)" Tab(4).Control(23).Enabled= 0 'False Tab(4).Control(24)= "txtLoadKey(2)" Tab(4).Control(24).Enabled= 0 'False Tab(4).Control(25)= "txtLoadKey(1)" Tab(4).Control(25).Enabled= 0 'False Tab(4).Control(26)= "txtLoadKey(0)" Tab(4).Control(26).Enabled= 0 'False Tab(4).Control(27)= "txtLoadKey(5)" Tab(4).Control(27).Enabled= 0 'False Tab(4).ControlCount= 28 TabCaption(5) = "Mifare (Expansion)" TabPicture(5) = "frmMain.frx":008C Tab(5).ControlEnabled= 0 'False Tab(5).Control(0)= "cmdWriteReadMifare" Tab(5).Control(0).Enabled= 0 'False Tab(5).Control(1)= "cmdValueWriteMifare" Tab(5).Control(1).Enabled= 0 'False Tab(5).Control(2)= "cmdAutoSelectMifare" Tab(5).Control(2).Enabled= 0 'False Tab(5).Control(3)= "cmdAutoLoginMifare" Tab(5).Control(3).Enabled= 0 'False Tab(5).Control(4)= "cmdAutoLoginMifareInMemory" Tab(5).Control(4).Enabled= 0 'False Tab(5).Control(5)= "cmdDecrementReadMifare" Tab(5).Control(5).Enabled= 0 'False Tab(5).Control(6)= "cmdIncrementReadMifare" Tab(5).Control(6).Enabled= 0 'False Tab(5).Control(7)= "cmdRestoreReadMifare" Tab(5).Control(7).Enabled= 0 'False Tab(5).Control(8)= "cmbAutoLoginMode" Tab(5).Control(8).Enabled= 0 'False Tab(5).Control(9)= "cmbAutoLoginAuth" Tab(5).Control(9).Enabled= 0 'False Tab(5).Control(10)= "txtAutoLoginSector" Tab(5).Control(10).Enabled= 0 'False Tab(5).Control(11)= "txtAutoLoginKey(4)" Tab(5).Control(11).Enabled= 0 'False Tab(5).Control(12)= "txtAutoLoginKey(3)" Tab(5).Control(12).Enabled= 0 'False Tab(5).Control(13)= "txtAutoLoginKey(2)" Tab(5).Control(13).Enabled= 0 'False Tab(5).Control(14)= "txtAutoLoginKey(1)" Tab(5).Control(14).Enabled= 0 'False Tab(5).Control(15)= "txtAutoLoginKey(0)" Tab(5).Control(15).Enabled= 0 'False Tab(5).Control(16)= "txtAutoLoginKey(5)" Tab(5).Control(16).Enabled= 0 'False Tab(5).Control(17)= "cmbAutoSelMode" Tab(5).Control(17).Enabled= 0 'False Tab(5).Control(18)= "txtAutoLoginMemSector" Tab(5).Control(18).Enabled= 0 'False Tab(5).Control(19)= "cmbAutoLoginMemAuth" Tab(5).Control(19).Enabled= 0 'False Tab(5).Control(20)= "cmbAutoLoginMemMode" Tab(5).Control(20).Enabled= 0 'False Tab(5).Control(21)= "txtAutoLoginMemNo" Tab(5).Control(21).Enabled= 0 'False Tab(5).Control(22)= "txtDRDecBlock" Tab(5).Control(22).Enabled= 0 'False Tab(5).Control(23)= "txtDRTransBlock" Tab(5).Control(23).Enabled= 0 'False Tab(5).Control(24)= "txtDRValue" Tab(5).Control(24).Enabled= 0 'False Tab(5).Control(25)= "txtIRIncBlock" Tab(5).Control(25).Enabled= 0 'False Tab(5).Control(26)= "txtIRTransBlock" Tab(5).Control(26).Enabled= 0 'False Tab(5).Control(27)= "txtIRValue" Tab(5).Control(27).Enabled= 0 'False Tab(5).Control(28)= "txtRRResBlock" Tab(5).Control(28).Enabled= 0 'False Tab(5).Control(29)= "txtRRTransBlock" Tab(5).Control(29).Enabled= 0 'False Tab(5).Control(30)= "txtWriteReadData(8)" Tab(5).Control(30).Enabled= 0 'False Tab(5).Control(31)= "txtWriteReadData(9)" Tab(5).Control(31).Enabled= 0 'False Tab(5).Control(32)= "txtWriteReadData(10)" Tab(5).Control(32).Enabled= 0 'False Tab(5).Control(33)= "txtWriteReadData(11)" Tab(5).Control(33).Enabled= 0 'False Tab(5).Control(34)= "txtWriteReadData(12)" Tab(5).Control(34).Enabled= 0 'False Tab(5).Control(35)= "txtWriteReadData(13)" Tab(5).Control(35).Enabled= 0 'False Tab(5).Control(36)= "txtWriteReadData(14)" Tab(5).Control(36).Enabled= 0 'False Tab(5).Control(37)= "txtWriteReadData(15)" Tab(5).Control(37).Enabled= 0 'False Tab(5).Control(38)= "txtWriteReadData(0)" Tab(5).Control(38).Enabled= 0 'False Tab(5).Control(39)= "txtWriteReadData(1)" Tab(5).Control(39).Enabled= 0 'False Tab(5).Control(40)= "txtWriteReadData(2)" Tab(5).Control(40).Enabled= 0 'False Tab(5).Control(41)= "txtWriteReadData(3)" Tab(5).Control(41).Enabled= 0 'False Tab(5).Control(42)= "txtWriteReadData(4)" Tab(5).Control(42).Enabled= 0 'False Tab(5).Control(43)= "txtWriteReadData(5)" Tab(5).Control(43).Enabled= 0 'False Tab(5).Control(44)= "txtWriteReadData(6)" Tab(5).Control(44).Enabled= 0 'False Tab(5).Control(45)= "txtWriteReadData(7)" Tab(5).Control(45).Enabled= 0 'False Tab(5).Control(46)= "txtWriteReadBlock" Tab(5).Control(46).Enabled= 0 'False Tab(5).Control(47)= "txtValueWriteBlock" Tab(5).Control(47).Enabled= 0 'False Tab(5).Control(48)= "txtValueWriteVal" Tab(5).Control(48).Enabled= 0 'False Tab(5).ControlCount= 49 Begin VB.TextBox txtValueWriteVal Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 170 Text = "0" Top = 4860 Width = 840 End Begin VB.TextBox txtValueWriteBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 169 Text = "0" Top = 4860 Width = 840 End Begin VB.TextBox txtWriteReadBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 168 Text = "0" Top = 3780 Width = 840 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 7 Left = -69450 TabIndex = 167 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 6 Left = -69900 TabIndex = 166 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = -70350 TabIndex = 165 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = -70800 TabIndex = 164 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = -71250 TabIndex = 163 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = -71700 TabIndex = 162 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -72150 TabIndex = 161 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -72600 TabIndex = 160 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 15 Left = -69450 TabIndex = 159 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 14 Left = -69900 TabIndex = 158 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 13 Left = -70350 TabIndex = 157 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 12 Left = -70800 TabIndex = 156 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 11 Left = -71250 TabIndex = 155 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 10 Left = -71700 TabIndex = 154 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 9 Left = -72150 TabIndex = 153 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtWriteReadData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 8 Left = -72600 TabIndex = 152 Text = "255" Top = 4500 Width = 390 End Begin VB.TextBox txtRRTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 151 Text = "2" Top = 3420 Width = 840 End Begin VB.TextBox txtRRResBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 150 Text = "1" Top = 3420 Width = 840 End Begin VB.TextBox txtIRValue Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -70800 TabIndex = 149 Text = "1000" Top = 3060 Width = 840 End Begin VB.TextBox txtIRTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 148 Text = "2" Top = 3060 Width = 840 End Begin VB.TextBox txtIRIncBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 147 Text = "1" Top = 3060 Width = 840 End Begin VB.TextBox txtDRValue Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -70800 TabIndex = 146 Text = "1000" Top = 2700 Width = 840 End Begin VB.TextBox txtDRTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 145 Text = "2" Top = 2700 Width = 840 End Begin VB.TextBox txtDRDecBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 144 Text = "1" Top = 2700 Width = 840 End Begin VB.TextBox txtAutoLoginMemNo Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -70350 TabIndex = 143 Text = "0" Top = 2340 Width = 885 End Begin VB.ComboBox cmbAutoLoginMemMode Height = 300 ItemData = "frmMain.frx":00A8 Left = -72600 List = "frmMain.frx":00AA Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 142 Top = 1980 Width = 1290 End Begin VB.ComboBox cmbAutoLoginMemAuth Height = 300 ItemData = "frmMain.frx":00AC Left = -72600 List = "frmMain.frx":00AE Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 141 Top = 2340 Width = 1290 End Begin VB.TextBox txtAutoLoginMemSector Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71280 TabIndex = 140 Text = "0" Top = 2340 Width = 885 End Begin VB.ComboBox cmbAutoSelMode Height = 300 ItemData = "frmMain.frx":00B0 Left = -72600 List = "frmMain.frx":00B2 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 139 Top = 900 Width = 1290 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = -70350 TabIndex = 138 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -72600 TabIndex = 137 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -72150 TabIndex = 136 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = -71700 TabIndex = 135 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = -71250 TabIndex = 134 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = -70800 TabIndex = 133 Text = "255" Top = 3030 Width = 390 End Begin VB.TextBox txtLoadSector Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71250 TabIndex = 132 Text = "0" Top = 2670 Width = 840 End Begin VB.ComboBox cmbLoadAuth Height = 300 ItemData = "frmMain.frx":00B4 Left = -72600 List = "frmMain.frx":00B6 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 131 Top = 2670 Width = 1290 End Begin VB.TextBox txtLoadMemSector Alignment = 1 '‰E‘΅‚¦ Enabled = 0 'False Height = 300 Left = -71250 TabIndex = 130 Text = "0" Top = 3390 Width = 840 End Begin VB.ComboBox cmbLoadMemAuth Enabled = 0 'False Height = 300 ItemData = "frmMain.frx":00B8 Left = -72600 List = "frmMain.frx":00BA Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 129 Top = 3390 Width = 1290 End Begin VB.TextBox txtLoadMemNo Alignment = 1 '‰E‘΅‚¦ Enabled = 0 'False Height = 300 Left = -71250 TabIndex = 128 Text = "0" Top = 3750 Width = 840 End Begin VB.ComboBox cmbLoadMemType Enabled = 0 'False Height = 300 ItemData = "frmMain.frx":00BC Left = -72600 List = "frmMain.frx":00BE Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 127 Top = 3750 Width = 1290 End Begin VB.TextBox txtTrans Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 126 Text = "1" Top = 1980 Width = 840 End Begin VB.TextBox txtRTTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 125 Text = "2" Top = 1620 Width = 840 End Begin VB.TextBox txtRTResBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 124 Text = "1" Top = 1620 Width = 840 End Begin VB.TextBox txtITValue Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -70800 TabIndex = 123 Text = "1000" Top = 1260 Width = 840 End Begin VB.TextBox txtITTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 122 Text = "2" Top = 1260 Width = 840 End Begin VB.TextBox txtITIncBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 121 Text = "1" Top = 1260 Width = 840 End Begin VB.TextBox txtDTValue Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -70800 TabIndex = 120 Text = "1000" Top = 900 Width = 840 End Begin VB.TextBox txtDTTransBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -71700 TabIndex = 119 Text = "2" Top = 930 Width = 840 End Begin VB.TextBox txtDTDecBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 118 Text = "1" Top = 900 Width = 840 End Begin VB.TextBox txtAuthMemNo Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 4650 TabIndex = 117 Text = "0" Top = 2700 Width = 840 End Begin VB.ComboBox cmbAuthMemMode Height = 300 ItemData = "frmMain.frx":00C0 Left = 2400 List = "frmMain.frx":00C2 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 116 Top = 2700 Width = 1290 End Begin VB.TextBox txtAuthMemSector Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 3750 TabIndex = 115 Text = "0" Top = 2700 Width = 840 End Begin VB.ComboBox cmbAuthMode Height = 300 ItemData = "frmMain.frx":00C4 Left = 2400 List = "frmMain.frx":00C6 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 114 Top = 1980 Width = 1290 End Begin VB.TextBox txtAuthSector Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 3750 TabIndex = 113 Text = "0" Top = 1980 Width = 840 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = 4200 TabIndex = 112 Text = "255" Top = 2340 Width = 390 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = 3750 TabIndex = 111 Text = "255" Top = 2340 Width = 390 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = 3300 TabIndex = 110 Text = "255" Top = 2340 Width = 390 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = 2850 TabIndex = 109 Text = "255" Top = 2340 Width = 390 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = 2400 TabIndex = 108 Text = "255" Top = 2340 Width = 390 End Begin VB.TextBox txtAuthKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = 4650 TabIndex = 107 Text = "255" Top = 2340 Width = 390 End Begin VB.ComboBox cmbSelLevel Height = 300 ItemData = "frmMain.frx":00C8 Left = 2400 List = "frmMain.frx":00CA Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 106 Top = 1620 Width = 1290 End Begin VB.TextBox txtSelSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = 4200 TabIndex = 105 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtSelSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = 4650 TabIndex = 104 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtSelSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = 5100 TabIndex = 103 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtSelSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = 5550 TabIndex = 102 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAntiSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = 5550 TabIndex = 101 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtAntiSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = 5100 TabIndex = 100 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtAntiSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = 4650 TabIndex = 99 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtAntiSnr Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = 4200 TabIndex = 98 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtAntiBitCnt Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 3750 TabIndex = 97 Text = "0" Top = 1260 Width = 390 End Begin VB.ComboBox cmbAntiLevel Height = 300 ItemData = "frmMain.frx":00CC Left = 2400 List = "frmMain.frx":00CE Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 96 Top = 1260 Width = 1290 End Begin VB.ComboBox cmbReqMode Height = 300 ItemData = "frmMain.frx":00D0 Left = 2400 List = "frmMain.frx":00D2 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 95 Top = 900 Width = 1290 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = -70350 TabIndex = 94 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 8 Left = 2400 TabIndex = 93 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 9 Left = 2850 TabIndex = 92 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 10 Left = 3300 TabIndex = 91 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 11 Left = 3750 TabIndex = 90 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 12 Left = 4200 TabIndex = 89 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 13 Left = 4650 TabIndex = 88 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 14 Left = 5100 TabIndex = 87 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 15 Left = 5550 TabIndex = 86 Text = "255" Top = 4140 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = 2400 TabIndex = 85 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = 2850 TabIndex = 84 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = 3300 TabIndex = 83 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = 3750 TabIndex = 82 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = 4200 TabIndex = 81 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = 4650 TabIndex = 80 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 6 Left = 5100 TabIndex = 79 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteData Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 7 Left = 5550 TabIndex = 78 Text = "255" Top = 3780 Width = 390 End Begin VB.TextBox txtWriteBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 2400 TabIndex = 77 Text = "0" Top = 3420 Width = 840 End Begin VB.TextBox txtReadBlock Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = 2400 TabIndex = 76 Text = "0" Top = 3060 Width = 840 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -72600 TabIndex = 75 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -72150 TabIndex = 74 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = -71700 TabIndex = 73 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = -71250 TabIndex = 72 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAutoLoginKey Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = -70800 TabIndex = 71 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtAutoLoginSector Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -69900 TabIndex = 70 Text = "0" Top = 1260 Width = 885 End Begin VB.ComboBox cmbAutoLoginAuth Height = 300 ItemData = "frmMain.frx":00D4 Left = -71220 List = "frmMain.frx":00D6 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 69 Top = 1260 Width = 1290 End Begin VB.ComboBox cmbAutoLoginMode Height = 300 ItemData = "frmMain.frx":00D8 Left = -72600 List = "frmMain.frx":00DA Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 68 Top = 1290 Width = 1290 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 7 Left = -69450 TabIndex = 67 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 6 Left = -69900 TabIndex = 66 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = -70350 TabIndex = 65 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = -70800 TabIndex = 64 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = -71250 TabIndex = 63 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = -71700 TabIndex = 62 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -72150 TabIndex = 61 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE3 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -72600 TabIndex = 60 Text = "255" Top = 1620 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 7 Left = -69450 TabIndex = 59 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 6 Left = -69900 TabIndex = 58 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 5 Left = -70350 TabIndex = 57 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 4 Left = -70800 TabIndex = 56 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 3 Left = -71250 TabIndex = 55 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 2 Left = -71700 TabIndex = 54 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -72150 TabIndex = 53 Text = "255" Top = 1260 Width = 390 End Begin VB.TextBox txtE2 Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -72600 TabIndex = 52 Text = "255" Top = 1260 Width = 390 End Begin VB.CommandButton cmdAuthentication2 Caption = "Authentication2" Height = 300 Left = -74700 TabIndex = 51 Top = 1260 Width = 2025 End Begin VB.CommandButton cmdAuthentication1 Caption = "Authentication1" Height = 300 Left = -74700 TabIndex = 50 Top = 900 Width = 2025 End Begin VB.CommandButton cmdLoadKeyMifareInMemory Caption = "LoadKey(Mem)" Enabled = 0 'False Height = 300 Left = -74700 TabIndex = 49 Top = 3390 Width = 2025 End Begin VB.CommandButton cmdLoadKeyMifare Caption = "LoadKeyMifare" Height = 300 Left = -74700 TabIndex = 48 Top = 2700 Width = 2025 End Begin VB.CommandButton cmdDecrementTransMifare Caption = "DecrementTrans" Height = 300 Left = -74700 TabIndex = 47 Top = 900 Width = 2025 End Begin VB.CommandButton cmdIncrementTransMifare Caption = "IncrementTrans" Height = 300 Left = -74700 TabIndex = 46 Top = 1260 Width = 2025 End Begin VB.CommandButton cmdRestoreTransMifare Caption = "RestoreTrans" Height = 300 Left = -74700 TabIndex = 45 Top = 1620 Width = 2025 End Begin VB.CommandButton cmdTransferMifare Caption = "Transfer" Height = 300 Left = -74700 TabIndex = 44 Top = 1980 Width = 2025 End Begin VB.CommandButton cmdHaltMifare Caption = "Halt" Height = 300 Left = -74700 TabIndex = 43 Top = 2340 Width = 2025 End Begin VB.CommandButton cmdRequestMifare Caption = "Request" Height = 300 Left = 300 TabIndex = 42 Top = 900 Width = 2025 End Begin VB.CommandButton cmdAnticollisionMifare Caption = "Anticollision" Height = 300 Left = 300 TabIndex = 41 Top = 1260 Width = 2025 End Begin VB.CommandButton cmdSelectMifare Caption = "Select" Height = 300 Left = 300 TabIndex = 40 Top = 1620 Width = 2025 End Begin VB.CommandButton cmdAuthenticationMifare Caption = "Authentication" Height = 300 Left = 300 TabIndex = 39 Top = 1980 Width = 2025 End Begin VB.CommandButton cmdAuthenticationMifareInMemory Caption = "Authentication(Mem)" Height = 300 Left = 300 TabIndex = 38 Top = 2700 Width = 2025 End Begin VB.CommandButton cmdReadMifare Caption = "Read" Height = 300 Left = 300 TabIndex = 37 Top = 3060 Width = 2025 End Begin VB.CommandButton cmdWriteMifare Caption = "Write" Height = 300 Left = 300 TabIndex = 36 Top = 3420 Width = 2025 End Begin VB.CommandButton cmdWriteUL Caption = "WriteUL" Enabled = 0 'False Height = 300 Left = 300 TabIndex = 35 Top = 4500 Width = 2025 End Begin VB.CommandButton cmdRestoreReadMifare Caption = "RestoreRead" Height = 300 Left = -74700 TabIndex = 34 Top = 3420 Width = 2025 End Begin VB.CommandButton cmdIncrementReadMifare Caption = "IncrementRead" Height = 300 Left = -74700 TabIndex = 33 Top = 3060 Width = 2025 End Begin VB.CommandButton cmdDecrementReadMifare Caption = "DecrementRead" Height = 300 Left = -74700 TabIndex = 32 Top = 2700 Width = 2025 End Begin VB.CommandButton cmdAutoLoginMifareInMemory Caption = "AutoLogin(Mem)" Height = 300 Left = -74700 TabIndex = 31 Top = 1980 Width = 2025 End Begin VB.CommandButton cmdAutoLoginMifare Caption = "AutoLogin" Height = 300 Left = -74700 TabIndex = 30 Top = 1260 Width = 2025 End Begin VB.CommandButton cmdAutoSelectMifare Caption = "AutoSelect" Height = 300 Left = -74700 TabIndex = 29 Top = 900 Width = 2025 End Begin VB.CommandButton cmdValueWriteMifare Caption = "ValueWrite" Height = 300 Left = -74700 TabIndex = 28 Top = 4860 Width = 2025 End Begin VB.CommandButton cmdWriteReadMifare Caption = "WriteRead" Height = 300 Left = -74700 TabIndex = 27 Top = 3780 Width = 2025 End Begin VB.CommandButton cmdGetCardCommCtrlInfo Caption = "GetCardCommCtrlInfo" Height = 300 Left = -74700 TabIndex = 26 Top = 1260 Width = 2025 End Begin VB.CommandButton cmdResetCardCommCtrl Caption = "ResetCardCommCtrl" Height = 300 Left = -74700 TabIndex = 25 Top = 900 Width = 2025 End Begin VB.CommandButton cmdGetCardCommInfo Caption = "GetCardCommInfo" Height = 300 Left = -74700 TabIndex = 24 Top = 1620 Width = 2025 End Begin VB.CommandButton cmdSetCarrierState Caption = "SetCarrierState" Height = 300 Left = -74700 TabIndex = 23 Top = 1980 Width = 2025 End Begin VB.ComboBox cmbCarrierState Height = 300 ItemData = "frmMain.frx":00DC Left = -72600 List = "frmMain.frx":00DE Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 22 Top = 1980 Width = 1290 End Begin VB.CommandButton cmdSetCardComm Caption = "SetCardComm" Height = 300 Left = -74700 TabIndex = 21 Top = 2340 Width = 2025 End Begin VB.ComboBox cmbCardType Height = 300 ItemData = "frmMain.frx":00E0 Left = -72600 List = "frmMain.frx":00E2 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 20 Top = 2340 Width = 1290 End Begin VB.ComboBox cmbCardUp Enabled = 0 'False Height = 300 ItemData = "frmMain.frx":00E4 Left = -71250 List = "frmMain.frx":00E6 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 19 Top = 2340 Width = 1290 End Begin VB.ComboBox cmbCardDown Enabled = 0 'False Height = 300 ItemData = "frmMain.frx":00E8 Left = -69900 List = "frmMain.frx":00EA Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 18 Top = 2340 Width = 1290 End Begin VB.CommandButton cmdSetCardTimeout Caption = "SetCardTimeout" Height = 300 Left = -74700 TabIndex = 17 Top = 2700 Width = 2025 End Begin VB.TextBox txtCardTimeout Alignment = 1 '‰E‘΅‚¦ Height = 300 Left = -72600 TabIndex = 16 Text = "1000" Top = 2700 Width = 840 End Begin VB.CommandButton cmdSetRecvMode Caption = "SetRecvMode" Height = 300 Left = -74700 TabIndex = 15 Top = 3060 Width = 2025 End Begin VB.CommandButton cmdResetMain Caption = "ResetMain" Height = 300 Left = -74700 TabIndex = 14 Top = 900 Width = 2025 End Begin VB.CommandButton cmdCheckCtrlState Caption = "CheckCtrlState" Height = 300 Left = -74700 TabIndex = 13 Top = 1260 Width = 2025 End Begin VB.CheckBox chkCtrlState Caption = "RWCtrl" Height = 300 Index = 0 Left = -72600 TabIndex = 12 Top = 1260 Value = 1 'Αͺ―Έ Width = 1005 End Begin VB.CheckBox chkCtrlState Caption = "CardCommCtrl" Height = 300 Index = 1 Left = -71250 TabIndex = 11 Top = 1260 Value = 1 'Αͺ―Έ Width = 1455 End Begin VB.CommandButton cmdGetReaderWriterInfo Caption = "GetReaderWriterInfo" Height = 300 Left = -74700 TabIndex = 10 Top = 1620 Width = 2025 End Begin VB.CommandButton cmdModifyHostBaudRate Caption = "ModifyHostBaudRate" Height = 300 Left = -74700 TabIndex = 9 Top = 1980 Width = 2025 End Begin VB.ComboBox cmbBaudRate Height = 300 ItemData = "frmMain.frx":00EC Left = -72600 List = "frmMain.frx":00EE Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 8 Top = 1980 Width = 1290 End Begin VB.CommandButton cmdSetLED Caption = "SetLED" Height = 300 Left = -74700 TabIndex = 7 Top = 2340 Width = 2025 End Begin VB.ComboBox cmbLEDMode Height = 300 ItemData = "frmMain.frx":00F0 Left = -72600 List = "frmMain.frx":00F2 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 6 Top = 2340 Width = 1290 End Begin VB.TextBox txtLEDInterval Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 0 Left = -71250 TabIndex = 5 Text = "1000" Top = 2340 Width = 840 End Begin VB.TextBox txtLEDInterval Alignment = 1 '‰E‘΅‚¦ Height = 300 Index = 1 Left = -70350 TabIndex = 4 Text = "1000" Top = 2340 Width = 840 End End Begin VB.CommandButton cmdDisconnect Caption = "Disconnect" Enabled = 0 'False Height = 300 Left = 210 TabIndex = 2 Top = 500 Width = 1065 End Begin VB.ComboBox cmbCtrlBaudRate Height = 300 ItemData = "frmMain.frx":00F4 Left = 180 List = "frmMain.frx":00F6 Style = 2 'ΔήΫ―Μίΐή³έ Ψ½Δ TabIndex = 1 Top = 1215 Width = 1095 End Begin VB.CommandButton cmdConnect Caption = "Connect" Height = 300 Left = 210 TabIndex = 0 Top = 150 Width = 1065 End End Attribute VB_Name = "frmMain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private m_eng As CaoEngine Private m_ctrl As CaoController Private m_ext As CaoExtension Private Sub Form_Load() Set m_eng = New CaoEngine With cmbCtrlBaudRate .AddItem ("9600") .AddItem ("19200") .AddItem ("38400") .AddItem ("614400") .AddItem ("28800") .AddItem ("57600") .AddItem ("115200") .AddItem ("230400") .AddItem ("460800") .ListIndex = 0 End With With cmbBaudRate .AddItem ("9600") .AddItem ("19200") .AddItem ("38400") .AddItem ("614400") .AddItem ("28800") .AddItem ("57600") .AddItem ("115200") .AddItem ("230400") .AddItem ("460800") .ListIndex = 0 End With With cmbLEDMode .AddItem ("Default") .ItemData(.NewIndex) = 0 .AddItem ("OFF") .ItemData(.NewIndex) = 1 .AddItem ("ON") .ItemData(.NewIndex) = 2 .AddItem ("Flash") .ItemData(.NewIndex) = 3 .ListIndex = 0 End With With cmbCarrierState .AddItem ("OFF") .ItemData(.NewIndex) = 0 .AddItem ("ON") .ItemData(.NewIndex) = 1 .AddItem ("ON HighPower") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbCardType .AddItem ("TypeA") .ItemData(.NewIndex) = 2 .AddItem ("TypeB") .ItemData(.NewIndex) = 3 .AddItem ("Felica") .ItemData(.NewIndex) = 4 .ListIndex = 0 End With With cmbCardUp .AddItem ("106 kbps") .AddItem ("212 kbps") .AddItem ("424 kbps") .AddItem ("848 kbps") .ListIndex = 0 End With With cmbCardDown .AddItem ("106 kbps") .AddItem ("212 kbps") .AddItem ("424 kbps") .AddItem ("848 kbps") .ListIndex = 0 End With With cmbReqMode .AddItem ("Request Std") .ItemData(.NewIndex) = 1 .AddItem ("Request All") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAntiLevel .AddItem ("Level 1") .ItemData(.NewIndex) = 1 .AddItem ("Level 2") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbSelLevel .AddItem ("Level 1") .ItemData(.NewIndex) = 1 .AddItem ("Level 2") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAuthMode .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAuthMemMode .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbLoadAuth .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbLoadMemAuth .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbLoadMemType .AddItem ("Šφ”­«") .ItemData(.NewIndex) = 1 .AddItem ("•sŠφ”­«") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAutoSelMode .AddItem ("Request Std") .ItemData(.NewIndex) = 1 .AddItem ("Request All") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAutoLoginMode .AddItem ("Request Std") .ItemData(.NewIndex) = 1 .AddItem ("Request All") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAutoLoginAuth .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAutoLoginMemMode .AddItem ("Request Std") .ItemData(.NewIndex) = 1 .AddItem ("Request All") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With With cmbAutoLoginMemAuth .AddItem ("Key A") .ItemData(.NewIndex) = 1 .AddItem ("Key B") .ItemData(.NewIndex) = 2 .ListIndex = 0 End With End Sub Private Sub cmdConnect_Click() Set m_ctrl = m_eng.Workspaces(0).AddController("IC", "CaoProv.DENSO.ICCard", "", "Port=" & txtPort.Text & ", timeout=5000, BaudRate=" & cmbCtrlBaudRate.Text) cmdConnect.Enabled = False cmdDisconnect.Enabled = True Set m_ext = m_ctrl.AddExtension("@Mifare") End Sub Private Sub cmdDisconnect_Click() Set m_ctrl = Nothing m_eng.Workspaces(0).Controllers.Clear cmdConnect.Enabled = True cmdDisconnect.Enabled = False End Sub Private Sub cmdResetMain_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ctrl.Execute("ResetMain") Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdCheckCtrlState_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ctrl.Execute("CheckCtrlState", Array(chkCtrlState(0).Value, chkCtrlState(1).Value)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdGetReaderWriterInfo_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ctrl.Execute("GetReaderWriterInfo") MsgBox "GetReaderWriterInfo" & vbCrLf & _ vbTab & "Cnt: " & varVal(0) & vbCrLf & _ vbTab & "Ver: " & varVal(1)(0) & ", " & varVal(1)(1) & ", " & varVal(1)(2) & ", " & varVal(1)(3) & vbCrLf & _ vbTab & "Info: " & varVal(2)(0) & ", " & varVal(2)(1) & ", " & varVal(2)(2) & ", " & varVal(2)(3) & ", " & varVal(2)(4) & ", " & varVal(2)(5) & ", " & varVal(2)(6) & ", " & varVal(2)(7) & vbCrLf Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdModifyHostBaudRate_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ctrl.Execute("ModifyHostBaudRate", cmbBaudRate.ListIndex) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSetLED_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ctrl.Execute("SetLED", Array(cmbLEDMode.ItemData(cmbLEDMode.ListIndex), txtLEDInterval(0).Text, txtLEDInterval(1).Text)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdResetCardCommCtrl_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("ResetCardCommCtrl") Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdGetCardCommCtrlInfo_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("GetCardCommCtrlInfo") MsgBox "Cnt: " & varVal(0) & vbCrLf & _ "Ver: " & varVal(1)(0) & ", " & varVal(1)(1) & ", " & varVal(1)(2) & ", " & varVal(1)(3) & vbCrLf & _ "Info: " & varVal(2)(0) & ", " & varVal(2)(1) & ", " & varVal(2)(2) & ", " & varVal(2)(3) & ", " & varVal(2)(4) & ", " & varVal(2)(5) & ", " & varVal(2)(6) & ", " & varVal(2)(7) & vbCrLf Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdGetCardCommInfo_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("GetCardCommInfo") MsgBox "Type: " & varVal(0) & vbCrLf & _ "baudRate: " & varVal(1) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSetCarrierState_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("SetCarrierState", cmbCarrierState.ItemData(cmbCarrierState.ListIndex)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSetCardComm_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("SetCardComm", cmbCardType.ItemData(cmbCardType.ListIndex)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSetCardTimeout_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("SetCardTimeout", txtCardTimeout) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSetRecvMode_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("SetRecvMode") Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAuthentication1_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Authentication1") MsgBox "E1: " & varVal(0) & ", " & varVal(1) & ", " & varVal(2) & ", " & varVal(3) & ", " & varVal(4) & ", " & varVal(5) & ", " & varVal(6) & ", " & varVal(7) Dim i As Long For i = 0 To 7 txtE2(i).Text = varVal(i) Next Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAuthentication2_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Authentication2", Array(Array(txtE2(0).Text, txtE2(1).Text, txtE2(2).Text, txtE2(3).Text, txtE2(4).Text, txtE2(5).Text, txtE2(6).Text, txtE2(7).Text), _ Array(txtE3(0).Text, txtE3(1).Text, txtE3(2).Text, txtE3(3).Text, txtE3(4).Text, txtE3(5).Text, txtE3(6).Text, txtE3(7).Text))) MsgBox "E4: " & varVal(0) & ", " & varVal(1) & ", " & varVal(2) & ", " & varVal(3) & ", " & varVal(4) & ", " & varVal(5) & ", " & varVal(6) & ", " & varVal(7) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdRequestMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Request", cmbReqMode.ItemData(cmbReqMode.ListIndex)) MsgBox "ATQ: " & varVal(0) & ", " & varVal(1) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAnticollisionMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Anticollision", Array(cmbAntiLevel.ItemData(cmbAntiLevel.ListIndex), _ txtAntiBitCnt.Text, _ Array(txtAntiSnr(0).Text, txtAntiSnr(1).Text, txtAntiSnr(2).Text, txtAntiSnr(3).Text))) MsgBox "Snr: " & varVal(0) & ", " & varVal(1) & ", " & varVal(2) & ", " & varVal(3) Dim i As Long For i = 0 To 3 txtSelSnr(i).Text = varVal(i) Next Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdSelectMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Select", Array(cmbAntiLevel.ItemData(cmbAntiLevel.ListIndex), _ Array(txtSelSnr(0).Text, txtSelSnr(1).Text, txtSelSnr(2).Text, txtSelSnr(3).Text))) MsgBox "SAK: " & varVal Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAuthenticationMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Authentication", Array(txtAuthSector.Text, _ cmbAuthMode.ItemData(cmbAuthMode.ListIndex), _ Array(txtAuthKey(0).Text, txtAuthKey(1).Text, txtAuthKey(2).Text, txtAuthKey(3).Text, txtAuthKey(4).Text, txtAuthKey(5).Text))) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAuthenticationMifareInMemory_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("AuthenticationInMemory", Array(txtAuthMemSector.Text, _ cmbAuthMemMode.ItemData(cmbAuthMemMode.ListIndex), _ txtAuthMemNo)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdReadMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Read", txtReadBlock.Text) MsgBox "Data: " & varVal(0) & ", " & varVal(1) & ", " & varVal(2) & ", " & varVal(3) & ", " & varVal(4) & ", " & varVal(5) & ", " & varVal(6) & ", " & varVal(7) & ", " & _ varVal(8) & ", " & varVal(9) & ", " & varVal(10) & ", " & varVal(11) & ", " & varVal(12) & ", " & varVal(13) & ", " & varVal(14) & ", " & varVal(15) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdWriteMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Write", Array(txtWriteBlock.Text, Array(txtWriteData(0), txtWriteData(1), txtWriteData(2), txtWriteData(3), txtWriteData(4), txtWriteData(5), txtWriteData(6), txtWriteData(7), _ txtWriteData(8), txtWriteData(9), txtWriteData(10), txtWriteData(11), txtWriteData(12), txtWriteData(13), txtWriteData(14), txtWriteData(15)))) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdDecrementTransMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("DecrementTrans", Array(txtDTDecBlock.Text, txtDTTransBlock.Text, txtDTValue.Text)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdIncrementTransMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("IncrementTrans", Array(txtITIncBlock.Text, txtITTransBlock.Text, txtITValue.Text)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdRestoreTransMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("RestoreTrans", Array(txtRTResBlock.Text, txtRTTransBlock.Text)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdTransferMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Transfer", txtTrans.Text) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdHaltMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("Halt") Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdLoadKeyMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("LoadKey", Array(cmbLoadAuth.ItemData(cmbLoadAuth.ListIndex), _ txtLoadSector.Text, _ Array(txtLoadKey(0).Text, txtLoadKey(1).Text, txtLoadKey(2).Text, txtLoadKey(3).Text, txtLoadKey(4).Text, txtLoadKey(5).Text))) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdLoadKeyMifareInMemory_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("LoadKeyInMemory", Array(cmbLoadMemAuth.ItemData(cmbLoadMemAuth.ListIndex), _ txtLoadMemSector.Text, _ cmbLoadMemType.ItemData(cmbLoadMemType.ListIndex), _ txtLoadMemNo)) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAutoSelectMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("AutoSelect", Array(cmbAutoSelMode.ItemData(cmbAutoSelMode.ListIndex))) MsgBox "ATQ: " & varVal(0)(0) & ", " & varVal(0)(1) & vbCrLf & _ "Snr: " & varVal(1)(0) & ", " & varVal(1)(1) & ", " & varVal(1)(2) & ", " & varVal(1)(3) & ", " & varVal(1)(4) & ", " & varVal(1)(5) & ", " & varVal(1)(6) & ", " & varVal(1)(7) & ", " & vbCrLf & _ "SAK: " & varVal(2) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAutoLoginMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("AutoLogin", Array(cmbAutoLoginMode.ItemData(cmbAutoLoginMode.ListIndex), _ txtAutoLoginSector.Text, _ cmbAutoLoginAuth.ItemData(cmbAutoLoginAuth.ListIndex), _ Array(txtAutoLoginKey(0).Text, txtAutoLoginKey(1).Text, txtAutoLoginKey(2).Text, txtAutoLoginKey(3).Text, txtAutoLoginKey(4).Text, txtAutoLoginKey(5).Text))) MsgBox "ATQ: " & varVal(0)(0) & ", " & varVal(0)(1) & vbCrLf & _ "Snr: " & varVal(1)(0) & ", " & varVal(1)(1) & ", " & varVal(1)(2) & ", " & varVal(1)(3) & ", " & vbCrLf & _ "SAK: " & varVal(2) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdAutoLoginMifareInMemory_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("AutoLoginInMemory", Array(cmbAutoLoginMemMode.ItemData(cmbAutoLoginMemMode.ListIndex), _ txtAutoLoginMemSector.Text, _ cmbAutoLoginMemAuth.ItemData(cmbAutoLoginMemAuth.ListIndex), _ txtAutoLoginMemNo.Text)) MsgBox "ATQ: " & varVal(0)(0) & ", " & varVal(0)(1) & vbCrLf & _ "Snr: " & varVal(1)(0) & ", " & varVal(1)(1) & ", " & varVal(1)(2) & ", " & varVal(1)(3) & ", " & vbCrLf & _ "SAK: " & varVal(2) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdDecrementReadMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("DecrementRead", Array(txtDRDecBlock.Text, txtDRTransBlock.Text, txtDRValue.Text)) MsgBox "Data: " & varVal Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdIncrementReadMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("IncrementRead", Array(txtIRIncBlock.Text, txtIRTransBlock.Text, txtIRValue.Text)) MsgBox "Data: " & varVal Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdRestoreReadMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("RestoreRead", Array(txtRRResBlock.Text, txtRRTransBlock.Text)) MsgBox "Data: " & varVal Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdWriteReadMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("WriteRead", Array(txtWriteReadBlock.Text, Array(txtWriteReadData(0), txtWriteReadData(1), txtWriteReadData(2), txtWriteReadData(3), txtWriteReadData(4), txtWriteReadData(5), txtWriteReadData(6), txtWriteReadData(7), _ txtWriteReadData(8), txtWriteReadData(9), txtWriteReadData(10), txtWriteReadData(11), txtWriteReadData(12), txtWriteReadData(13), txtWriteReadData(14), txtWriteReadData(15)))) MsgBox "Data: " & varVal(0) & ", " & varVal(1) & ", " & varVal(2) & ", " & varVal(3) & ", " & varVal(4) & ", " & varVal(5) & ", " & varVal(6) & ", " & varVal(7) & ", " & _ varVal(8) & ", " & varVal(9) & ", " & varVal(10) & ", " & varVal(11) & ", " & varVal(12) & ", " & varVal(13) & ", " & varVal(14) & ", " & varVal(15) Exit Sub ErrProc: MsgBox Err.Description End Sub Private Sub cmdValueWriteMifare_Click() On Error GoTo ErrProc Dim varVal As Variant varVal = m_ext.Execute("ValueWrite", Array(txtValueWriteBlock.Text, txtValueWriteVal.Text)) MsgBox "Data: " & varVal Exit Sub ErrProc: MsgBox Err.Description End Sub