Private objSoapClient As SoapClient30
dim strXML as string
Set objSoapClient = New SoapClient30
objSoapClient.MSSoapInit “http://www.dykj.cn:8023/hbhis/ws/soap/sendHis?wsdl”
strXML = "<?xml version=""1.0"" encoding=""UTF-8""?>"
strXML = strXML & "<loginReqData>"
strXML = strXML & " <username>1000000081</username>"
strXML = strXML & " <password>F549E08BEBD5F23CB4DC27369536454B</password>
strXML = strXML & "</loginReqData>"
strXML = Base64.Base64Encode(strXML )
objSoapClient..login(strXML )
‘XML拼接與Base64轉換肯定沒有錯。
'報錯 引數錯誤 如下圖：
檔案要求如圖：
uj5u.com熱心網友回復：
如果你確定BASE64編碼轉換沒有錯，那你得查一下SoapClient30的代碼啊！還有就是“被登錄網站”，它是否會進行某些身份驗證（客戶機的身份，不僅僅是“用戶”身份）之類的！
如果是“驗證”不能通過，因此回傳錯誤狀態，鬼才知道原因。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/55823.html
標籤：網絡編程
下一篇：串口服務器緩沖區