.NET (Core and Framework)

<br />
Namespace CTPInfoData<br />
  <DataContract()> _<br />
  Public Class myInfo<br />
<br />
    <DataMember()> _<br />
    Public Name As String<br />
<br />
    <DataMember()> _<br />
    Public Allowed As Boolean<br />
<br />
  End Class<br />
End Namespace<br />
<br />
Namespace CTPInfoCtrlns<br />
  <ServiceContract()> _<br />
  Public Interface IInfoCtrl<br />
    <OperationContract()> _<br />
    Function SetName(ByVal Info As CTPInfoData.myInfo) As Boolean<br />
  End Interface<br />
<br />
  Public Class CTPInfoCtrl<br />
    Implements IInfoCtrl<br />
<br />
    Public Function SetName(ByVal Info As CTPInfoData.myInfo) As Boolean Implements IInfoCtrl.SetName<br />
      If Info.Allowed Then<br />
        If Info.Name = "Bert" Then<br />
          Return True<br />
        Else<br />
          Return False<br />
        End If<br />
      Else<br />
        Return False<br />
      End If<br />
    End Function<br />
  End Class<br />
End Namespace<br />
<br />
Module Module1<br />
<br />
  Sub Main()<br />
    Dim baseuri As New Uri("http://127.0.0.1:8027/")<br />
    Dim host As ServiceHost = New ServiceHost(GetType(CTPInfoCtrlns.CTPInfoCtrl), baseuri)<br />
<br />
    Dim metadata As ServiceMetadataBehavior = host.Description.Behaviors.Find(Of ServiceMetadataBehavior)()<br />
    If metadata Is Nothing Then<br />
      metadata = New ServiceMetadataBehavior<br />
      metadata.HttpGetEnabled = True<br />
      host.Description.Behaviors.Add(metadata)<br />
    Else<br />
      metadata.HttpGetEnabled = True<br />
    End If<br />
<br />
    Dim bind As Binding = New BasicHttpBinding()<br />
    host.AddServiceEndpoint(GetType(CTPInfoCtrlns.IInfoCtrl), bind, "http://127.0.0.1:8027/CTPInfo")<br />
<br />
    host.Open()<br />
    Console.WriteLine("Running service....press any key to terminate")<br />
    Console.ReadKey()<br />
<br />
  End Sub<br />
<br />
End Module<br />

<br />
  Sub Main()<br />
<br />
    Dim bind As New BasicHttpBinding()<br />
    Dim endpoint As New EndpointAddress("http://127.0.0.1:8027/CTPInfo")<br />
    Dim ctrl As New InfoCtrlClient(bind, endpoint)<br />
<br />
    Dim info As New TestWCFService.CTPInfoData.myInfo<br />
    info.Allowed = True<br />
    info.Name = "Bert"<br />
<br />
    ' call our function<br />
    Console.WriteLine("The answer is: " & IIf(ctrl.SetName(info), "YES!!", "No :("))<br />
    Console.ReadKey()<br />
    ctrl.Close()<br />
<br />
  End Sub<br />