使用asmx web服务进行基本身份验证

我找到了答案 How to add HTTP Header to SOAP Client .我必须在那页上结合几个答案才能使它起作用。

    Dim svc As New WebServiceSoapClient()
    Dim responseService As SoapResponseObject
    Using (new OperationContextScope(svc.InnerChannel))

        Dim auth = "Basic " + Convert.ToBase64String(Encoding.Default.GetBytes("userId:i2awTieS0mdO"))

        Dim requestMessage = New HttpRequestMessageProperty()
        requestMessage.Headers("Authorization") = auth
        OperationContext.Current.OutgoingMessageProperties(HttpRequestMessageProperty.Name) = requestMessage

        dim aMessageHeader = MessageHeader.CreateHeader("Authorization", "http://tempuri.org", auth)
        OperationContext.Current.OutgoingMessageHeaders.Add(aMessageHeader)

        responseService = svc.ListDistricts(requestService)

    End Using

需要注意的一点是,soap客户端调用必须位于Using语句中。在上面的代码中,这是最后一行的下一行。