Imports System
Imports System.Web.Services.Protocols
Public Class MySoapHeader
Inherits SoapHeader
Public User As String
Public Password As String
End Class
Public Class WebServiceName
Inherits System.Web.Services.WebService
Public credentials As MySoapHeader
Public Function _
ValidUser() As String
if credentials.user="X" and credentials.password="Y" then
Return "valid user"
Else
Return "not a valid user"
End If
End Function
End Class
Dim header As New localhost.MySoapHeader()
header.User = "x"
header.Password = "y"
Dim Valid As New localhost.WebServiceName()
Valid.MySoapHeaderValue = header
Try
TextBox1.Text = Valid.ValidUser()
Catch soapErr As SoapException
TextBox1.Text = soapErr.Message
End Try