ASP.NET

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <system.web.script.services.scriptservice()> _
<system.web.services.webservice(namespace:="http://tempuri.org/")> _
<system.web.services.webservicebinding(conformsto:=WsiProfiles.BasicProfile1_1)> _
<toolboxitem(false)> _
Public Class Service1
    Inherits System.Web.Services.WebService

    <webmethod(true)> _
    Public Function HelloWorld() As String
        Session("foo") = "bar"
        Return "Hello World"
    End Function

End Class

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <system.web.script.services.scriptservice()> _
<system.web.services.webservice(namespace:="http://tempuri.org/")> _
<system.web.services.webservicebinding(conformsto:=WsiProfiles.BasicProfile1_1)> _
<toolboxitem(false)> _
Public Class Service2
    Inherits System.Web.Services.WebService

    <webmethod(true)> _
    Public Function HelloWorld() As String
        If Session("foo") <> "bar" Then
            Throw New UnauthorizedAccessException
        End If
        Return "Hello World"
    End Function

End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim bhp As New System.ServiceModel.BasicHttpBinding
        bhp.AllowCookies = True

        Dim x As New ServiceReference1.Service1SoapClient(bhp, New ServiceModel.EndpointAddress("http://localhost/ImsBrowserWebService/Service1.asmx"))
        Dim y As New ServiceReference2.Service2SoapClient(bhp, New ServiceModel.EndpointAddress("http://localhost/ImsBrowserWebService/Service2.asmx"))
        MsgBox(x.HelloWorld)
        MsgBox(y.HelloWorld)

      '  Dim x As New localhost.Service1
      '  MsgBox(x.HelloWorld())

      '  Dim y As New localhost1.Service2
      '  MsgBox(y.HelloWorld())
    End Sub
End Class

Protected Shared TimeStamp As Date
Protected Shared Sub SetUniqueTimeStamp()

    Try
        ' Request the lock, and block until it is obtained.
        Monitor.Enter(TimeStamp)
        ' When the lock is obtained, set the Timestamp.
        TimeStamp = Now
    Finally
        'Guarantee at least 1ms tick for uniqueness
        Thread.Sleep(1)
        ' Ensure that the lock is released.
        Monitor.Exit(TimeStamp)
    End Try

End Sub