• VB.Net读写NFC Ntag标签源码

    读写器介绍 ：USB液显ISO14443-A读写器 RFID读写器 M1/S50/S70/F08/ULtralight-淘宝网 (taobao.com)https://item.taobao.com/item.htm?spm=a1z10.5-c.w4002-17663462238.13.69f6e728nD9A5a&id=18645603742


    Public Class Form1
        Inherits System.Windows.Forms.Form

    #Region " Windows 窗体设计器生成的代码 "

        Public Sub New()
            MyBase.New()

            '该调用是 Windows 窗体设计器所必需的。
            InitializeComponent()

            '在 InitializeComponent() 调用之后添加任何初始化

        End Sub

        '窗体重写 dispose 以清理组件列表。
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        'Windows 窗体设计器所必需的
        Private components As System.ComponentModel.IContainer

        '注意: 以下过程是 Windows 窗体设计器所必需的
        '可以使用 Windows 窗体设计器修改此过程。
        '不要使用代码编辑器修改它。
        Friend WithEvents Button1 As System.Windows.Forms.Button
        Friend WithEvents Button2 As System.Windows.Forms.Button
        Friend WithEvents Button3 As System.Windows.Forms.Button
        Friend WithEvents Button4 As System.Windows.Forms.Button
        Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents blockadd As System.Windows.Forms.NumericUpDown
        Friend WithEvents beginp As System.Windows.Forms.NumericUpDown
        Friend WithEvents Label2 As System.Windows.Forms.Label
        Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
        Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
        Friend WithEvents Button6 As System.Windows.Forms.Button
        Friend WithEvents RichTextBox1 As System.Windows.Forms.RichTextBox
        Friend WithEvents Button7 As System.Windows.Forms.Button
        Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
        Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
        Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
        Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
        Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
        Friend WithEvents Button8 As System.Windows.Forms.Button
        Friend WithEvents Button9 As System.Windows.Forms.Button
        Friend WithEvents Button10 As System.Windows.Forms.Button
        Friend WithEvents Button11 As System.Windows.Forms.Button
        Friend WithEvents Button13 As System.Windows.Forms.Button
        Friend WithEvents Button12 As System.Windows.Forms.Button
        Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
        Friend WithEvents Label4 As System.Windows.Forms.Label
        Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
        Friend WithEvents Button14 As System.Windows.Forms.Button
        Friend WithEvents Limitau As System.Windows.Forms.NumericUpDown
        Friend WithEvents Label6 As System.Windows.Forms.Label
        Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
        Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
        Friend WithEvents Label5 As System.Windows.Forms.Label
        Friend WithEvents Label3 As System.Windows.Forms.Label
        Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
        Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
        Friend WithEvents RichTextBox2 As System.Windows.Forms.RichTextBox
        Friend WithEvents Label8 As System.Windows.Forms.Label
        Friend WithEvents Label7 As System.Windows.Forms.Label
        Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
        Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
        Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
        Friend WithEvents Label10 As System.Windows.Forms.Label
        Friend WithEvents Label9 As System.Windows.Forms.Label
        Friend WithEvents rwps As System.Windows.Forms.NumericUpDown
        Friend WithEvents rwbeginp As System.Windows.Forms.NumericUpDown
        Friend WithEvents Button5 As System.Windows.Forms.Button
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
            Me.Button1 = New System.Windows.Forms.Button()
            Me.Button2 = New System.Windows.Forms.Button()
            Me.Button3 = New System.Windows.Forms.Button()
            Me.Button4 = New System.Windows.Forms.Button()
            Me.Button5 = New System.Windows.Forms.Button()
            Me.TextBox1 = New System.Windows.Forms.TextBox()
            Me.Label1 = New System.Windows.Forms.Label()
            Me.blockadd = New System.Windows.Forms.NumericUpDown()
            Me.beginp = New System.Windows.Forms.NumericUpDown()
            Me.Label2 = New System.Windows.Forms.Label()
            Me.TextBox2 = New System.Windows.Forms.TextBox()
            Me.TextBox3 = New System.Windows.Forms.TextBox()
            Me.Button6 = New System.Windows.Forms.Button()
            Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
            Me.Button7 = New System.Windows.Forms.Button()
            Me.TabControl1 = New System.Windows.Forms.TabControl()
            Me.TabPage1 = New System.Windows.Forms.TabPage()
            Me.Button13 = New System.Windows.Forms.Button()
            Me.Button12 = New System.Windows.Forms.Button()
            Me.Button11 = New System.Windows.Forms.Button()
            Me.Button10 = New System.Windows.Forms.Button()
            Me.Button9 = New System.Windows.Forms.Button()
            Me.TextBox4 = New System.Windows.Forms.TextBox()
            Me.Button8 = New System.Windows.Forms.Button()
            Me.TabPage2 = New System.Windows.Forms.TabPage()
            Me.Label10 = New System.Windows.Forms.Label()
            Me.Label9 = New System.Windows.Forms.Label()
            Me.rwps = New System.Windows.Forms.NumericUpDown()
            Me.rwbeginp = New System.Windows.Forms.NumericUpDown()
            Me.Label8 = New System.Windows.Forms.Label()
            Me.Label7 = New System.Windows.Forms.Label()
            Me.TextBox8 = New System.Windows.Forms.TextBox()
            Me.TextBox7 = New System.Windows.Forms.TextBox()
            Me.CheckBox3 = New System.Windows.Forms.CheckBox()
            Me.RichTextBox2 = New System.Windows.Forms.RichTextBox()
            Me.Button14 = New System.Windows.Forms.Button()
            Me.Limitau = New System.Windows.Forms.NumericUpDown()
            Me.Label6 = New System.Windows.Forms.Label()
            Me.TextBox6 = New System.Windows.Forms.TextBox()
            Me.CheckBox2 = New System.Windows.Forms.CheckBox()
            Me.Label5 = New System.Windows.Forms.Label()
            Me.Label3 = New System.Windows.Forms.Label()
            Me.ComboBox1 = New System.Windows.Forms.ComboBox()
            Me.TextBox5 = New System.Windows.Forms.TextBox()
            Me.CheckBox1 = New System.Windows.Forms.CheckBox()
            Me.TabPage3 = New System.Windows.Forms.TabPage()
            Me.PictureBox1 = New System.Windows.Forms.PictureBox()
            Me.Label4 = New System.Windows.Forms.Label()
            CType(Me.blockadd, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.beginp, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.TabControl1.SuspendLayout()
            Me.TabPage1.SuspendLayout()
            Me.TabPage2.SuspendLayout()
            CType(Me.rwps, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.rwbeginp, System.ComponentModel.ISupportInitialize).BeginInit()
            CType(Me.Limitau, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.TabPage3.SuspendLayout()
            CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
            Me.SuspendLayout()
            '
            'Button1
            '
            Me.Button1.Location = New System.Drawing.Point(57, 229)
            Me.Button1.Name = "Button1"
            Me.Button1.Size = New System.Drawing.Size(120, 32)
            Me.Button1.TabIndex = 0
            Me.Button1.Text = "读4个页  >>"
            '
            'Button2
            '
            Me.Button2.Location = New System.Drawing.Point(57, 267)
            Me.Button2.Name = "Button2"
            Me.Button2.Size = New System.Drawing.Size(120, 32)
            Me.Button2.TabIndex = 1
            Me.Button2.Text = "写1个页  >>"
            '
            'Button3
            '
            Me.Button3.Location = New System.Drawing.Point(57, 131)
            Me.Button3.Name = "Button3"
            Me.Button3.Size = New System.Drawing.Size(120, 32)
            Me.Button3.TabIndex = 2
            Me.Button3.Text = "读卡序列号 >>"
            '
            'Button4
            '
            Me.Button4.Location = New System.Drawing.Point(57, 34)
            Me.Button4.Name = "Button4"
            Me.Button4.Size = New System.Drawing.Size(120, 32)
            Me.Button4.TabIndex = 3
            Me.Button4.Text = "让设备发出声响"
            '
            'Button5
            '
            Me.Button5.Location = New System.Drawing.Point(57, 72)
            Me.Button5.Name = "Button5"
            Me.Button5.Size = New System.Drawing.Size(345, 32)
            Me.Button5.TabIndex = 4
            Me.Button5.Text = "读出设备全球唯一的设备编号，作为加密狗用"
            '
            'TextBox1
            '
            Me.TextBox1.Location = New System.Drawing.Point(183, 138)
            Me.TextBox1.Name = "TextBox1"
            Me.TextBox1.Size = New System.Drawing.Size(175, 21)
            Me.TextBox1.TabIndex = 5
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label1.Location = New System.Drawing.Point(65, 196)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(112, 16)
            Me.Label1.TabIndex = 7
            Me.Label1.Text = "读写起始页号:"
            '
            'blockadd
            '
            Me.blockadd.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.blockadd.Location = New System.Drawing.Point(183, 191)
            Me.blockadd.Name = "blockadd"
            Me.blockadd.Size = New System.Drawing.Size(54, 26)
            Me.blockadd.TabIndex = 8
            Me.blockadd.Value = New Decimal(New Integer() {4, 0, 0, 0})
            '
            'beginp
            '
            Me.beginp.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.beginp.Location = New System.Drawing.Point(69, 49)
            Me.beginp.Name = "beginp"
            Me.beginp.Size = New System.Drawing.Size(55, 23)
            Me.beginp.TabIndex = 10
            Me.beginp.Value = New Decimal(New Integer() {12, 0, 0, 0})
            '
            'Label2
            '
            Me.Label2.AutoSize = True
            Me.Label2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label2.Location = New System.Drawing.Point(23, 167)
            Me.Label2.Name = "Label2"
            Me.Label2.Size = New System.Drawing.Size(59, 12)
            Me.Label2.TabIndex = 9
            Me.Label2.Text = "卡序列号:"
            '
            'TextBox2
            '
            Me.TextBox2.Location = New System.Drawing.Point(184, 236)
            Me.TextBox2.Name = "TextBox2"
            Me.TextBox2.Size = New System.Drawing.Size(218, 21)
            Me.TextBox2.TabIndex = 11
            '
            'TextBox3
            '
            Me.TextBox3.Location = New System.Drawing.Point(184, 274)
            Me.TextBox3.MaxLength = 8
            Me.TextBox3.Name = "TextBox3"
            Me.TextBox3.Size = New System.Drawing.Size(77, 21)
            Me.TextBox3.TabIndex = 12
            '
            'Button6
            '
            Me.Button6.Location = New System.Drawing.Point(90, 263)
            Me.Button6.Name = "Button6"
            Me.Button6.Size = New System.Drawing.Size(344, 32)
            Me.Button6.TabIndex = 13
            Me.Button6.Text = "轻松读卡，最多一次12块 "
            '
            'RichTextBox1
            '
            Me.RichTextBox1.Location = New System.Drawing.Point(89, 188)
            Me.RichTextBox1.Name = "RichTextBox1"
            Me.RichTextBox1.Size = New System.Drawing.Size(727, 67)
            Me.RichTextBox1.TabIndex = 14
            Me.RichTextBox1.Text = ""
            '
            'Button7
            '
            Me.Button7.Location = New System.Drawing.Point(471, 263)
            Me.Button7.Name = "Button7"
            Me.Button7.Size = New System.Drawing.Size(345, 32)
            Me.Button7.TabIndex = 15
            Me.Button7.Text = "轻松写卡，最多一次11块 "
            '
            'TabControl1
            '
            Me.TabControl1.Controls.Add(Me.TabPage1)
            Me.TabControl1.Controls.Add(Me.TabPage2)
            Me.TabControl1.Controls.Add(Me.TabPage3)
            Me.TabControl1.Location = New System.Drawing.Point(1, 1)
            Me.TabControl1.Name = "TabControl1"
            Me.TabControl1.SelectedIndex = 0
            Me.TabControl1.Size = New System.Drawing.Size(861, 426)
            Me.TabControl1.TabIndex = 16
            '
            'TabPage1
            '
            Me.TabPage1.Controls.Add(Me.Button13)
            Me.TabPage1.Controls.Add(Me.Button12)
            Me.TabPage1.Controls.Add(Me.Button11)
            Me.TabPage1.Controls.Add(Me.Button10)
            Me.TabPage1.Controls.Add(Me.Button9)
            Me.TabPage1.Controls.Add(Me.TextBox4)
            Me.TabPage1.Controls.Add(Me.Button8)
            Me.TabPage1.Controls.Add(Me.Button4)
            Me.TabPage1.Controls.Add(Me.Button5)
            Me.TabPage1.Controls.Add(Me.Button3)
            Me.TabPage1.Controls.Add(Me.TextBox1)
            Me.TabPage1.Controls.Add(Me.TextBox3)
            Me.TabPage1.Controls.Add(Me.Button1)
            Me.TabPage1.Controls.Add(Me.blockadd)
            Me.TabPage1.Controls.Add(Me.TextBox2)
            Me.TabPage1.Controls.Add(Me.Label1)
            Me.TabPage1.Controls.Add(Me.Button2)
            Me.TabPage1.Location = New System.Drawing.Point(4, 22)
            Me.TabPage1.Name = "TabPage1"
            Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
            Me.TabPage1.Size = New System.Drawing.Size(853, 400)
            Me.TabPage1.TabIndex = 0
            Me.TabPage1.Text = "NTAG21x页读写函数      "
            Me.TabPage1.UseVisualStyleBackColor = True
            '
            'Button13
            '
            Me.Button13.ForeColor = System.Drawing.Color.Red
            Me.Button13.Location = New System.Drawing.Point(452, 327)
            Me.Button13.Name = "Button13"
            Me.Button13.Size = New System.Drawing.Size(337, 32)
            Me.Button13.TabIndex = 19
            Me.Button13.Text = "锁定16页及之后的页（锁死数据后无法恢复）"
            '
            'Button12
            '
            Me.Button12.ForeColor = System.Drawing.Color.Red
            Me.Button12.Location = New System.Drawing.Point(452, 278)
            Me.Button12.Name = "Button12"
            Me.Button12.Size = New System.Drawing.Size(337, 32)
            Me.Button12.TabIndex = 18
            Me.Button12.Text = "锁定3~15页（锁死数据后无法恢复）"
            '
            'Button11
            '
            Me.Button11.Location = New System.Drawing.Point(452, 229)
            Me.Button11.Name = "Button11"
            Me.Button11.Size = New System.Drawing.Size(337, 32)
            Me.Button11.TabIndex = 17
            Me.Button11.Text = "读取卡单向计数器的值"
            '
            'Button10
            '
            Me.Button10.Location = New System.Drawing.Point(452, 180)
            Me.Button10.Name = "Button10"
            Me.Button10.Size = New System.Drawing.Size(337, 32)
            Me.Button10.TabIndex = 16
            Me.Button10.Text = "读取卡的签名信息，可以验证卡是否NXP正版卡"
            '
            'Button9
            '
            Me.Button9.Location = New System.Drawing.Point(452, 131)
            Me.Button9.Name = "Button9"
            Me.Button9.Size = New System.Drawing.Size(337, 32)
            Me.Button9.TabIndex = 15
            Me.Button9.Text = "读取卡的版本号及型号"
            '
            'TextBox4
            '
            Me.TextBox4.Location = New System.Drawing.Point(184, 334)
            Me.TextBox4.MaxLength = 8
            Me.TextBox4.Name = "TextBox4"
            Me.TextBox4.Size = New System.Drawing.Size(77, 21)
            Me.TextBox4.TabIndex = 14
            Me.TextBox4.Text = "12345678"
            '
            'Button8
            '
            Me.Button8.Location = New System.Drawing.Point(57, 327)
            Me.Button8.Name = "Button8"
            Me.Button8.Size = New System.Drawing.Size(120, 32)
            Me.Button8.TabIndex = 13
            Me.Button8.Text = "卡密码认证  >>"
            '
            'TabPage2
            '
            Me.TabPage2.Controls.Add(Me.Label10)
            Me.TabPage2.Controls.Add(Me.Label9)
            Me.TabPage2.Controls.Add(Me.rwps)
            Me.TabPage2.Controls.Add(Me.rwbeginp)
            Me.TabPage2.Controls.Add(Me.Label8)
            Me.TabPage2.Controls.Add(Me.Label7)
            Me.TabPage2.Controls.Add(Me.TextBox8)
            Me.TabPage2.Controls.Add(Me.TextBox7)
            Me.TabPage2.Controls.Add(Me.CheckBox3)
            Me.TabPage2.Controls.Add(Me.RichTextBox2)
            Me.TabPage2.Controls.Add(Me.Button14)
            Me.TabPage2.Controls.Add(Me.Limitau)
            Me.TabPage2.Controls.Add(Me.Label6)
            Me.TabPage2.Controls.Add(Me.TextBox6)
            Me.TabPage2.Controls.Add(Me.CheckBox2)
            Me.TabPage2.Controls.Add(Me.Label5)
            Me.TabPage2.Controls.Add(Me.Label3)
            Me.TabPage2.Controls.Add(Me.ComboBox1)
            Me.TabPage2.Controls.Add(Me.TextBox5)
            Me.TabPage2.Controls.Add(Me.CheckBox1)
            Me.TabPage2.Controls.Add(Me.Button6)
            Me.TabPage2.Controls.Add(Me.Label2)
            Me.TabPage2.Controls.Add(Me.beginp)
            Me.TabPage2.Controls.Add(Me.Button7)
            Me.TabPage2.Controls.Add(Me.RichTextBox1)
            Me.TabPage2.Location = New System.Drawing.Point(4, 22)
            Me.TabPage2.Name = "TabPage2"
            Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
            Me.TabPage2.Size = New System.Drawing.Size(853, 400)
            Me.TabPage2.TabIndex = 1
            Me.TabPage2.Text = "NTAG21x轻松读写函数      "
            Me.TabPage2.UseVisualStyleBackColor = True
            '
            'Label10
            '
            Me.Label10.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label10.Location = New System.Drawing.Point(30, 340)
            Me.Label10.Name = "Label10"
            Me.Label10.Size = New System.Drawing.Size(54, 53)
            Me.Label10.TabIndex = 35
            Me.Label10.Text = "串口读写器的调试指令:"
            '
            'Label9
            '
            Me.Label9.AutoSize = True
            Me.Label9.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label9.Location = New System.Drawing.Point(23, 191)
            Me.Label9.Name = "Label9"
            Me.Label9.Size = New System.Drawing.Size(59, 12)
            Me.Label9.TabIndex = 34
            Me.Label9.Text = "页内数据:"
            '
            'rwps
            '
            Me.rwps.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.rwps.Location = New System.Drawing.Point(506, 157)
            Me.rwps.Name = "rwps"
            Me.rwps.Size = New System.Drawing.Size(55, 23)
            Me.rwps.TabIndex = 33
            Me.rwps.Value = New Decimal(New Integer() {10, 0, 0, 0})
            '
            'rwbeginp
            '
            Me.rwbeginp.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.rwbeginp.Location = New System.Drawing.Point(344, 156)
            Me.rwbeginp.Name = "rwbeginp"
            Me.rwbeginp.Size = New System.Drawing.Size(58, 23)
            Me.rwbeginp.TabIndex = 32
            Me.rwbeginp.Value = New Decimal(New Integer() {30, 0, 0, 0})
            '
            'Label8
            '
            Me.Label8.AutoSize = True
            Me.Label8.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label8.Location = New System.Drawing.Point(446, 167)
            Me.Label8.Name = "Label8"
            Me.Label8.Size = New System.Drawing.Size(65, 12)
            Me.Label8.TabIndex = 31
            Me.Label8.Text = "读写页数："
            '
            'Label7
            '
            Me.Label7.AutoSize = True
            Me.Label7.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label7.Location = New System.Drawing.Point(257, 167)
            Me.Label7.Name = "Label7"
            Me.Label7.Size = New System.Drawing.Size(89, 12)
            Me.Label7.TabIndex = 30
            Me.Label7.Text = "读写起始页号："
            '
            'TextBox8
            '
            Me.TextBox8.Location = New System.Drawing.Point(88, 158)
            Me.TextBox8.Name = "TextBox8"
            Me.TextBox8.Size = New System.Drawing.Size(130, 21)
            Me.TextBox8.TabIndex = 29
            '
            'TextBox7
            '
            Me.TextBox7.Location = New System.Drawing.Point(344, 131)
            Me.TextBox7.MaxLength = 8
            Me.TextBox7.Name = "TextBox7"
            Me.TextBox7.Size = New System.Drawing.Size(59, 21)
            Me.TextBox7.TabIndex = 28
            Me.TextBox7.Text = "12345678"
            '
            'CheckBox3
            '
            Me.CheckBox3.AutoSize = True
            Me.CheckBox3.Location = New System.Drawing.Point(89, 135)
            Me.CheckBox3.Name = "CheckBox3"
            Me.CheckBox3.Size = New System.Drawing.Size(258, 16)
            Me.CheckBox3.TabIndex = 27
            Me.CheckBox3.Text = "选择先认证卡密码才能继续操作,认证密码："
            Me.CheckBox3.UseVisualStyleBackColor = True
            '
            'RichTextBox2
            '
            Me.RichTextBox2.Location = New System.Drawing.Point(89, 336)
            Me.RichTextBox2.Name = "RichTextBox2"
            Me.RichTextBox2.Size = New System.Drawing.Size(728, 47)
            Me.RichTextBox2.TabIndex = 26
            Me.RichTextBox2.Text = ""
            '
            'Button14
            '
            Me.Button14.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
            Me.Button14.Location = New System.Drawing.Point(23, 78)
            Me.Button14.Name = "Button14"
            Me.Button14.Size = New System.Drawing.Size(793, 30)
            Me.Button14.TabIndex = 25
            Me.Button14.Text = "按以上参数设置卡密码及保护机制"
            Me.Button14.UseVisualStyleBackColor = False
            '
            'Limitau
            '
            Me.Limitau.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Limitau.Location = New System.Drawing.Point(699, 46)
            Me.Limitau.Name = "Limitau"
            Me.Limitau.Size = New System.Drawing.Size(55, 23)
            Me.Limitau.TabIndex = 24
            '
            'Label6
            '
            Me.Label6.AutoSize = True
            Me.Label6.Location = New System.Drawing.Point(513, 54)
            Me.Label6.Name = "Label6"
            Me.Label6.Size = New System.Drawing.Size(191, 12)
            Me.Label6.TabIndex = 23
            Me.Label6.Text = "允许密码错误次数（0为不限次）："
            '
            'TextBox6
            '
            Me.TextBox6.Location = New System.Drawing.Point(448, 48)
            Me.TextBox6.MaxLength = 8
            Me.TextBox6.Name = "TextBox6"
            Me.TextBox6.Size = New System.Drawing.Size(59, 21)
            Me.TextBox6.TabIndex = 22
            Me.TextBox6.Text = "12345678"
            '
            'CheckBox2
            '
            Me.CheckBox2.AutoSize = True
            Me.CheckBox2.Location = New System.Drawing.Point(238, 53)
            Me.CheckBox2.Name = "CheckBox2"
            Me.CheckBox2.Size = New System.Drawing.Size(216, 16)
            Me.CheckBox2.TabIndex = 21
            Me.CheckBox2.Text = "选择开启读操作密码保护，新密码："
            Me.CheckBox2.UseVisualStyleBackColor = True
            '
            'Label5
            '
            Me.Label5.AutoSize = True
            Me.Label5.Location = New System.Drawing.Point(130, 54)
            Me.Label5.Name = "Label5"
            Me.Label5.Size = New System.Drawing.Size(113, 12)
            Me.Label5.TabIndex = 20
            Me.Label5.Text = "页开始有密码保护，"
            '
            'Label3
            '
            Me.Label3.AutoSize = True
            Me.Label3.Location = New System.Drawing.Point(45, 54)
            Me.Label3.Name = "Label3"
            Me.Label3.Size = New System.Drawing.Size(17, 12)
            Me.Label3.TabIndex = 19
            Me.Label3.Text = "从"
            '
            'ComboBox1
            '
            Me.ComboBox1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
            Me.ComboBox1.ForeColor = System.Drawing.Color.Red
            Me.ComboBox1.FormattingEnabled = True
            Me.ComboBox1.Items.AddRange(New Object() {"开启密码保护功能", "取消密码保护功能"})
            Me.ComboBox1.Location = New System.Drawing.Point(395, 16)
            Me.ComboBox1.Name = "ComboBox1"
            Me.ComboBox1.Size = New System.Drawing.Size(146, 20)
            Me.ComboBox1.TabIndex = 18
            '
            'TextBox5
            '
            Me.TextBox5.Location = New System.Drawing.Point(325, 15)
            Me.TextBox5.MaxLength = 8
            Me.TextBox5.Name = "TextBox5"
            Me.TextBox5.Size = New System.Drawing.Size(59, 21)
            Me.TextBox5.TabIndex = 17
            Me.TextBox5.Text = "12345678"
            '
            'CheckBox1
            '
            Me.CheckBox1.AutoSize = True
            Me.CheckBox1.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.CheckBox1.Location = New System.Drawing.Point(71, 19)
            Me.CheckBox1.Name = "CheckBox1"
            Me.CheckBox1.Size = New System.Drawing.Size(258, 16)
            Me.CheckBox1.TabIndex = 16
            Me.CheckBox1.Text = "选择先认证卡密码才能继续操作,认证密码："
            Me.CheckBox1.UseVisualStyleBackColor = True
            '
            'TabPage3
            '
            Me.TabPage3.Controls.Add(Me.PictureBox1)
            Me.TabPage3.Location = New System.Drawing.Point(4, 22)
            Me.TabPage3.Name = "TabPage3"
            Me.TabPage3.Size = New System.Drawing.Size(853, 400)
            Me.TabPage3.TabIndex = 2
            Me.TabPage3.Text = "NTAG21x卡数据结构说明      "
            Me.TabPage3.UseVisualStyleBackColor = True
            '
            'PictureBox1
            '
            Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
            Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
            Me.PictureBox1.Name = "PictureBox1"
            Me.PictureBox1.Size = New System.Drawing.Size(850, 397)
            Me.PictureBox1.TabIndex = 0
            Me.PictureBox1.TabStop = False
            '
            'Label4
            '
            Me.Label4.AutoSize = True
            Me.Label4.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
            Me.Label4.ForeColor = System.Drawing.Color.Blue
            Me.Label4.Location = New System.Drawing.Point(240, 439)
            Me.Label4.Name = "Label4"
            Me.Label4.Size = New System.Drawing.Size(360, 16)
            Me.Label4.TabIndex = 18
            Me.Label4.Text = "建议将OUR_MIFARE.dll复制到应用程序同一目录下"
            '
            'Form1
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
            Me.ClientSize = New System.Drawing.Size(863, 463)
            Me.Controls.Add(Me.Label4)
            Me.Controls.Add(Me.TabControl1)
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "Form1"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "NTAG21x卡读写器例子程序"
            CType(Me.blockadd, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.beginp, System.ComponentModel.ISupportInitialize).EndInit()
            Me.TabControl1.ResumeLayout(False)
            Me.TabPage1.ResumeLayout(False)
            Me.TabPage1.PerformLayout()
            Me.TabPage2.ResumeLayout(False)
            Me.TabPage2.PerformLayout()
            CType(Me.rwps, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.rwbeginp, System.ComponentModel.ISupportInitialize).EndInit()
            CType(Me.Limitau, System.ComponentModel.ISupportInitialize).EndInit()
            Me.TabPage3.ResumeLayout(False)
            CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
            Me.ResumeLayout(False)
            Me.PerformLayout()

        End Sub

    #End Region

    1. Module Module1
    2.  
    3.     '让设备发出声响函数声明
    4.     Public Declare Function pcdbeep Lib "OUR_MIFARE.dll" (ByVal xms As Long) As Byte
    5.  
    6.     '读取设备编号函数声明
    7.     Public Declare Function pcdgetdevicenumber Lib "OUR_MIFARE.dll" (ByRef devicenumber As Byte) As Byte
    8.  
    9.     '寻卡选卡激活卡
    10.     Public Declare Function piccrequest_ul Lib "OUR_MIFARE.dll" (ByRef devicenumber As Byte) As Byte
    11.  
    12.     '读块
    13.     Public Declare Function piccread_ul Lib "OUR_MIFARE.dll" (ByVal blockaddr As Byte, ByRef piccdata As Byte) As Byte
    14.  
    15.     '写块
    16.     Public Declare Function piccwrite_ul Lib "OUR_MIFARE.dll" (ByVal blockaddr As Byte, ByRef piccdata As Byte) As Byte
    17.  
    18.     'ntag21x卡的密码认证
    19.     Public Declare Function piccauthkey_ntag Lib "OUR_MIFARE.dll" (ByRef picckey As Byte, ByRef piccntagpack As Byte) As Byte
    20.  
    21.     '读取卡版本信息
    22.     Public Declare Function piccgetversion_ntag Lib "OUR_MIFARE.dll" (ByRef piccversiondata As Byte) As Byte
    23.  
    24.     '读取卡的签字信息
    25.     Public Declare Function piccreadsig_ntag Lib "OUR_MIFARE.dll" (ByRef piccsigdata As Byte) As Byte
    26.  
    27.     '读取卡的单向操作计数器（操作流水号）
    28.     Public Declare Function piccreadcnt_ntag Lib "OUR_MIFARE.dll" (ByRef picccntdata As Byte) As Byte
    29.  
    30.     '锁定页数据
    31.     Public Declare Function picclock_ntag Lib "OUR_MIFARE.dll" (ByVal locktype As Byte, ByRef mypicclockdata As Byte) As Byte
    32.  
    33.     '初始化卡
    34.     Public Declare Function piccinit_ntag Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByRef serial As Byte, ByRef picckey As Byte, ByRef piccdata As Byte) As Byte
    35.  
    36.     '轻松读卡
    37.     Public Declare Function piccreadex_ntag Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByRef serial As Byte, ByRef picckey As Byte, ByVal blockaddr As Byte, ByVal blocksize As Byte, ByRef piccdata As Byte) As Byte
    38.  
    39.     '轻松写卡
    40.     Public Declare Function piccwriteex_ntag Lib "OUR_MIFARE.dll" (ByVal ctrlword As Byte, ByRef serial As Byte, ByRef picckey As Byte, ByVal blockaddr As Byte, ByVal blocksize As Byte, ByRef piccdata As Byte) As Byte
    41.  
    42.  
    43.     '控制字定义,控制字指定,控制字的含义请查看本公司网站提供的动态库说明
    44.     Public Const BLOCK0_EN = &H1 '操作第0块
    45.     Public Const BLOCK1_EN = &H2 '操作第1块
    46.     Public Const BLOCK2_EN = &H4 '操作第2块
    47.     Public Const NEEDSERIAL = &H8 '仅对指定序列号的卡号操作
    48.     Public Const EXTERNKEY = &H10 '需要在参数中指定认证密码
    49.     Public Const NEEDHALT = &H20 '操作后休眠该卡，必须拿开卡再放回感应区才能重新感应到卡
    50. End Module

       

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2.  
    3.         '轻松读卡
    4.         '技术支持:
    5.         '网站:
    6.  
    7.         Dim status As Byte '存放返回值
    8.         Dim mypiccserial(7) As Byte '卡序列号
    9.         Dim i As Integer
    10.         Dim cardidhex As String
    11.         Dim mypiccdata(0 To 15) As Byte '读卡的数据缓冲，Ultralight卡及NTAG21x卡的数组长度必须为16个字节，写卡的为4个字节
    12.         Dim myblockaddr As Byte '起始块地址
    13.  
    14.         status = piccrequest_ul(mypiccserial(0))
    15.  
    16.         Select Case status
    17.             Case 0
    18.                 pcdbeep(50)
    19.                 cardidhex = ""
    20.                 For i = 0 To 6
    21.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    22.                 Next
    23.                 TextBox1.Text = cardidhex
    24.  
    25.                 myblockaddr = CByte(blockadd.Value)
    26.                 status = piccread_ul(myblockaddr, mypiccdata(0))
    27.                 If status = 0 Then
    28.                     cardidhex = ""
    29.                     For i = 0 To 15
    30.                         cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccdata(i)), 2)
    31.                     Next
    32.                     TextBox2.Text = cardidhex
    33.                     MsgBox("读卡成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    34.                 Else
    35.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    36.                 End If
    37.             Case 8
    38.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    39.             Case 23
    40.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    41.             Case Else
    42.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    43.         End Select
    44.  
    45.         '返回解释
    46.         '#define ERR_REQUEST 8'寻卡错误
    47.         '#define ERR_READSERIAL 9'读序列吗错误
    48.         '#define ERR_SELECTCARD 10'选卡错误
    49.         '#define ERR_LOADKEY 11'装载密码错误
    50.         '#define ERR_AUTHKEY 12'密码认证错误
    51.         '#define ERR_READ 13'读卡错误
    52.         '#define ERR_WRITE 14'写卡错误
    53.         '#define ERR_NONEDLL 21'没有动态库
    54.         '#define ERR_DRIVERORDLL 22'动态库或驱动程序异常
    55.         '#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装
    56.         '#define ERR_TIMEOUT 24'操作超时，一般是动态库没有反映
    57.         '#define ERR_TXSIZE 25'发送字数不够
    58.         '#define ERR_TXCRC 26'发送的CRC错
    59.         '#define ERR_RXSIZE 27'接收的字数不够
    60.         '#define ERR_RXCRC 28'接收的CRC错
    61.  
    62.     End Sub
    63.  
    64.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    65.         '读取设备编号，可做为软件加密狗用,也可以根据此编号在公司网站上查询保修期限
    66.  
    67.         '技术支持:
    68.         '网站:
    69.         Dim status As Byte '存放返回值
    70.         Dim devno(3) As Byte '设备编号
    71.  
    72.         status = pcdgetdevicenumber(devno(0))
    73.  
    74.         If status = 0 Then
    75.             pcdbeep(50)
    76.             MsgBox(CStr(devno(0)) + "-" + CStr(devno(1)) + "-" + CStr(devno(2)) + "-" + CStr(devno(3)))
    77.         End If
    78.  
    79.  
    80.         '返回解释
    81.         '#define ERR_REQUEST 8'寻卡错误
    82.         '#define ERR_READSERIAL 9'读序列吗错误
    83.         '#define ERR_SELECTCARD 10'选卡错误
    84.         '#define ERR_LOADKEY 11'装载密码错误
    85.         '#define ERR_AUTHKEY 12'密码认证错误
    86.         '#define ERR_READ 13'读卡错误
    87.         '#define ERR_WRITE 14'写卡错误
    88.         '#define ERR_NONEDLL 21'没有动态库
    89.         '#define ERR_DRIVERORDLL 22'动态库或驱动程序异常
    90.         '#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装
    91.         '#define ERR_TIMEOUT 24'操作超时，一般是动态库没有反映
    92.         '#define ERR_TXSIZE 25'发送字数不够
    93.         '#define ERR_TXCRC 26'发送的CRC错
    94.         '#define ERR_RXSIZE 27'接收的字数不够
    95.         '#define ERR_RXCRC 28'接收的CRC错
    96.     End Sub
    97.  
    98.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    99.         pcdbeep(50)
    100.     End Sub
    101.  
    102.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    103.         '轻松写卡
    104.         '技术支持:
    105.         '网站:
    106.         '轻松读卡
    107.         '技术支持:
    108.         '网站:
    109.  
    110.         Dim status As Byte '存放返回值
    111.         Dim mypiccserial(7) As Byte '卡序列号
    112.         Dim i As Integer
    113.         Dim cardidhex, writstr As String
    114.         Dim mypiccdata(0 To 3) As Byte '写卡的数据缓冲，Ultralight卡及NTAG21x卡的数组长度必须为16个字节，写卡的为4个字节
    115.         Dim myblockaddr As Byte '起始块地址
    116.  
    117.         If Len(Trim(TextBox3.Text)) < 8 Then
    118.             i = MsgBox("写卡信息不足，是否在后面自动补0？", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "提示")
    119.             If i <> vbOK Then
    120.                 TextBox3.Select()
    121.                 Exit Sub
    122.             Else
    123.                 TextBox3.Text = Strings.Left(Trim(TextBox3.Text) + "00000000", 8)
    124.                 writstr = Strings.Left(Trim(TextBox3.Text) + "00000000", 8)
    125.             End If
    126.         Else
    127.             writstr = Trim(TextBox3.Text)
    128.         End If
    129.  
    130.         status = piccrequest_ul(mypiccserial(0))
    131.  
    132.         Select Case status
    133.             Case 0
    134.                 cardidhex = ""
    135.                 For i = 0 To 6
    136.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    137.                 Next
    138.                 TextBox1.Text = cardidhex
    139.  
    140.                 For i = 0 To 3
    141.                     mypiccdata(i) = CByte("&H" & Mid(writstr, i * 2 + 1, 2))
    142.                 Next
    143.  
    144.                 myblockaddr = CByte(blockadd.Value)
    145.                 status = piccwrite_ul(myblockaddr, mypiccdata(0))
    146.                 If status = 0 Then
    147.                     pcdbeep(50)
    148.                     MsgBox("写卡成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    149.                 ElseIf status = 14 Then
    150.                     MsgBox("写卡失败！可能页已经锁死不可再修改或要认证密码。", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    151.                 Else
    152.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    153.                 End If
    154.             Case 8
    155.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    156.             Case 23
    157.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    158.             Case Else
    159.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    160.         End Select
    161.  
    162.         '返回解释
    163.         '#define ERR_REQUEST 8'寻卡错误
    164.         '#define ERR_READSERIAL 9'读序列吗错误
    165.         '#define ERR_SELECTCARD 10'选卡错误
    166.         '#define ERR_LOADKEY 11'装载密码错误
    167.         '#define ERR_AUTHKEY 12'密码认证错误
    168.         '#define ERR_READ 13'读卡错误
    169.         '#define ERR_WRITE 14'写卡错误
    170.         '#define ERR_NONEDLL 21'没有动态库
    171.         '#define ERR_DRIVERORDLL 22'动态库或驱动程序异常
    172.         '#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装
    173.         '#define ERR_TIMEOUT 24'操作超时，一般是动态库没有反映
    174.         '#define ERR_TXSIZE 25'发送字数不够
    175.         '#define ERR_TXCRC 26'发送的CRC错
    176.         '#define ERR_RXSIZE 27'接收的字数不够
    177.         '#define ERR_RXCRC 28'接收的CRC错
    178.     End Sub
    179.  
    180.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    181.         Dim status As Byte '存放返回值
    182.         Dim mypiccserial(7) As Byte '卡序列号
    183.         Dim i As Integer
    184.         Dim cardidhex As String
    185.  
    186.         status = piccrequest_ul(mypiccserial(0))
    187.  
    188.         Select Case status
    189.             Case 0
    190.                 pcdbeep(50)
    191.                 cardidhex = ""
    192.                 For i = 0 To 6
    193.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    194.                 Next
    195.                 TextBox1.Text = cardidhex
    196.                 MsgBox("读卡序列号成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    197.             Case 8
    198.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    199.             Case 23
    200.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    201.             Case Else
    202.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    203.         End Select
    204.  
    205.         '返回解释
    206.         '#define ERR_REQUEST 8'寻卡错误
    207.         '#define ERR_READSERIAL 9'读序列吗错误
    208.         '#define ERR_SELECTCARD 10'选卡错误
    209.         '#define ERR_LOADKEY 11'装载密码错误
    210.         '#define ERR_AUTHKEY 12'密码认证错误
    211.         '#define ERR_READ 13'读卡错误
    212.         '#define ERR_WRITE 14'写卡错误
    213.         '#define ERR_NONEDLL 21'没有动态库
    214.         '#define ERR_DRIVERORDLL 22'动态库或驱动程序异常
    215.         '#define ERR_DRIVERNULL 23'驱动程序错误或尚未安装
    216.         '#define ERR_TIMEOUT 24'操作超时，一般是动态库没有反映
    217.         '#define ERR_TXSIZE 25'发送字数不够
    218.         '#define ERR_TXCRC 26'发送的CRC错
    219.         '#define ERR_RXSIZE 27'接收的字数不够
    220.         '#define ERR_RXCRC 28'接收的CRC错
    221.     End Sub
    222.  
    223.     Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
    224.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then    '控制只能输入16进制数
    225.             e.Handled = False
    226.         Else
    227.             e.Handled = True
    228.         End If
    229.     End Sub
    230.  
    231.  
    232.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    233.         '轻松读卡
    234.         '技术支持:
    235.         '网站:
    236.         Dim i As Integer
    237.         Dim cardidhex, authkey, Str As String
    238.         Dim status, myctrlword, comedc As Byte '存放返回值
    239.         Dim mypiccserial(7) As Byte '卡序列号
    240.         Dim mypicckey(0 To 3) As Byte '认证密码
    241.         Dim mypiccdata(0 To 47) As Byte '读卡的数据缓冲，Ultralight卡及NTAG21x卡的数组长度必须为16个字节，写卡的为4个字节
    242.         Dim myblockaddr As Byte '起始块地址
    243.         Dim myblocksize As Byte '总块数
    244.  
    245.         If CheckBox3.Checked Then
    246.             If Len(Trim(TextBox7.Text)) < 8 Then
    247.                 i = MsgBox("卡认证密码位数不足！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    248.                 If i <> vbOK Then
    249.                     TextBox7.Select()
    250.                     Exit Sub
    251.                 End If
    252.             Else
    253.                 authkey = Trim(TextBox7.Text)
    254.                 For i = 0 To 3
    255.                     mypicckey(i) = CByte("&H" & Mid(authkey, i * 2 + 1, 2))
    256.                 Next
    257.             End If
    258.             myctrlword = &H10  '需要认证卡密码后再继续
    259.         Else
    260.             myctrlword = 0
    261.         End If
    262.  
    263.         myblockaddr = CByte(rwbeginp.Value)
    264.         myblocksize = CByte(rwps.Value)
    265.  
    266.         '-------------------------------------------------------------------------
    267.         '输出串口模块调式码
    268.         comedc = &H1B
    269.         Str = "0F1B"
    270.  
    271.         '控制字
    272.         Str = Str + Strings.Right("00" + Hex(myctrlword), 2)
    273.         comedc = comedc Xor myctrlword
    274.  
    275.         '卡号
    276.         For i = 0 To 6
    277.             Str = Str + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    278.             comedc = comedc Xor mypiccserial(i)
    279.         Next i
    280.  
    281.         '密码
    282.         For i = 0 To 3
    283.             Str = Str + Strings.Right("00" + Hex(mypicckey(i)), 2)
    284.             comedc = comedc Xor mypicckey(i)
    285.         Next i
    286.  
    287.         '起始页号
    288.         Str = Str + Strings.Right("00" + Hex(myblockaddr), 2)
    289.         comedc = comedc Xor myblockaddr
    290.  
    291.         '起读写页数
    292.         Str = Str + Strings.Right("00" + Hex(myblocksize), 2)
    293.         comedc = comedc Xor myblocksize
    294.  
    295.         '校验码
    296.         Str = Str + Strings.Right("00" + Hex(comedc), 2)
    297.         RichTextBox2.Text = Str
    298.         '-------------------------------------------------------------------------
    299.  
    300.  
    301.         status = piccreadex_ntag(myctrlword, mypiccserial(0), mypicckey(0), myblockaddr, myblocksize, mypiccdata(0))
    302.  
    303.         Select Case status
    304.             Case 0
    305.                 pcdbeep(50)
    306.                 cardidhex = ""
    307.                 For i = 0 To 6
    308.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    309.                 Next
    310.                 TextBox8.Text = cardidhex
    311.  
    312.  
    313.                 cardidhex = ""
    314.                 For i = 0 To myblocksize * 4 - 1
    315.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccdata(i)), 2)
    316.                 Next
    317.                 RichTextBox1.Text = cardidhex
    318.                 MsgBox("读卡成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    319.  
    320.             Case 8
    321.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    322.             Case 12
    323.                 MsgBox("密码错误！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    324.             Case 13
    325.                 MsgBox("读卡失败，可能需要验证密码！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    326.             Case 23
    327.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    328.             Case Else
    329.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    330.         End Select
    331.     End Sub
    332.  
    333.     Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress  '输入栏只能输入16进制数
    334.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then    '控制只能输入16进制数
    335.             e.Handled = False
    336.         Else
    337.             e.Handled = True
    338.         End If
    339.     End Sub
    340.  
    341.     Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    342.         '技术支持:
    343.         '网站:
    344.         Dim i As Integer
    345.         Dim cardidhex, authkey, Str, writstr As String
    346.         Dim status, myctrlword, comedc As Byte '存放返回值
    347.         Dim mypiccserial(7) As Byte '卡序列号
    348.         Dim mypicckey(0 To 3) As Byte '认证密码
    349.         Dim mypiccdata(0 To 47) As Byte '读卡的数据缓冲，Ultralight卡及NTAG21x卡的数组长度必须为16个字节，写卡的为4个字节
    350.         Dim myblockaddr As Byte '起始块地址
    351.         Dim myblocksize As Byte '总块数
    352.  
    353.         If rwps.Value < 1 Or rwps.Value > 11 Then
    354.             MsgBox("写卡页数必须大于0，小于12！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    355.             Exit Sub
    356.         End If
    357.  
    358.         myblockaddr = CByte(rwbeginp.Value)
    359.         myblocksize = CByte(rwps.Value)
    360.  
    361.         If CheckBox3.Checked Then
    362.             If Len(Trim(TextBox7.Text)) < 8 Then
    363.                 i = MsgBox("卡认证密码位数不足！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    364.                 If i <> vbOK Then
    365.                     TextBox7.Select()
    366.                     Exit Sub
    367.                 End If
    368.             Else
    369.                 authkey = Trim(TextBox7.Text)
    370.                 For i = 0 To 3
    371.                     mypicckey(i) = CByte("&H" & Mid(authkey, i * 2 + 1, 2))
    372.                 Next
    373.             End If
    374.             myctrlword = &H10  '需要认证卡密码后再继续
    375.         Else
    376.             myctrlword = 0
    377.         End If
    378.  
    379.         If Len(Trim(RichTextBox1.Text)) < myblocksize * 4 * 2 Then
    380.             i = MsgBox("写卡信息不足，是否在后面自动补0？", MsgBoxStyle.Question + MsgBoxStyle.OkCancel, "提示")
    381.             If i <> vbOK Then
    382.                 RichTextBox1.Select()
    383.                 Exit Sub
    384.             Else
    385.                 RichTextBox1.Text = Strings.Left(Trim(RichTextBox1.Text) + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000", myblocksize * 4 * 2)
    386.                 writstr = Strings.Left(Trim(RichTextBox1.Text) + "000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000", myblocksize * 4 * 2)
    387.             End If
    388.         Else
    389.             writstr = Trim(RichTextBox1.Text)
    390.         End If
    391.  
    392.         For i = 0 To myblocksize * 4 - 1
    393.             mypiccdata(i) = CByte("&H" & Mid(writstr, i * 2 + 1, 2))
    394.         Next
    395.  
    396.         '-------------------------------------------------------------------------
    397.         '输出串口模块调式码
    398.         comedc = &H1C
    399.         Str = "3B1C"
    400.  
    401.         '控制字
    402.         Str = Str + Strings.Right("00" + Hex(myctrlword), 2)
    403.         comedc = comedc Xor myctrlword
    404.  
    405.         '卡号
    406.         For i = 0 To 6
    407.             Str = Str + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    408.             comedc = comedc Xor mypiccserial(i)
    409.         Next i
    410.  
    411.         '密码
    412.         For i = 0 To 3
    413.             Str = Str + Strings.Right("00" + Hex(mypicckey(i)), 2)
    414.             comedc = comedc Xor mypicckey(i)
    415.         Next i
    416.  
    417.         '起始页号
    418.         Str = Str + Strings.Right("00" + Hex(myblockaddr), 2)
    419.         comedc = comedc Xor myblockaddr
    420.  
    421.         '起读写页数
    422.         Str = Str + Strings.Right("00" + Hex(myblocksize), 2)
    423.         comedc = comedc Xor myblocksize
    424.  
    425.         For i = 0 To 43
    426.             Str = Str + Strings.Right("00" + Hex(mypiccdata(i)), 2)
    427.             comedc = comedc Xor mypiccdata(i)
    428.         Next
    429.  
    430.         '校验码
    431.         Str = Str + Strings.Right("00" + Hex(comedc), 2)
    432.         RichTextBox2.Text = Str
    433.         '-------------------------------------------------------------------------
    434.  
    435.  
    436.         status = piccwriteex_ntag(myctrlword, mypiccserial(0), mypicckey(0), myblockaddr, myblocksize, mypiccdata(0))
    437.  
    438.         Select Case status
    439.             Case 0
    440.                 pcdbeep(50)
    441.                 cardidhex = ""
    442.                 For i = 0 To 6
    443.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    444.                 Next
    445.                 TextBox8.Text = cardidhex
    446.  
    447.                 MsgBox("写卡成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    448.  
    449.             Case 8
    450.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    451.             Case 12
    452.                 MsgBox("密码错误！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    453.             Case 14
    454.                 MsgBox("写卡失败，可能需要验证密码或页已经锁定！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    455.             Case 23
    456.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    457.             Case Else
    458.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    459.         End Select
    460.     End Sub
    461.  
    462.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    463.         ComboBox1.SelectedIndex = 1
    464.     End Sub
    465.  
    466.     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    467.         Dim status As Byte '存放返回值
    468.         Dim mypiccserial(7) As Byte '卡序列号
    469.         Dim i As Integer
    470.         Dim cardidhex, keystr As String
    471.         Dim mypicckey(0 To 3) As Byte '4字节卡认证密码
    472.         Dim mypiccntagpack(0 To 1) As Byte '2字节确认码
    473.  
    474.         If Len(Trim(TextBox4.Text)) <> 8 Then
    475.             TextBox4.Select()
    476.             MsgBox("认证密码必须是4个字节8位数字！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    477.             Exit Sub
    478.         Else
    479.             keystr = Trim(TextBox4.Text)
    480.         End If
    481.  
    482.         status = piccrequest_ul(mypiccserial(0))
    483.  
    484.         Select Case status
    485.             Case 0
    486.                 pcdbeep(50)
    487.                 cardidhex = ""
    488.                 For i = 0 To 6
    489.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    490.                 Next
    491.                 TextBox8.Text = cardidhex
    492.  
    493.                 For i = 0 To 3
    494.                     mypicckey(i) = CByte("&H" & Mid(keystr, i * 2 + 1, 2))
    495.                 Next
    496.  
    497.                 status = piccauthkey_ntag(mypicckey(0), mypiccntagpack(0))
    498.                 If status = 0 Then
    499.                     MsgBox("卡密码认证成功！确认码为：" + Strings.Right("00" + Hex(mypiccntagpack(0)), 2) + Strings.Right("00" + Hex(mypiccntagpack(1)), 2), MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    500.                 ElseIf status = 12 Then
    501.                     MsgBox("卡密码认证错误，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    502.                 Else
    503.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    504.                 End If
    505.             Case 8
    506.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    507.             Case 23
    508.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    509.             Case Else
    510.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    511.         End Select
    512.     End Sub
    513.  
    514.     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    515.         Dim status As Byte '存放返回值
    516.         Dim mypiccserial(7) As Byte '卡序列号
    517.         Dim piccversiondata(7) As Byte '卡版本信息
    518.         Dim i As Integer
    519.         Dim cardidhex As String
    520.  
    521.         status = piccrequest_ul(mypiccserial(0))
    522.  
    523.         Select Case status
    524.             Case 0
    525.                 pcdbeep(50)
    526.                 cardidhex = ""
    527.                 For i = 0 To 6
    528.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    529.                 Next
    530.                 TextBox1.Text = cardidhex
    531.  
    532.                 status = piccgetversion_ntag(piccversiondata(0))
    533.                 If status = 0 Then
    534.                     cardidhex = ""
    535.                     For i = 0 To 7
    536.                         cardidhex = cardidhex + Strings.Right("00" + Hex(piccversiondata(i)), 2)
    537.                     Next
    538.                     MsgBox("卡版本信息：" + cardidhex, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    539.                 Else
    540.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    541.                 End If
    542.  
    543.             Case 8
    544.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    545.             Case 23
    546.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    547.             Case Else
    548.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    549.         End Select
    550.     End Sub
    551.  
    552.     Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    553.         Dim status As Byte '存放返回值
    554.         Dim mypiccserial(7) As Byte '卡序列号
    555.         Dim piccsigdata(31) As Byte '卡签字信息
    556.         Dim i As Integer
    557.         Dim cardidhex As String
    558.  
    559.         status = piccrequest_ul(mypiccserial(0))
    560.  
    561.         Select Case status
    562.             Case 0
    563.                 pcdbeep(50)
    564.                 cardidhex = ""
    565.                 For i = 0 To 6
    566.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    567.                 Next
    568.                 TextBox1.Text = cardidhex
    569.  
    570.                 status = piccreadsig_ntag(piccsigdata(0))
    571.                 If status = 0 Then
    572.                     cardidhex = ""
    573.                     For i = 0 To 31
    574.                         cardidhex = cardidhex + Strings.Right("00" + Hex(piccsigdata(i)), 2)
    575.                     Next
    576.                     MsgBox("卡签字信息：" + cardidhex, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    577.                 Else
    578.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    579.                 End If
    580.  
    581.             Case 8
    582.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    583.             Case 23
    584.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    585.             Case Else
    586.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    587.         End Select
    588.     End Sub
    589.  
    590.     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    591.         Dim status As Byte '存放返回值
    592.         Dim mypiccserial(7) As Byte '卡序列号
    593.         Dim mypicccntdata(2) As Byte '卡操作的单向计数器（卡操作流水号）
    594.         Dim i As Integer
    595.         Dim cardidhex As String
    596.  
    597.         status = piccrequest_ul(mypiccserial(0))
    598.  
    599.         Select Case status
    600.             Case 0
    601.                 pcdbeep(50)
    602.                 cardidhex = ""
    603.                 For i = 0 To 6
    604.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    605.                 Next
    606.                 TextBox1.Text = cardidhex
    607.  
    608.                 status = piccreadcnt_ntag(mypicccntdata(0))
    609.                 If status = 0 Then
    610.                     cardidhex = ""
    611.                     For i = 0 To 2
    612.                         cardidhex = cardidhex + Strings.Right("00" + Hex(mypicccntdata(i)), 2)
    613.                     Next
    614.                     MsgBox("卡操作的单向计数器：" + cardidhex, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    615.                 ElseIf status = 13 Then
    616.                     MsgBox("    可能是计数器功能尚未启用或卡本身不支持计数功能，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    617.                 Else
    618.                     MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    619.                 End If
    620.  
    621.             Case 8
    622.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    623.             Case 23
    624.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    625.             Case Else
    626.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    627.         End Select
    628.     End Sub
    629.  
    630.     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    631.         Dim status As Byte '存放返回值
    632.         Dim mypiccserial(7) As Byte '卡序列号
    633.         Dim mypicclockdata(3) As Byte '写卡的为4个字节
    634.         Dim i, answ As Integer
    635.         Dim cardidhex As String
    636.  
    637.         status = piccrequest_ul(mypiccserial(0))
    638.  
    639.         Select Case status
    640.             Case 0
    641.                 pcdbeep(50)
    642.                 cardidhex = ""
    643.                 For i = 0 To 6
    644.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    645.                 Next
    646.                 TextBox1.Text = cardidhex
    647.  
    648.                 answ = MsgBox("    确定要锁死本卡的0~15页吗？锁死后这些页的数据不能再更改。", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "提示")
    649.                 If answ = vbOK Then
    650.                     mypicclockdata(0) = 0        '除非您确认了解这几个字节的意思，否则不要随修改
    651.                     mypicclockdata(1) = 0
    652.                     mypicclockdata(2) = &HF9
    653.                     mypicclockdata(3) = 0
    654.  
    655.                     status = picclock_ntag(0, mypicclockdata(0))   '锁定0~15d页
    656.                     If status = 0 Then
    657.                         pcdbeep(50)
    658.                         MsgBox("0~15页锁定位写入成功！！！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    659.                     ElseIf status = 14 Then
    660.                         MsgBox("写卡失败！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    661.                     Else
    662.                         MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    663.                     End If
    664.                 End If
    665.             Case 8
    666.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    667.             Case 23
    668.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    669.             Case Else
    670.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    671.         End Select
    672.     End Sub
    673.  
    674.     Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress
    675.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then   '控制只能输入16进制数
    676.             e.Handled = False
    677.         Else
    678.             e.Handled = True
    679.         End If
    680.     End Sub
    681.  
    682.  
    683.     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    684.         Dim status As Byte '存放返回值
    685.         Dim mypiccserial(7) As Byte '卡序列号
    686.         Dim mypicclockdata(3) As Byte '写卡的为4个字节
    687.         Dim i, answ As Integer
    688.         Dim cardidhex As String
    689.  
    690.         status = piccrequest_ul(mypiccserial(0))
    691.  
    692.         Select Case status
    693.             Case 0
    694.                 pcdbeep(50)
    695.                 cardidhex = ""
    696.                 For i = 0 To 6
    697.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    698.                 Next
    699.                 TextBox1.Text = cardidhex
    700.  
    701.                 answ = MsgBox("    确定要锁死本卡16页以后的数据吗？锁死后这些页的数据不能再更改。", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "提示")
    702.                 If answ = vbOK Then
    703.                     mypicclockdata(0) = &H1      '除非您确认了解这几个字节的意思，否则不要随修改
    704.                     mypicclockdata(1) = &H1
    705.                     mypicclockdata(2) = 0
    706.                     mypicclockdata(3) = 0
    707.  
    708.                     status = picclock_ntag(1, mypicclockdata(0))   '锁定0~15d页
    709.                     If status = 0 Then
    710.                         pcdbeep(50)
    711.                         MsgBox("16以后的页锁定位写入成功！！！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    712.                     ElseIf status = 14 Then
    713.                         MsgBox("写卡失败！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    714.                     Else
    715.                         MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    716.                     End If
    717.                 End If
    718.             Case 8
    719.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    720.             Case 23
    721.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    722.             Case Else
    723.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    724.         End Select
    725.     End Sub
    726.  
    727.  
    728.     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
    729.         Dim status, myctrlword, comedc As Byte '存放返回值
    730.         Dim mypiccserial(7) As Byte '卡序列号
    731.         Dim i As Integer
    732.         Dim cardidhex, authkey, Str As String
    733.         Dim mypicckey(0 To 3) As Byte '认证密码
    734.         Dim mypiccdata(0 To 15) As Byte '初始化卡参数
    735.  
    736.         If CheckBox1.Checked Then
    737.             If Len(Trim(TextBox5.Text)) < 8 Then
    738.                 i = MsgBox("卡认证密码位数不足！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    739.                 If i <> vbOK Then
    740.                     TextBox5.Select()
    741.                     Exit Sub
    742.                 End If
    743.             Else
    744.                 authkey = Trim(TextBox5.Text)
    745.                 For i = 0 To 3
    746.                     mypicckey(i) = CByte("&H" & Mid(authkey, i * 2 + 1, 2))
    747.                 Next
    748.             End If
    749.             myctrlword = &H10  '需要认证卡密码后再继续
    750.         Else
    751.             myctrlword = 0
    752.         End If
    753.  
    754.         If ComboBox1.SelectedIndex = 0 Then      '开启卡的密码保护功能
    755.             If Len(Trim(TextBox6.Text)) < 8 Then
    756.                 i = MsgBox("卡新密码位数不足！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    757.                 If i <> vbOK Then
    758.                     TextBox6.Select()
    759.                     Exit Sub
    760.                 End If
    761.             Else
    762.                 authkey = Trim(TextBox6.Text)
    763.                 For i = 0 To 3
    764.                     mypiccdata(i + 8) = CByte("&H" & Mid(authkey, i * 2 + 1, 2))
    765.                 Next
    766.             End If
    767.  
    768.             mypiccdata(12) = &H16  'PACK
    769.             mypiccdata(13) = &H16  'PACK
    770.             mypiccdata(14) = 0     'RFUI
    771.             mypiccdata(15) = 0     'RFUI
    772.  
    773.             myctrlword = myctrlword + 4  '  //'更新控制字
    774.  
    775.             mypiccdata(0) = 0      'MIRROR
    776.             mypiccdata(1) = 0      'RFUI
    777.             mypiccdata(2) = 0      'MIRROR_PAGE
    778.             mypiccdata(3) = beginp.Value  'AUTH0
    779.  
    780.             myctrlword = myctrlword + 1 '更新控制字
    781.  
    782.             mypiccdata(4) = Limitau.Value Mod 8 'AUTH0
    783.             If CheckBox2.Checked Then
    784.                 mypiccdata(4) = mypiccdata(4) + &H80
    785.             End If
    786.  
    787.             '启用计数器
    788.             mypiccdata(5) = 0
    789.             mypiccdata(6) = 0
    790.             mypiccdata(7) = 0
    791.  
    792.             myctrlword = myctrlword + 2  '更新控制字
    793.         Else
    794.             mypiccdata(0) = &H0 'MIRROR
    795.             mypiccdata(1) = &H0 'RFUI
    796.             mypiccdata(2) = &H0 'MIRROR_PAGE
    797.             mypiccdata(3) = &HFF 'AUTH0
    798.  
    799.             myctrlword = myctrlword + &H1 '更新控制字
    800.  
    801.             mypiccdata(4) = &H0
    802.  
    803.             mypiccdata(5) = &H0
    804.             mypiccdata(6) = &H0
    805.             mypiccdata(7) = &H0
    806.  
    807.             myctrlword = myctrlword + &H2 '更新控制字
    808.         End If
    809.  
    810.         '-------------------------------------------------------------------------
    811.         '输出串口模块调式码
    812.         comedc = &H16
    813.         Str = "1D16"
    814.  
    815.         '控制字
    816.         Str = Str + Strings.Right("00" + Hex(myctrlword), 2)
    817.         comedc = comedc Xor myctrlword
    818.  
    819.         '卡号
    820.         For i = 0 To 6
    821.             Str = Str + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    822.             comedc = comedc Xor mypiccserial(i)
    823.         Next i
    824.  
    825.         '密码
    826.         For i = 0 To 3
    827.             Str = Str + Strings.Right("00" + Hex(mypicckey(i)), 2)
    828.             comedc = comedc Xor mypicckey(i)
    829.         Next i
    830.  
    831.         '数据
    832.         For i = 0 To 15
    833.             Str = Str + Strings.Right("00" + Hex(mypiccdata(i)), 2)
    834.             comedc = comedc Xor mypiccdata(i)
    835.         Next i
    836.  
    837.  
    838.         '校验码
    839.         Str = Str + Strings.Right("00" + Hex(comedc), 2)
    840.         RichTextBox2.Text = Str
    841.         '-------------------------------------------------------------------------
    842.  
    843.         status = piccinit_ntag(myctrlword, mypiccserial(0), mypicckey(0), mypiccdata(0))
    844.  
    845.         Select Case status
    846.             Case 0
    847.                 pcdbeep(50)
    848.                 cardidhex = ""
    849.                 For i = 0 To 6
    850.                     cardidhex = cardidhex + Strings.Right("00" + Hex(mypiccserial(i)), 2)
    851.                 Next
    852.                 TextBox8.Text = cardidhex
    853.                 MsgBox("初始化卡成功！", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "提示")
    854.             Case 8
    855.                 MsgBox("请将卡放在感应区！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    856.             Case 12
    857.                 MsgBox("密码错误！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    858.             Case 14
    859.                 MsgBox("设置失败，可能需要验证密码！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    860.             Case 23
    861.                 MsgBox("请连上USB读写器！", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    862.             Case Else
    863.                 MsgBox("操作异常，返回代码：" + Str(status), MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "提示")
    864.         End Select
    865.  
    866.     End Sub
    867.  
    868.     Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
    869.  
    870.     End Sub
    871.  
    872.     Private Sub TextBox5_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox5.KeyPress
    873.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then   '控制只能输入16进制数
    874.             e.Handled = False
    875.         Else
    876.             e.Handled = True
    877.         End If
    878.     End Sub
    879.  
    880.     Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
    881.  
    882.     End Sub
    883.  
    884.     Private Sub TextBox6_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox6.KeyPress
    885.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then   '控制只能输入16进制数
    886.             e.Handled = False
    887.         Else
    888.             e.Handled = True
    889.         End If
    890.     End Sub
    891.  
    892.     Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
    893.  
    894.     End Sub
    895.  
    896.     Private Sub TextBox7_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox7.KeyPress
    897.         If (e.KeyChar >= "0" And e.KeyChar <= "9") Or (e.KeyChar >= "A" And e.KeyChar <= "F") Or (e.KeyChar >= "a" And e.KeyChar <= "f") Then   '控制只能输入16进制数
    898.             e.Handled = False
    899.         Else
    900.             e.Handled = True
    901.         End If
    902.     End Sub
    903.  
    904.     Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
    905.  
    906.     End Sub
    907.  
    908.     Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
    909.  
    910.     End Sub
    911. End Class

  • 相关阅读:
    Flutter高仿微信-第37篇-单聊-红包
    YOLOv7改进：全网原创首发 | 多尺度空洞注意力（MSDA） | 中科院一区顶刊 DilateFormer 2023.9
    面试官：单核 CPU 支持 Java 多线程吗？为什么？被问懵了！
    MySQL-数据库的操作
    开源云原生平台对比 KubeSphere vs Rainbond
    计算机网络第2章（物理层）
    linux并发服务器 —— 多进程并发 - 进程间的通信及实践（五）
    C#面：请解释ASP.NET中的web页面与其隐藏类之间的关系
    mysql高级语句
    解决hadoop使用put上传报错问题
  • 原文地址：https://blog.csdn.net/zhangjin7422/article/details/125513424