WEBSERVICE 中的 SOAP 安全认证

　　服务器端(包括设计器生成的代码)　　Imports System　　Imports System.Web.Services　　Imports System.Web.Services.Protocols　　' _　　Public Class soapservice　　Inherits System.Web.Services.WebService　　Public Class MySoapHeader　　Inherits SoapHeader　　Public username As String　　Public password As String　　End Class　　　　#Region " Web 服务设计器生成的代码 "　　　　Public Sub New()　　MyBase.New()　　　　'该调用是 Web 服务设计器所必需的。　　InitializeComponent()　　　　'在 InitializeComponent() 调用之后添加您自己的初始化代码　　　　End Sub　　　　'Web 服务设计器所必需的　　Private components As System.ComponentModel.IContainer　　　　'注意: 以下过程是 Web 服务设计器所必需的　　'可以使用 Web 服务设计器修改此过程。　　'不要使用代码编辑器修改它。　　Private Sub InitializeComponent()　　components = New System.ComponentModel.Container　　End Sub　　　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)　　'CODEGEN: 此过程是 Web 服务设计器所必需的　　'不要使用代码编辑器修改它。　　If disposing Then　　If Not (components Is Nothing) Then　　components.Dispose()　　End If　　End If　　MyBase.Dispose(disposing)　　End Sub　　　　#End Region　　　　' Add a member variable of the type deriving from SoapHeader.　　Public temp As New MySoapHeader　　　　' Apply a SoapHeader attribute.　　SoapHeader("temp")> _　　Public Function HelloWorld() As String　　If temp.username = "admin" Then　　Return temp.username　　Else : Return "user为空"　　End If　　End Function　　End Class　　　　客户端（不包括设计器）　　Imports System.Web.Services.Protocols　　　　Dim h As localhost.MySoapHeader　　Dim myheader As localhost.MySoapHeader　　Dim proxy As localhost.soapservice = New localhost.soapservice　　h = New localhost.MySoapHeader　　h.password = "1"　　h.username = "admin"　　　　proxy.MySoapHeaderValue = h　　Dim results As String = proxy.HelloWorld　　　　TextBox1.Text = results　　TextBox2.Text = h.username