⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 examples.frm

📁 中国石化IC开发程序
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
'上卡座
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_Block(geU_ForeverKey16, "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
End Sub



Private Sub Create_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(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, "0004050f0f0619")
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.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(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
'If Not mbRet Then MsgBox MW.Errshow
'建ＤＦ
'mbRet = MW.Sam_Create_File(geU_CreateDF, "00020f001234567890")
'If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(二进制文件)
'mbRet = MW.Sam_Create_File(geU_CreateEF, "0003000f0f0020")
'If Not mbRet Then MsgBox MW.Errshow
'建ＥＦ(key文件)
'mbRet = MW.Sam_Create_File(geU_CreateEF, "0004050f0f0619")
'If Not mbRet Then MsgBox MW.Errshow
'建结束ＤＦ
'mbRet = MW.Sam_Create_File(geU_CreateEndDF, "0002")
'If Not mbRet Then MsgBox MW.Errshow
'建结束ＭＦ
'mbRet = MW.Sam_Create_File(geU_CreateEndMF, "")
'If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub

Private Sub Credit_For_Load_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, "0003050f000919")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "0018030f0f0a17")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "000106ffffffff")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Create_File(geU_CreateEF, "000207ffffffff")
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, "", "", "010100010fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100000fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100030fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100040fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000b0f000fff1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Credit_For_Load(geU_Purse, "0100001000123456789012", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub

Private Sub Debit_For_Cash_Withdraw_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, "0003050f000919")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "0018030f0f0a17")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Create_File(geU_CreateEF, "000106ffffffff")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "000207ffffffff")
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, "", "", "010100010fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100000fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100030fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100040fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000b0f000fff1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Credit_For_Load(geU_Bankbook, "0100001000123456789012", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
Dim psB As String
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Debit_For_Cash_Withdraw("0100000100123456789012", "12345678", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Get_Balance(geU_Bankbook, psB)
If Not mbRet Then MsgBox MW.Errshow
End Sub

Private Sub Debit_For_Purchase_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, "0003050f000919")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "0018030f0f0a17")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Create_File(geU_CreateEF, "000106ffffffff")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "000207ffffffff")
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, "", "", "010100010fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100000fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100030fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100040fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000b0f000fff1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Credit_For_Load(geU_Bankbook, "0100001000123456789012", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
Dim psB As String
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Debit_For_Purchase(geU_Bankbook, "0100000100123456789012", "12345678", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Get_Balance(geU_Bankbook, psB)
If Not mbRet Then MsgBox MW.Errshow
End Sub

Private Sub Debit_For_Unload_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, "0003050f000919")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "0018030f0f0a17")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Create_File(geU_CreateEF, "000106ffffffff")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Create_File(geU_CreateEF, "000207ffffffff")
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, "", "", "010100010fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100000fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100030fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'mbRet = mw.Write_Key(geU_WordInstall, "", "", "010100040fff0fff12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000b0f000fff1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Credit_For_Load(geU_Bankbook, "0100001000123456789012", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
Dim psB As String
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Select_File(geU_SelectDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("1234")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Debit_For_Unload("0100000100123456789012", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Get_Balance(geU_Bankbook, psB)
If Not mbRet Then MsgBox MW.Errshow
End Sub

Private Sub delete_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Delete
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
'**********************************
End Sub

Private Sub External_Authentication_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")
1234

⌨️ 快捷键说明

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