📄 examples.frm
字号:
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.OCX"
Begin VB.Form examples
Caption = "SmartCOS examples "
ClientHeight = 6540
ClientLeft = 60
ClientTop = 345
ClientWidth = 7680
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 6540
ScaleWidth = 7680
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Chinese
Caption = "Chinese"
Height = 495
Left = 2640
TabIndex = 24
Top = 5880
Width = 2415
End
Begin VB.CommandButton Update_Overdraw_Limit
Caption = "Update_Overdraw_Limit"
Height = 495
Left = 5160
TabIndex = 23
Top = 5280
Width = 2415
End
Begin VB.CommandButton Debit_For_Unload
Caption = "Debit_For_Unload"
Height = 495
Left = 2640
TabIndex = 22
Top = 5280
Width = 2415
End
Begin VB.CommandButton Debit_For_Cash_Withdraw
Caption = "Debit_For_Cash_Withdraw"
Height = 495
Left = 120
TabIndex = 21
Top = 5280
Width = 2415
End
Begin VB.CommandButton Get_Balance
Caption = "Get_Balance"
Height = 495
Left = 2640
TabIndex = 20
Top = 4680
Width = 2415
End
Begin VB.CommandButton Credit_For_Load
Caption = "Credit_For_Load"
Height = 495
Left = 120
TabIndex = 19
Top = 4680
Width = 2415
End
Begin VB.CommandButton Reload_PIN
Caption = "Reload_PIN"
Height = 495
Left = 5160
TabIndex = 18
Top = 4080
Width = 2415
End
Begin VB.CommandButton PIN_Unblock
Caption = "PIN_Unblock"
Height = 495
Left = 2640
TabIndex = 17
Top = 4080
Width = 2415
End
Begin VB.CommandButton Application_Unblock
Caption = "Application_Unblock"
Height = 495
Left = 120
TabIndex = 16
Top = 4080
Width = 2415
End
Begin VB.CommandButton Command2
Caption = "Application_Block"
Height = 495
Left = 5160
TabIndex = 15
Top = 3480
Width = 2415
End
Begin VB.CommandButton Read_Binary
Caption = "Read_Binary"
Height = 495
Left = 2640
TabIndex = 14
Top = 3480
Width = 2415
End
Begin VB.CommandButton Update_Binary
Caption = "Update_Binary"
Height = 495
Left = 120
TabIndex = 13
Top = 3480
Width = 2415
End
Begin VB.CommandButton Read_Record
Caption = "Read_Record"
Height = 495
Left = 5160
TabIndex = 12
Top = 2880
Width = 2415
End
Begin VB.CommandButton Update_Record
Caption = "Update_Record"
Height = 495
Left = 2640
TabIndex = 11
Top = 2880
Width = 2415
End
Begin VB.CommandButton Change_PIN
Caption = "Change_PIN"
Height = 495
Left = 120
TabIndex = 10
Top = 2880
Width = 2415
End
Begin VB.CommandButton Verfiy
Caption = "Verfiy"
Height = 495
Left = 5160
TabIndex = 9
Top = 2280
Width = 2415
End
Begin VB.CommandButton Internal_authentication
Caption = "Internal_Authentication"
Height = 495
Left = 2640
TabIndex = 8
Top = 2280
Width = 2415
End
Begin VB.CommandButton Debit_For_Purchase
Caption = "Debit_For_Purchase"
Height = 495
Left = 5160
TabIndex = 7
Top = 4680
Width = 2415
End
Begin VB.CommandButton Write_Key
Caption = "Write_Key"
Height = 495
Left = 2640
TabIndex = 6
Top = 1680
Width = 2415
End
Begin VB.CommandButton External_Authentication
Caption = "External_Authentication"
Height = 495
Left = 120
TabIndex = 5
Top = 2280
Width = 2415
End
Begin VB.CommandButton Select_File
Caption = "Select_File"
Height = 495
Left = 120
TabIndex = 4
Top = 1680
Width = 2415
End
Begin VB.CommandButton Create_File
Caption = "Create_File"
Height = 495
Left = 5160
TabIndex = 3
Top = 1080
Width = 2415
End
Begin VB.CommandButton Get_Challenge
Caption = "Get_Challenge"
Height = 495
Left = 5160
TabIndex = 2
Top = 1680
Width = 2415
End
Begin VB.CommandButton Reset
Caption = "Reset"
Height = 495
Left = 120
TabIndex = 1
Top = 1080
Width = 2415
End
Begin VB.CommandButton delete
Caption = "Delete"
Height = 495
Left = 2640
TabIndex = 0
Top = 1080
Width = 2415
End
Begin MWAX.MWactiveX MW
Left = 0
Top = 0
_ExtentX = 2990
_ExtentY = 1508
End
End
Attribute VB_Name = "examples"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mbRet As Boolean
Private Sub Application_Unblock_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建ＭＦ
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100050f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Application_Block(geU_TempKey16, "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Application_Unblock("12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub Change_PIN_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建ＭＦ
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100080f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000B0f000f331234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f800619")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_EncryptInstall, "", "ffFFFFFFFFFFFFFF", "010100080f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_EncryptInstall, "", "12345678901234567890123456789012", "0101000B0f000f33123456")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Change_PIN("1234", "5678")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Verify("5678")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("123456")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Change_PIN("123456", "0987")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Verify("0987")
If Not mbRet Then MsgBox MW.Errshow
End Sub
Private Sub Chinese_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建ＭＦ
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(定长记录文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
Dim pbIn(8) As Byte
'**********************************
mbRet = MW.ChineseString_DoubleByte("相约98", pbIn())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Update_Binary(geU_Data, "83", 0, 8, pbIn())
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Read_Binary("83", 0, 8, pbIn())
If Not mbRet Then MsgBox MW.Errshow
Dim psOut As String
'**********************************
mbRet = MW.DoubleByte_ChineseString(psOut, pbIn(), 8)
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub Command2_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -