关于通过HTTP协议访问组件 DCOM组件需要客户端注册WebSErvice可以到lostinet.d2g.com找个js的客户端来用 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你是猪啊,不会就别装HTTP protocol 1.1500 :服务端的错物. 这是我用MSXML访问WebServices的例子,仅供参考: Dim obj As New MSXML2.XMLHTTP40 Dim str str = "<SOAP-ENV:Envelope SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"">" str = str + "<SOAP-ENV:Body> <SOAPSDK1:Logon xmlns:SOAPSDK1=""http://tempuri.org/message/"">" str = str + "<bstrUserName>ÐìïµÂ</bstrUserName> <bstrUserPasswd>111111</bstrUserPasswd> <bstrCertificate /> <bstrUserSign /> </SOAPSDK1:Logon> </SOAP-ENV:Body> </SOAP-ENV:Envelope>" obj.open "POST", "http://roy_wu/UMSSystem/ZDUserAuthority.wsdl", False obj.setRequestHeader "Content-Length", Len(str) obj.setRequestHeader "Content-Type", "text/xml;charset=GB2312" obj.setRequestHeader "SOAPAction", "http://tempuri.org/action/UserAuthority.Logon" obj.send str在Send的字符串(xml)中,不能有XML版本描述,否则就会返回错误。 紧急求助!关于ListBox显示问题 大家看看这个错误时什么原因 要取得屏幕上某个窗口的位图,并且把它转换成 32 位怎么办? 商业化软件寻找开发合作 请教注册表问题 谁知道QQ在WIN2000下的运行机制! 如何处理Sleep()函数引起的程序死锁问题 有谁懂这些控件 如何显示一个三维函数的图形? 请教,在VC下编制拨号程序 如何定义全局变量(在线恭候,答完就给分) 请问一下浏览后如何保存XML页面
HTTP protocol 1.1
500 :服务端的错物.
Dim str
str = "<SOAP-ENV:Envelope SOAP-ENV:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"" xmlns:SOAP-ENV=""http://schemas.xmlsoap.org/soap/envelope/"">"
str = str + "<SOAP-ENV:Body> <SOAPSDK1:Logon xmlns:SOAPSDK1=""http://tempuri.org/message/"">"
str = str + "<bstrUserName>ÐìïµÂ</bstrUserName> <bstrUserPasswd>111111</bstrUserPasswd> <bstrCertificate /> <bstrUserSign /> </SOAPSDK1:Logon> </SOAP-ENV:Body> </SOAP-ENV:Envelope>"
obj.open "POST", "http://roy_wu/UMSSystem/ZDUserAuthority.wsdl", False
obj.setRequestHeader "Content-Length", Len(str)
obj.setRequestHeader "Content-Type", "text/xml;charset=GB2312"
obj.setRequestHeader "SOAPAction", "http://tempuri.org/action/UserAuthority.Logon"
obj.send str在Send的字符串(xml)中,不能有XML版本描述,否则就会返回错误。