前兩句是參考了8583那個控制元件
Private WithEvents Host As OpenIso8583Service.SCClient
Public Event Response(iRet As Integer, RCode As String)
用JSON發送資料
'查詢余額
Private Function getCXYEComm() As String
Dim day As Date
Dim time As Date
day = Now
transmsn_date_time = Format(day, "yyyymmdd")
MessageType = "0200"
procode = "CXYE"
primary_acct_num = "1212121234321234312"
processing_code = "301200"
sys_trace_audit_num = "123456"
acq_inst_id_code = "12365432123"
card_accptr_termnl_id = "11110000"
pin_data = "123456"
msg_authn_code = "12341234"
CommHead = "{'MessageType':'" + MessageType + "','ProcCode':'" + procode + "','Fields':{"
CommBody = _
"'primary_acct_num':'" + primary_acct_num + _
"','processing_code':'" + processing_code + _
"','transmsn_date_time':'" + transmsn_date_time + _
"','sys_trace_audit_num':'" + sys_trace_audit_num + _
"','acq_inst_id_code':'" + acq_inst_id_code + _
"','card_accptr_termnl_id':'" + card_accptr_termnl_id + _
"','pin_data':'" + pin_data + _
"','msg_authn_code':'" + msg_authn_code + _
"'}}"
getCXYEComm = CommHead + CommBody
End Function
這是打開連接
Private Sub OPEN_Click()
Set Host = New OpenIso8583Service.SCClient
Host.Start
End Sub
這是查詢按鈕的內容
Private Sub CXYE_Click()
Host.Send (getCXYEComm) <---除錯錯誤在這一行
End Sub
uj5u.com熱心網友回復：
在查詢之前有沒有執行 OPEN_Click ？uj5u.com熱心網友回復：
把斷點放在這里Set Host = New OpenIso8583Service.SCClient
看看這句是否執行了
uj5u.com熱心網友回復：
1、確保 OPEN_Click 執行2、改一下寫法：
Private Sub CXYE_Click()
If Not (Host Is Nothing) Then
Host.Send (getCXYEComm)
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103777.html
標籤：網絡編程
下一篇：點一個按鈕則運行此exe