📄 exampsam.frm

📁 中国石化IC开发程序
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "01000B0f000f111234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify_Psam("123456")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.PIN_Unblock_Psam("1234", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub


Private Sub Read_Binary_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(定长记录文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
Dim pbOut(10) As Byte
Dim pbIn(10) As Byte
Dim piI As Integer
For piI = 0 To 9
    pbIn(piI) = piI
Next piI
mbRet = MW.Update_Binary_Psam(geU_Data, "83", 0, 10, pbIn())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Read_Binary_Psam("83", 0, 10, pbOut())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub


Private Sub Read_Record_Click()
'上卡座
Dim psRec As String

mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(定长记录文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003010f0f060a")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Update_Record_Psam(1, "1c", 10, "12345678901234567890")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Read_Record_Psam(1, "1c", 10, psRec)
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub


Private Sub Reload_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "0100040f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "01000B0f000f111234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Reload_PIN_Psam("123456", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify_Psam("123456")
If Not mbRet Then MsgBox MW.Errshow
End Sub


Private Sub Reset_Click()
'**********************************
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub

Private Sub Select_File_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'下卡座
mbRet = MW.Sam_Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Delete
If Not mbRet Then MsgBox MW.Errshow
'建ＭＦ
mbRet = MW.Sam_Create_File_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Sam_Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Sam_Create_File_Psam(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Sam_Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'上卡座
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectEF, "0003")
If Not mbRet Then MsgBox MW.Errshow
'下卡座
mbRet = MW.Sam_Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Sam_Select_File_Psam(geU_SelectEF, "0003")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub



Private Sub Update_Binary_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(定长记录文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
Dim pbIn(10) As Byte
Dim piI As Integer
For piI = 0 To 9
    pbIn(piI) = piI
Next piI
'**********************************
mbRet = MW.Update_Binary_Psam(geU_Data, "83", 0, 10, pbIn())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub


Private Sub Update_Record_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(定长记录文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003010f0f060a")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Update_Record_Psam(1, "1c", 10, "12345678901234567890")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'mbRet = mw.Select_File_Psam(geU_SelectEF, "0003")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Update_Record_Psam(1, "04", 10, "12345678901234567890")
'If Not mbRet Then MsgBox mw.ErrShow
End Sub

Private Sub Verfiy_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_Psam(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
mbRet = MW.Create_File_Psam(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
mbRet = MW.Create_File_Psam(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "0100000f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_WordInstall, "", "", "01000B0f000f331234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
mbRet = MW.Create_File_Psam(geU_CreateEF, "0004c50f800619")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_EncryptInstall, "", "ffffffffffffffff", "0100000f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key_Psam(geU_EncryptInstall, "", "12345678901234567890123456789012", "01000B0f000f33123456")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File_Psam(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Verify_Psam("1234")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Select_File_Psam(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Verify_Psam("123456")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub


Private Sub Write_Key_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, "0003000f000020")
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.Write_Key(geU_EncryptEdit, "", "", "010100080f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_EncryptEdit, "", "", "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", "0101000B0f000f331234")
If Not mbRet Then MsgBox MW.Errshow
End Sub
上一页 1 2 34
💿 文件大小 167 K
👤 上传用户 pengcong2008_
📂 所属分类其他行业
🏷️ 相关标签

#程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -