📄 dialog.frm
字号:
TabIndex = 10
Top = 240
Width = 495
End
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "Key"
BeginProperty Font
Name = "Times New Roman"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1335
Left = 360
TabIndex = 1
Top = 840
Width = 1095
Begin VB.OptionButton OptionsetB
BackColor = &H00FFC0C0&
Caption = "Option2"
Height = 255
Left = 120
TabIndex = 3
Top = 840
Width = 255
End
Begin VB.OptionButton OptionsetA
BackColor = &H00FFC0C0&
Caption = "Option1"
Height = 255
Left = 120
TabIndex = 2
Top = 360
Width = 255
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "Set B"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 5
Top = 840
Width = 495
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "Set A"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 4
Top = 360
Width = 495
End
End
Begin VB.Label Label9
BackColor = &H00FFC0C0&
Caption = "Status"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 29
Top = 360
Width = 735
End
End
End
Attribute VB_Name = "Loadkey"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CmdClear_Click()
Dim i As Integer
For i = 0 To 5
Text1(i).Text = ""
Next i
End Sub
Private Sub CmdExit_Click()
Demokit.Enabled = True
' frmmifarelight.Enabled = True
Loadkey.Hide
End Sub
Private Sub cmdLoadkey_Click()
'There are all together 6 mode(keysets),i.e mode 0,1,2,4,5,6
'KeyA KeySet0 = mode 0 'KeyB KeySet0 = mode 4
'KeyA KeySet1 = mode 1 'KeyB KeySet1 = mode 5
'KeyA KeySet2 = mode 2 'KeyB KeySet2 = mode 6
'mifsw_load_key(mode,keynumber,transportkey,newkey)
'This example only loads Key Set into mode 0(KEYA KEYSET0) for 16 sectors (sector 0 to 15)
Dim intkeynr As Integer
Dim keynr(0 To 5) As Byte
Dim i As Integer
'********Transport Key(common for all keysets) ********************
'TKey(byte, secno)
TKey(0, 0) = &HBD
TKey(1, 0) = &HDE
TKey(2, 0) = &H6F
TKey(3, 0) = &H37
TKey(4, 0) = &H83
TKey(5, 0) = &H83
TKey(0, 1) = (&H14)
TKey(1, 1) = (&H8A)
TKey(2, 1) = (&HC5)
TKey(3, 1) = (&HE2)
TKey(4, 1) = (&H28)
TKey(5, 1) = (&H28)
TKey(0, 2) = (&H7D)
TKey(1, 2) = (&H3E)
TKey(2, 2) = (&H9F)
TKey(3, 2) = (&H4F)
TKey(4, 2) = (&H95)
TKey(5, 2) = (&H95)
TKey(0, 3) = (&HAD)
TKey(1, 3) = (&HD6)
TKey(2, 3) = (&H6B)
TKey(3, 3) = (&H35)
TKey(4, 3) = (&HC8)
TKey(5, 3) = (&HC8)
TKey(0, 4) = (&HDF)
TKey(1, 4) = (&HEF)
TKey(2, 4) = (&H77)
TKey(3, 4) = (&HBB)
TKey(4, 4) = (&HE4)
TKey(5, 4) = (&HE4)
TKey(0, 5) = (&H9)
TKey(1, 5) = (&H84)
TKey(2, 5) = (&H42)
TKey(3, 5) = (&H21)
TKey(4, 5) = (&HBC)
TKey(5, 5) = (&HBC)
TKey(0, 6) = (&H5F)
TKey(1, 6) = (&HAF)
TKey(2, 6) = (&HD7)
TKey(3, 6) = (&HEB)
TKey(4, 6) = (&HA5)
TKey(5, 6) = (&HA5)
TKey(0, 7) = (&H29)
TKey(1, 7) = (&H14)
TKey(2, 7) = (&H8A)
TKey(3, 7) = (&HC5)
TKey(4, 7) = (&H9F)
TKey(5, 7) = (&H9F)
TKey(0, 8) = (&HFA)
TKey(1, 8) = (&HFD)
TKey(2, 8) = (&HFE)
TKey(3, 8) = (&H7F)
TKey(4, 8) = (&HFF)
TKey(5, 8) = (&HFF)
TKey(0, 9) = (&H73)
TKey(1, 9) = (&H39)
TKey(2, 9) = (&H9C)
TKey(3, 9) = (&HCE)
TKey(4, 9) = (&HBE)
TKey(5, 9) = (&HBE)
TKey(0, 10) = (&HFC)
TKey(1, 10) = (&H7E)
TKey(2, 10) = (&HBF)
TKey(3, 10) = (&HDF)
TKey(4, 10) = (&HBF)
TKey(5, 10) = (&HBF)
TKey(0, 11) = (&HCF)
TKey(1, 11) = (&HE7)
TKey(2, 11) = (&H73)
TKey(3, 11) = (&H39)
TKey(4, 11) = (&H51)
TKey(5, 11) = (&H51)
TKey(0, 12) = (&HF7)
TKey(1, 12) = (&HFB)
TKey(2, 12) = (&H7D)
TKey(3, 12) = (&H3E)
TKey(4, 12) = (&H5A)
TKey(5, 12) = (&H5A)
TKey(0, 13) = (&HF2)
TKey(1, 13) = (&H79)
TKey(2, 13) = (&H3C)
TKey(3, 13) = (&H1E)
TKey(4, 13) = (&H8D)
TKey(5, 13) = (&H8D)
TKey(0, 14) = (&HCF)
TKey(1, 14) = (&HE7)
TKey(2, 14) = (&H73)
TKey(3, 14) = (&H39)
TKey(4, 14) = (&H45)
TKey(5, 14) = (&H45)
TKey(0, 15) = (&HB7)
TKey(1, 15) = (&HDB)
TKey(2, 15) = (&H6D)
TKey(3, 15) = (&HB6)
TKey(4, 15) = (&H7D)
TKey(5, 15) = (&H7D)
loadkeystatus = &H0
If OptionsetA.value Then
If Optionset0.value Then
For i = 0 To 5
keynr(i) = nKeyA(i)
Next i
mode = 0
Else
If Optionset1.value Then
For i = 0 To 5
keynr(i) = nKeyA(i)
Next i
mode = 1
Else
If Optionset2.value Then
For i = 0 To 5
keynr(i) = nKeyA(i)
Next i
mode = 2
End If
End If
End If
Else
If Optionset0.value Then
For i = 0 To 5
keynr(i) = nKeyB(i)
Next i
mode = 4
Else
If Optionset1.value Then
For i = 0 To 5
keynr(i) = nKeyB(i)
Next i
mode = 5
Else
If Optionset2.value Then
For i = 0 To 5
keynr(i) = nKeyB(i)
Next i
mode = 6
End If
End If
End If
End If
For intkeynr = 0 To 15
MifStatus = mifsw_load_key(mode, intkeynr, TKey(mode, intkeynr), keynr(0))
If MifStatus = -4 Then
MifStatus = mifsw_exit%()
Exit Sub
Else
cmdLoadkey.Enabled = False
loadkeystatus = &HFF
End If
Next intkeynr
If loadkeystatus Then
Textstatus.Text = " Load Key -> Ok"
Else
Textstatus.Text = "Load Key -> Error "
End If
cmdLoadkey.Enabled = True
End Sub
Private Sub Form_Load()
OptionsetA.value = True
Optionset0.value = True
Optionphilips.value = True
If Optionphilips.value Then
Text1(0).Text = "FF"
Text1(1).Text = "FF"
Text1(2).Text = "FF"
Text1(3).Text = "FF"
Text1(4).Text = "FF"
Text1(5).Text = "FF"
nKeyA(0) = &HFF
nKeyA(1) = &HFF
nKeyA(2) = &HFF
nKeyA(3) = &HFF
nKeyA(4) = &HFF
nKeyA(5) = &HFF
nKeyB(0) = &HFF
nKeyB(1) = &HFF
nKeyB(2) = &HFF
nKeyB(3) = &HFF
nKeyB(4) = &HFF
nKeyB(5) = &HFF
mode = 0
End If
End Sub
Private Sub Optioncustomer_Click()
Text1(0).Text = ""
Text1(1).Text = ""
Text1(2).Text = ""
Text1(3).Text = ""
Text1(4).Text = ""
Text1(5).Text = ""
End Sub
Private Sub Optionphilips_Click()
If OptionsetA.value Then
Text1(0).Text = "FF"
Text1(1).Text = "FF"
Text1(2).Text = "FF"
Text1(3).Text = "FF"
Text1(4).Text = "FF"
Text1(5).Text = "FF"
nKeyA(0) = &HFF
nKeyA(1) = &HFF
nKeyA(2) = &HFF
nKeyA(3) = &HFF
nKeyA(4) = &HFF
nKeyA(5) = &HFF
Else
Text1(0).Text = "FF"
Text1(1).Text = "FF"
Text1(2).Text = "FF"
Text1(3).Text = "FF"
Text1(4).Text = "FF"
Text1(5).Text = "FF"
nKeyB(0) = &HFF
nKeyB(1) = &HFF
nKeyB(2) = &HFF
nKeyB(3) = &HFF
nKeyB(4) = &HFF
nKeyB(5) = &HFF
End If
End Sub
Private Sub Optionsiemens_Click()
If OptionsetA.value Then
Text1(0).Text = "A0"
Text1(1).Text = "A1"
Text1(2).Text = "A2"
Text1(3).Text = "A3"
Text1(4).Text = "A4"
Text1(5).Text = "A5"
nKeyA(0) = &HA0
nKeyA(1) = &HA1
nKeyA(2) = &HA2
nKeyA(3) = &HA3
nKeyA(4) = &HA4
nKeyA(5) = &HA5
Else
Text1(0).Text = "B0"
Text1(1).Text = "B1"
Text1(2).Text = "B2"
Text1(3).Text = "B3"
Text1(4).Text = "B4"
Text1(5).Text = "B5"
nKeyA(0) = &HB0
nKeyA(1) = &HB1
nKeyA(2) = &HB2
nKeyA(3) = &HB3
nKeyA(4) = &HB4
nKeyA(5) = &HB5
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -