📄 demokitwei.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Demokit
BackColor = &H00FFFFFF&
Caption = "Mifare One 密码更改"
ClientHeight = 6435
ClientLeft = 120
ClientTop = 120
ClientWidth = 7740
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
OLEDropMode = 1 'Manual
ScaleHeight = 321.75
ScaleMode = 2 'Point
ScaleWidth = 387
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdReadsnr
BackColor = &H00C0C000&
Caption = "读取卡号"
Enabled = 0 'False
Height = 375
Left = 360
Style = 1 'Graphical
TabIndex = 23
Top = 4080
Width = 2295
End
Begin VB.CommandButton CommandLoadkey
BackColor = &H00C0C000&
Caption = "下载密码"
Enabled = 0 'False
Height = 375
Left = 360
Style = 1 'Graphical
TabIndex = 22
Top = 4680
Width = 2295
End
Begin VB.Frame Frame2
BackColor = &H00FFFFFF&
Caption = "原密码(字母必须大写)"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 2055
Index = 0
Left = 120
TabIndex = 7
Top = 1680
Width = 2895
Begin VB.TextBox Text2
Height = 375
Index = 5
Left = 2040
MaxLength = 2
TabIndex = 19
Top = 1440
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Index = 4
Left = 1680
MaxLength = 2
TabIndex = 18
Top = 1440
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Index = 3
Left = 1320
MaxLength = 2
TabIndex = 17
Top = 1440
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Index = 2
Left = 960
MaxLength = 2
TabIndex = 16
Top = 1440
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Index = 1
Left = 600
MaxLength = 2
TabIndex = 15
Top = 1440
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 5
Left = 2040
MaxLength = 2
TabIndex = 13
Top = 600
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 4
Left = 1680
MaxLength = 2
TabIndex = 12
Top = 600
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 3
Left = 1320
MaxLength = 2
TabIndex = 11
Top = 600
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 2
Left = 960
MaxLength = 2
TabIndex = 10
Top = 600
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 1
Left = 600
MaxLength = 2
TabIndex = 9
Top = 600
Width = 375
End
Begin VB.TextBox Text2
Height = 375
Index = 0
Left = 240
MaxLength = 2
TabIndex = 14
Top = 1440
Width = 375
End
Begin VB.TextBox Text1
Height = 360
Index = 0
Left = 240
MaxLength = 2
TabIndex = 8
Top = 600
Width = 375
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
Caption = "KEYB"
Height = 255
Left = 240
TabIndex = 21
Top = 1200
Width = 735
End
Begin VB.Label Label1
BackColor = &H00FFFFFF&
Caption = "KEYA"
Height = 255
Left = 240
TabIndex = 20
Top = 360
Width = 735
End
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 1680
Top = 7800
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 1200
Top = 7800
End
Begin VB.CommandButton cmdloadkey
BackColor = &H00C0C000&
Caption = "开始读卡"
Enabled = 0 'False
Height = 375
Left = 360
Style = 1 'Graphical
TabIndex = 5
Top = 5280
Width = 2295
End
Begin VB.CommandButton cmdEnd
BackColor = &H00C0C000&
Caption = "退出程序"
Height = 375
Left = 360
Style = 1 'Graphical
TabIndex = 4
Top = 5880
Width = 2295
End
Begin VB.Frame Framestatus
BackColor = &H00FFFFFF&
Caption = "状态"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 6135
Left = 3120
TabIndex = 3
Top = 120
Width = 4455
Begin RichTextLib.RichTextBox Textstatus
Height = 5535
Left = 240
TabIndex = 6
Top = 360
Width = 3975
_ExtentX = 7011
_ExtentY = 9763
_Version = 393217
BackColor = -2147483644
ScrollBars = 3
TextRTF = $"Demokitwei.frx":0000
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "连接读写器"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1335
Left = 120
TabIndex = 0
Top = 120
Width = 2895
Begin VB.CommandButton cmdExit
BackColor = &H00C0C000&
Caption = "关闭读卡器"
Enabled = 0 'False
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 2
Top = 840
Width = 2295
End
Begin VB.CommandButton cmdOpenPort
BackColor = &H00C0C000&
Caption = "连接读卡器"
Height = 375
Left = 240
Style = 1 'Graphical
TabIndex = 1
Top = 360
Width = 2295
End
End
Begin VB.Menu mnuFile
Caption = "系统"
Index = 0
Begin VB.Menu mnuFileOpen
Caption = "连接读卡器"
Shortcut = ^O
End
Begin VB.Menu mnuFileClose
Caption = "关闭读卡器"
Enabled = 0 'False
Shortcut = ^C
End
Begin VB.Menu mnuspace
Caption = "-"
End
Begin VB.Menu mnuFileLoadkey
Caption = "加载密钥"
Enabled = 0 'False
Shortcut = ^L
End
Begin VB.Menu mnuspace2
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出"
Shortcut = ^X
End
End
End
Attribute VB_Name = "Demokit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim h As String
Dim s As String
Dim k As Integer
Dim DataString(0 To 15, 0) As Byte
Dim CardNumber As Integer
Private Sub cmdAnticollision_Click()
MifStatus = mifsw_anticoll%(mode, snr)
If MifStatus <> 0 Then
MsgBox "Anticollision Error, " + CStr(MifStatus)
Exit Sub
Else
Textstatus.Text = Textstatus.Text & "Anticollision -> Ok " & Chr(10)
End If
End Sub
Private Sub cmdAuthentication_Click()
Call modestatus(modestring)
MifStatus = mifsw_authentication(mode, SecNr)
If MifStatus <> 0 Then
Textstatus.Text = Textstatus.Text & "Authentication Error" & Chr(10)
Exit Sub
Else
Textstatus.Text = Textstatus.Text & "Authentication -> Ok" & modestring & Chr(10)
End If
End Sub
Private Sub cmdDectransfer_Click()
frmdecvalue.Show
End Sub
Private Sub cmdbegin_Click(Index As Integer)
Timer2.Enabled = True
End Sub
Private Sub cmdEnd_Click()
MifStatus = mifsw_exit%()
Unload Demokit
End
End Sub
Private Sub cmdHalt_Click()
Call ReqtoAuthen(cobosector.Text)
MifStatus = mifsw_halt()
If MifStatus <> 0 Then
Textstatus.Text = Textstatus.Text & "Halt -> Error" & Chr(10)
Else
Textstatus.Text = Textstatus.Text & "Halt -> Ok" & Chr(10)
End If
End Sub
Private Sub cmdInctransfer_Click()
frmincvalue.Show
End Sub
Private Sub cmdLoadkey_Click()
Dim Strtext(0 To 5) As String
Dim x As Integer
' Text1(0).Text = "A0"
' Text1(1).Text = "A1"
' Text1(2).Text = "A2"
' Text1(3).Text = "A3"
' Text1(4).Text = "A4"
' Text1(5).Text = "A5"
For x = 0 To 5
Strtext(x) = Text1(x).Text
Strtext(x) = "&H" & Strtext(x)
nKeyA(x) = Strtext(x)
Next x
For x = 0 To 5
Strtext(x) = Text2(x).Text
Strtext(x) = "&H" & Strtext(x)
nKeyB(x) = Strtext(x)
Next x
For x = 0 To 5
If Text3(x).Text = "" Then
DataString(x, 0) = "&h00"
Else
DataString(x, 0) = "&H" & Text3(x).Text
End If
If Text4(x).Text = "" Then
DataString(x + 10, 0) = "&h00"
Else
DataString(x + 10, 0) = "&H" & Text4(x).Text
End If
Next x
DataString(6, 0) = &HFF
DataString(7, 0) = &H7
DataString(8, 0) = &H80
DataString(9, 0) = &H69
MifStatus = loadkeystatus
If MifStatus <> 0 Then
Exit Sub
End If
' nKeyA(1) = Hex(Text1(0).Text)
' nKeyA(2) = Hex(Text1(0).Text)
' nKeyA(3) = Hex(Text1(0).Text)
' nKeyA(4) = Hex(Text1(0).Text)
' nKeyA(5) = &HA5
' 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
'
snr = 0
snr1 = 0
snr2 = 0
CardNumber = 0
Textstatus.Text = ""
' Command1.Enabled = False
Timer2.Enabled = True
Textstatus.Enabled = True
End Sub
Private Sub cmdOpenPort_Click()
cmdOpenPort.Enabled = False
k = 1
Timer1.Enabled = True
End Sub
Private Sub CmdExit_Click()
cmdOpenPort.Enabled = True
cmdExit.Enabled = False
cmdloadkey.Enabled = False
cmdEnd.Enabled = True
' Command1.Enabled = False
MifStatus = mifsw_exit%()
If MifStatus <> 0 Then
Textstatus.Text = "关闭读卡器错误！"
Else
Textstatus.Text = "成功关闭读卡器！"
End If
End Sub
Private Sub ReqtoAuthen(ByVal SecNr)
Call modestatus(modestring)
MifStatus = mifsw_request_2%(mode, tagtype) 'request mode= 1
If MifStatus <> 0 Then
MifStatus = mifsw_request_2%(mode, tagtype)
If MifStatus <> 0 Then
Exit Sub
End If
End If
MifStatus = mifsw_anticoll%(mode, snr)
If MifStatus <> 0 Then
Exit Sub
End If
MifStatus = mifsw_select%(snr, Size(0))
If MifStatus <> 0 Then
Exit Sub
End If
MifStatus = mifsw_authentication%(mode, SecNr) 'mode=0, SecNr
If MifStatus <> 0 Then
Exit Sub
End If
End Sub
Private Sub ReqtoAnticoll(ByVal SecNr)
Call modestatus(modestring)
MifStatus = mifsw_request_2%(mode, tagtype) 'request mode= 1
If MifStatus <> 0 Then
MifStatus = mifsw_request_2%(mode, tagtype)
If MifStatus <> 0 Then
Exit Sub
End If
End If
MifStatus = mifsw_anticoll%(mode, snr)
If MifStatus <> 0 Then
Exit Sub
End If
End Sub
Private Sub CmdRead_Click()
' OptionHex.Enabled = True
' OptionText.Enabled = True
' Labelhex.Enabled = True
' Labeltext.Enabled = True
' OptionValue.Enabled = False
' Labelvalue.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -