?? examples.frm
字號:
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
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, "", "", "010100070f000f3312345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000B0f000f111234")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Reload_PIN("123456", "12345678901234567890123456789012")
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Verify("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
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進制文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f0f0619")
If Not mbRet Then MsgBox MW.Errshow
'建結束DF
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
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
'建MF
'mbRet = MW.Sam_Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
'If Not mbRet Then MsgBox MW.Errshow
'建DF
'mbRet = MW.Sam_Create_File(geU_CreateDF, "00020f001234567890")
'If Not mbRet Then MsgBox MW.Errshow
'建EF(二進制文件)
'mbRet = MW.Sam_Create_File(geU_CreateEF, "0003000f0f0020")
'If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
'mbRet = MW.Sam_Create_File(geU_CreateEF, "0004050f0f0619")
'If Not mbRet Then MsgBox MW.Errshow
'建結束DF
'mbRet = MW.Sam_Create_File(geU_CreateEndDF, "0002")
'If Not mbRet Then MsgBox MW.Errshow
'建結束MF
'mbRet = MW.Sam_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.Select_File(geU_SelectEF, "0003")
If Not mbRet Then MsgBox MW.Errshow
'下卡座
'mbRet = MW.Sam_Select_File(geU_SelectMF, "3f00")
'If Not mbRet Then MsgBox MW.Errshow
'mbRet = MW.Sam_Select_File(geU_SelectDF, "0002")
'If Not mbRet Then MsgBox MW.Errshow
'mbRet = MW.Sam_Select_File(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
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(定長記錄文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
mbRet = MW.Create_File(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(geU_Data, "83", 0, 10, pbIn())
If Not mbRet Then MsgBox MW.Errshow
'**********************************
End Sub
Private Sub Update_Overdraw_Limit_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF
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
'建結束DF
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
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.Update_Overdraw_Limit("01123456789012", "003000", "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 Update_Record_Click()
'上卡座
mbRet = MW.Reset
If Not mbRet Then MsgBox MW.Errshow
mbRet = MW.Delete
If Not mbRet Then MsgBox MW.Errshow
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(定長記錄文件)
mbRet = MW.Create_File(geU_CreateEF, "0003010f0f060a")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
mbRet = MW.Create_File(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Update_Record(1, "1c", 10, "12345678901234567890")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
'mbRet = mw.Select_File(geU_SelectEF, "0003")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Update_Record(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
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進制文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f0f0020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結束DF
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
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
'建EF(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.Verify("1234")
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
'**********************************
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
'**********************************
'建MF
mbRet = MW.Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
If Not mbRet Then MsgBox MW.Errshow
'建DF
mbRet = MW.Create_File(geU_CreateDF, "00020f001234567890")
If Not mbRet Then MsgBox MW.Errshow
'建EF(二進制文件)
mbRet = MW.Create_File(geU_CreateEF, "0003000f000020")
If Not mbRet Then MsgBox MW.Errshow
'建EF(key文件)
mbRet = MW.Create_File(geU_CreateEF, "0004050f000619")
If Not mbRet Then MsgBox MW.Errshow
'建結束DF
mbRet = MW.Create_File(geU_CreateEndDF, "0002")
If Not mbRet Then MsgBox MW.Errshow
'建結束MF
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, "", "", "0101000B0f000f33123456")
If Not mbRet Then MsgBox MW.Errshow
'**********************************
mbRet = MW.Select_File(geU_SelectMF, "3f00")
If Not mbRet Then MsgBox MW.Errshow
'建EF(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
'**********************************
'下卡座
'mbRet = mw.Sam_Reset
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_delete
'If Not mbRet Then MsgBox mw.ErrShow
'**********************************
'建MF
'mbRet = mw.Sam_Create_File(geU_CreateMF, "FFFFFFFFFFFFFFFF0f011234567890")
'If Not mbRet Then MsgBox mw.ErrShow
'建DF
'mbRet = mw.Sam_Create_File(geU_CreateDF, "00020f001234567890")
'If Not mbRet Then MsgBox mw.ErrShow
'建EF(二進制文件)
'mbRet = mw.Sam_Create_File(geU_CreateEF, "0003000f0f0020")
'If Not mbRet Then MsgBox mw.ErrShow
'建EF(key文件)
'mbRet = mw.Sam_Create_File(geU_CreateEF, "0004050f000619")
'If Not mbRet Then MsgBox mw.ErrShow
'建結束DF
'mbRet = mw.Sam_Create_File(geU_CreateEndDF, "0002")
'If Not mbRet Then MsgBox mw.ErrShow
'建結束MF
'mbRet = mw.Sam_Create_File(geU_CreateEndMF, "")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Select_File(geU_SelectMF, "3f00")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Select_File(geU_SelectDF, "0002")
'If Not mbRet Then MsgBox mw.ErrShow
'**********************************
'mbRet = mw.Sam_Write_Key(geU_WordInstall, "", "", "010100080f000f3312345678901234567890123456789012")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Write_Key(geU_WordInstall, "", "", "0101000B0f000f331234")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Write_Key(geU_EncryptEdit, "", "", "010100080f000f3312345678901234567890123456789012")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Write_Key(geU_EncryptEdit, "", "", "0101000B0f000f331234")
'If Not mbRet Then MsgBox mw.ErrShow
'**********************************
'mbRet = mw.Sam_Select_File(geU_SelectMF, "3f00")
'If Not mbRet Then MsgBox mw.ErrShow
'建EF(key文件)
'mbRet = mw.Sam_Create_File(geU_CreateEF, "0004050f800619")
'If Not mbRet Then MsgBox mw.ErrShow
'**********************************
'mbRet = mw.Sam_Write_Key(geU_EncryptInstall, "", "ffFFFFFFFFFFFFFF", "010100080f000f3312345678901234567890123456789012")
'If Not mbRet Then MsgBox mw.ErrShow
'mbRet = mw.Sam_Write_Key(geU_EncryptInstall, "", "12345678901234567890123456789012", "0101000B0f000f331234")
'If Not mbRet Then MsgBox mw.ErrShow
'**********************************
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -