Emergency!

[hexiaohua_2002]

运行
Public Function Add() As String
Dim objSoapClient As New SoapClient
objSoapClient.ClientProperty("ServerHTTPRequest") = True
Call objSoapClient.mssoapinit("http://localhost:8080/wstk/AddressBookServicewebserver/AddressBookService-impl.WSDL", "Service1", "Service1Soap")
End Function
时出现错误提示：XML PARSER FAILED　AT LINENOMBER 0，LINEPOSITION 0，REASON IS：指定资源下载失败
请问高手如何解决？

[saucer]

first make sure the following url is valid in your browser ?

http://localhost:8080/wstk/AddressBookServicewebserver/AddressBookService-impl.WSDL