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
