📄 form1.frm
字号:
End
Begin VB.TextBox Text
Height = 270
Index = 13
Left = 1200
MaxLength = 12
TabIndex = 13
Text = "ffffffffffff"
Top = 5040
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 12
Left = 1200
MaxLength = 12
TabIndex = 12
Text = "ffffffffffff"
Top = 4680
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 11
Left = 1200
MaxLength = 12
TabIndex = 11
Text = "ffffffffffff"
Top = 4320
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 10
Left = 1200
MaxLength = 12
TabIndex = 10
Text = "ffffffffffff"
Top = 3960
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 9
Left = 1200
MaxLength = 12
TabIndex = 9
Text = "ffffffffffff"
Top = 3600
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 8
Left = 1200
MaxLength = 12
TabIndex = 8
Text = "ffffffffffff"
Top = 3240
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 7
Left = 1200
MaxLength = 12
TabIndex = 7
Text = "ffffffffffff"
Top = 2880
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 6
Left = 1200
MaxLength = 12
TabIndex = 6
Text = "ffffffffffff"
Top = 2520
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 5
Left = 1200
MaxLength = 12
TabIndex = 5
Text = "ffffffffffff"
Top = 2160
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 4
Left = 1200
MaxLength = 12
TabIndex = 4
Text = "ffffffffffff"
Top = 1800
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 3
Left = 1200
MaxLength = 12
TabIndex = 3
Text = "ffffffffffff"
Top = 1440
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 0
Left = 1200
MaxLength = 12
TabIndex = 0
Text = "ffffffffffff"
Top = 360
Width = 1335
End
Begin VB.TextBox Text
Height = 270
Index = 2
Left = 1200
MaxLength = 12
TabIndex = 2
Text = "ffffffffffff"
Top = 1080
Width = 1335
End
Begin VB.Label Label17
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "15扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 56
Top = 5760
Width = 615
End
Begin VB.Label Label16
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "1扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 55
Top = 720
Width = 615
End
Begin VB.Label Label15
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "2扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 54
Top = 1080
Width = 615
End
Begin VB.Label Label14
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "3扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 53
Top = 1440
Width = 615
End
Begin VB.Label Label13
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "4扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 52
Top = 1800
Width = 615
End
Begin VB.Label Label12
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "5扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 51
Top = 2160
Width = 615
End
Begin VB.Label Label11
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "6扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 50
Top = 2520
Width = 615
End
Begin VB.Label Label10
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "7扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 49
Top = 2880
Width = 615
End
Begin VB.Label Label9
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "8扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 48
Top = 3240
Width = 615
End
Begin VB.Label Label8
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "9扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 47
Top = 3600
Width = 615
End
Begin VB.Label Label7
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "10扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 46
Top = 3960
Width = 615
End
Begin VB.Label Label6
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "11扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 45
Top = 4320
Width = 615
End
Begin VB.Label Label5
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "12扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 44
Top = 4680
Width = 615
End
Begin VB.Label Label4
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "13扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 43
Top = 5040
Width = 615
End
Begin VB.Label Label3
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "14扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 42
Top = 5400
Width = 615
End
Begin VB.Label Label2
BackColor = &H00C0FFC0&
BackStyle = 0 'Transparent
Caption = "0扇区"
ForeColor = &H000000FF&
Height = 255
Left = 600
TabIndex = 41
Top = 360
Width = 735
End
End
Begin MSCommLib.MSComm MSComm1
Left = 2760
Top = 1680
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SdStr As String, SdStr1 As String '收到的字符串
Dim ReadInt As Integer
Dim EndTime As Single
Dim Rel As Integer
Dim I1 As Integer
Dim WriteNum As Integer '判断读了那一个扇区
Private Sub Cmdxgmm_Click()
On Error GoTo 1
Dim I As Integer
StuBar.Panels(8).Text = ""
StuBar.Panels.Item(4).Text = ""
StuBar.Panels.Item(6).Text = ""
StuBar.Panels(4).ToolTipText = ""
StuBar.Panels(6).ToolTipText = ""
If Check(0).Value = 0 And Check(1).Value = 0 And Check(2).Value = 0 And Check(3).Value = 0 And _
Check(4).Value = 0 And Check(5).Value = 0 And Check(6).Value = 0 And Check(7).Value = 0 And _
Check(8).Value = 0 And Check(9).Value = 0 And Check(10).Value = 0 And Check(11).Value = 0 And _
Check(12).Value = 0 And Check(13).Value = 0 And Check(14).Value = 0 And Check(15).Value = 0 Then
Msg "请选择要修改密码的扇区"
Exit Sub
End If
For I = 0 To 15
If Check(I).Value = 1 Then
If Len(Text(I).Text) <> 12 Then
Msg "请输入12位的密码"
Text(I).SetFocus
Exit Sub
End If
End If
Next I
If MsgBox("此项操作将有可能破坏卡的结构，你确定要继续吗？", 4, "系统提示") = vbNo Then
Exit Sub
End If
For I = 0 To 15
If Check(I).Value = 1 Then
Cek(I).Value = 0
'""""""""""""""""""""""""""""""""""
Delay (0.1)
Rel = SubXk(I) '寻卡
If Rel = 2 Then
GoTo 2
ElseIf Rel = 3 Then
Exit Sub
End If
'"""""""""""""""""""""""""""""""""""
Rel = SubXgmm(I) '改密码
If Rel = 3 Then
Exit Sub
End If
'""""""""""""""""""""""""""""""""
2
End If
Next I
StuBar.Panels(8).Text = "修改完毕,前方框打勾则成功"
Exit Sub
1
Msg Err.Description
End Sub
Private Sub Cmdzzmm_Click()
On Error GoTo 1
Dim I As Integer
Me.MousePointer = 11
StuBar.Panels(8).Text = ""
If Check(0).Value = 0 And Check(1).Value = 0 And Check(2).Value = 0 And Check(3).Value = 0 And _
Check(4).Value = 0 And Check(5).Value = 0 And Check(6).Value = 0 And Check(7).Value = 0 And _
Check(8).Value = 0 And Check(9).Value = 0 And Check(10).Value = 0 And Check(11).Value = 0 And _
Check(12).Value = 0 And Check(13).Value = 0 And Check(14).Value = 0 And Check(15).Value = 0 Then
Msg "请选择要装载的扇区"
Exit Sub
End If
For I = 0 To 15
If Check(I).Value = 1 Then
If Len(Text(I).Text) <> 12 Then
Msg "请输入12位的密码"
Text(I).SetFocus
Exit Sub
End If
End If
Next I
For I = 0 To 15
If Check(I).Value = 1 Then
Cek(I).Value = 0
'"""""""""""""""""""""""""
If SubZzmm(I) = 3 Then ''装载密码子函数有误
Exit Sub
End If
'"""""""""""""""""""""""""
End If
Next I
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -