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