Private objSoapClient As SoapClient30
Dim strXML as string
The Set objSoapClient=New SoapClient30
ObjSoapClient. MSSoapInit "http://www.dykj.cn:8023/hbhis/ws/soap/sendHis? WSDL
"
StrXML="& lt; ? XML version="1.0" "encoding=" utf-8 ""? & gt;"
StrXML=strXML & amp; "& lt; LoginReqData>"
StrXML=strXML & amp; "& lt; Username> 1000000081 & lt;/username>"
StrXML=strXML & amp; "& lt; Password> F549E08BEBD5F23CB4DC27369536454B & lt;/password>
StrXML=strXML & amp; "& lt;/loginReqData>"
StrXML=Base64. Base64Encode (strXML)
ObjSoapClient.. Login (strXML)
'XML splicing and Base64 conversion must not wrong,
'error parameter error below:
Document requirements as shown in figure:
CodePudding user response:
If you are sure there is nothing wrong with BASE64 encoding conversion, then you will check the SoapClient30 code!There is "the login web site," whether it will make certain the authentication (the client's identity, is not only a "user"), such as!
If it is "validate" cannot pass, return an error state, therefore, don't know why,