📄 shapp.frm
字号:
VERSION 5.00
Object = "{10336011-AB2C-11D4-8E1C-00002100DD42}#4.0#0"; "MWAX.OCX"
Begin VB.Form shapp
Caption = "石化专用COS例程"
ClientHeight = 5595
ClientLeft = 60
ClientTop = 345
ClientWidth = 7410
LinkTopic = "Form1"
ScaleHeight = 5595
ScaleWidth = 7410
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command11
Caption = "加油消费流程"
Height = 495
Left = 4680
TabIndex = 9
Top = 4080
Width = 2055
End
Begin VB.CommandButton Command9
Caption = "应用解锁"
Height = 495
Left = 2640
TabIndex = 10
Top = 4080
Width = 2055
End
Begin VB.CommandButton Command5
Caption = "灰锁解扣"
Height = 495
Left = 4680
TabIndex = 4
Top = 3600
Width = 2055
End
Begin VB.CommandButton Command10
Caption = "发PSAM卡"
Height = 495
Left = 3600
TabIndex = 8
Top = 1800
Width = 2055
End
Begin VB.CommandButton Command7
Caption = "联机解扣"
Height = 495
Left = 2640
TabIndex = 6
Top = 3600
Width = 2055
End
Begin VB.CommandButton Command6
Caption = "读标志"
Height = 495
Left = 600
TabIndex = 5
Top = 4080
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "灰锁"
Height = 495
Left = 600
TabIndex = 1
Top = 3600
Width = 2055
End
Begin VB.CommandButton Command4
Caption = "读余额"
Height = 495
Left = 4680
TabIndex = 3
Top = 3120
Width = 2055
End
Begin VB.CommandButton Command8
Caption = "消费"
Height = 495
Left = 2640
TabIndex = 7
Top = 3120
Width = 2055
End
Begin VB.CommandButton Command3
Caption = "圈存"
Height = 495
Left = 600
TabIndex = 2
Top = 3120
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "发用户卡"
Height = 495
Left = 1560
TabIndex = 0
Top = 1800
Width = 2055
End
Begin MWAX.MWactiveX MW
Left = 0
Top = 0
_ExtentX = 2990
_ExtentY = 1508
End
End
Attribute VB_Name = "shapp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim psR As String
Dim pbIn(50) As Byte
mbRet = MW.Reset(psR)
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.delete(String(16, "F"))
'If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'建ＭＦ名称:1PAY.SYS.DDF01
mbRet = MW.Create_File(geU_CreateMF, String(16, "f") + "0f01315041592E5359532E4444463031")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'建立DIR文件-0001,42个字节
mbRet = MW.Create_File(geU_CreateEF, "0001020F0F0028")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'写DIR文件
mbRet = MW.Select_File(geU_SelectEF, "0001")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Append_Record("00", 19, "61114F09A00000000386980701500450424F43")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Append_Record("00", 19, "61114F09A00000000386980702500450424F43")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'石化应用
mbRet = MW.Create_File(geU_CreateDF, "2F020F00A00000000386980701")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'KEY文件-2F01
mbRet = MW.Create_File(geU_CreateEF, "2F01051F001019")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'增加KEY
'#圈存KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "030100010F000FFF9C90A23E18486D0340D5868B3BADA121")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈存KEY类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "040100010F000FFF8F9AC57AF07E85452A3081414DA58072")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈提KEY 类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "030100030F000FFF0A3FCB406929CCD7F4AB2A50C52B9EEB")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈提KEY 类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "040100030F000FFF01DF8034728173D53F8CFA7FDCA11627")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#消费KEY 类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "030100000F000FFFCF896E42A67B5E22C3A6CE33205B82B9")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#消费KEY 类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "040100000F000FFFC44E11D74E7164F1260C8D48AC13DF32")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#修改透支KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "030100040F000FFF55A0FE2FC152A957890762588FD32646")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#修改透支KEY类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "040100040F000FFFC6A1EE89828F5D902ABAADDE5735863C")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#PIN重装KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100070F000FFF38D0A155794DFBBE709C1051232491D1")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#PIN解锁KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100060F000FFFCF7D9D37DF7EF5C895A3A1CE5103496F")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#应用维护KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100050F000FFFC7C8D8829363357389ED234147551401")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#TAC KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020F000FFFDD10FEEA3EA530C922BA2F48D6321C93")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#联机解扣子密钥1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0301000D0F000FFF4E223293BA66403AAB5149E7FDE46444")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#联机解扣子密钥2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0401000D0F000FFFBAE0DB903D2E80ED515289FD4365CDEF")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'个人密码
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000B0F010F331234")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'公共应用基本文件-0015
mbRet = MW.Create_File(geU_CreateEF, "0015000F0F001E")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'写公共应用基本文件
mbRet = MW.Asc_To_Hex("626400223333000111020002200008170000000120000101201012315566", pbIn(0), 30)
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Update_Binary(geU_Data, "95", 0, 30, pbIn())
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'持卡人基本文件-0016
mbRet = MW.Create_File(geU_CreateEF, "0016000F0F0027")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'写持卡人基本文件
mbRet = MW.Asc_To_Hex("000053414D504C4520434152442041444631000000003131303130323938313231383030313005", pbIn(0), 39)
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Update_Binary(geU_Data, "96", 0, 39, pbIn())
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'交易明细-0018
mbRet = MW.Create_File(geU_CreateEF, "0018031F100A17")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'ET专用文件-0003
mbRet = MW.Create_File(geU_CreateEF, "00030900000026")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'存折文件-0002
mbRet = MW.Create_File(geU_CreateEF, "00020700000014")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'建立ADF结束
mbRet = MW.Create_File(geU_CreateEndDF, "2F02")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'银行应用 , FID=2F03
mbRet = MW.Create_File(geU_CreateDF, "2F030F00A00000000386980702")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'KEY文件-2F01
mbRet = MW.Create_File(geU_CreateEF, "2F01051F001019")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'增加KEY
'#圈存KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100010F000FFF9105930B23AFE20E2B0C9055E182B493")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈存KEY类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "020100010F000FFFA110F9B0D3CAE7834AC3B71FE795A302")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈提KEY 类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100030F000FFFD533690671475D907F8E2F57EB5BF246")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#圈提KEY 类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "020100030F000FFF97470CC6F67540A438215B94F32EF4CB")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#消费KEY 类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100000F000FFFE9B4665CD2CEF859C46DACB04513E47F")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#消费KEY 类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "020100000F000FFF2B2551EFBB3179AACBCD2E01793F4FAB")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#修改透支KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100040F000FFFBE9F791EED87966ABAE515DF07385176")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#修改透支KEY类型2
mbRet = MW.Write_Key(geU_WordInstall, "", "", "020100040F000FFF54386B3AE09ED7E04953E89A887DE49A")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#PIN重装KEY类型1
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100070F000FFFBBD8B1D4A100BCA2BBB82BCB38E7AE4F")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#PIN解锁KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100060F000FFF6AD1C5206CFE1E2DA15EFBE733B3C4DA")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#应用维护KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100050F000FFF9E9420977191B968752650158045B4DA")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'#TAC KEY类型
mbRet = MW.Write_Key(geU_WordInstall, "", "", "010100020F000FFF928FA6C49BB73DD7C9007561FD6A525D")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'个人密码
mbRet = MW.Write_Key(geU_WordInstall, "", "", "0101000B0F010F331234")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'公共应用基本文件-0015
mbRet = MW.Create_File(geU_CreateEF, "0015000F0F001E")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'写公共应用基本文件
mbRet = MW.Asc_To_Hex("636400223333000203010002200008170000000120000101201012318899", pbIn(0), 30)
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Update_Binary(geU_Data, "95", 0, 30, pbIn())
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'持卡人基本文件-0016
mbRet = MW.Create_File(geU_CreateEF, "0016000F0F0027")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'写持卡人基本文件
mbRet = MW.Asc_To_Hex("000053414D504C4520434152442041444632000000003131303130323938313231383030313005", pbIn(0), 39)
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
mbRet = MW.Update_Binary(geU_Data, "96", 0, 39, pbIn())
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'交易明细-0018
mbRet = MW.Create_File(geU_CreateEF, "0018031F100A17")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'钱包文件-0001
mbRet = MW.Create_File(geU_CreateEF, "00010600000011")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'存折文件-0002
mbRet = MW.Create_File(geU_CreateEF, "00020700000014")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'建立ADF结束
mbRet = MW.Create_File(geU_CreateEndDF, "2F03")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
'建结束ＭＦ
mbRet = MW.Create_File(geU_CreateEndMF, "")
If Not mbRet Then MsgBox MW.Errshow: Exit Sub
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -