1,502
社区成员
发帖
与我相关
我的任务
分享
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 )