叫你的webservice人员开通get、post请求
<webServices>
<protocols>
<add name= "HttpPost"/>
<add name= "HttpGet"/>
</protocols>
</webServices>
------------------------------------然后用下面的代码
Dim url As String = "http://192.168.1.83/EFWebS/EFWebService.asmx/U8WebXML?ufinterface roottag=voucher&billtype=gl&efserverid=123&eftype=17&efdebug=1&sender=011&proc=Query"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(url)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
rsps.Close
stm.Close
reader.close
msgbox(str)
[此贴子已经被作者于2016/3/24 14:35:47编辑过]