Как создать JSON контроллер в vb.net

Question

Мне передали устаревшую систему VB. NET aspx с подключенной службой asmx, и я должен получить ее, получив JSON, а также XML.

Я сделал много поиска вокруг, и я сейчас играю с добавлением контроллера, чтобы справиться с этим. У меня проблема в том, что я не могу заставить контроллер ответить на запрос GET для подтверждения концепции. Я раньше не использовал контроллер, и вся информация в Интернете указывает на использование C# и проекта MVC. Из-за ограничений и других интеграций я не могу переписать всю систему, и мне просто нужна конечная точка, которая будет принимать JSON.

Каков наилучший способ сделать это? и если контроллер является способом к go, csan кто-нибудь посоветует, как получить его в ответ на GET. Нужны ли дополнительные настройки в моем файле web.config?

Imports System.Net
Imports System.Web.Http
Imports Newtonsoft.Json


Public Class AjaxServiceController

    Inherits ApiController

    ' GET api/<controller>/5
    <HttpGet> <HttpPost> <AllowAnonymous>
    Public Function GetValue(ByVal ApplicationRef As String, ByVal ID As String) As String
        'Here's where we poll for updates
        Dim statusUpdate As New StatusUpdate
        Dim pollresponse As String = ""
        Dim ApplicationFunctions As ApplicationFunctions = Nothing

        GetValue = JsonConvert.SerializeObject(statusUpdate)

        Try

            ApplicationFunctions = New ApplicationFunctions(Nothing, "")

            pollresponse = ApplicationFunctions.PollUpdates(ApplicationRef, ID)

            If pollresponse <> "" Then

                GetValue = pollresponse

            End If

        Catch ex As Exception

            ErrorHandling.LogException(ex)

        End Try

    End Function

    ' POST api/<controller>
    Public Sub PostValue(<FromBody()> ByVal value As String)

    End Sub

    ' PUT api/<controller>/5
    Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)

    End Sub

    ' DELETE api/<controller>/5
    Public Sub DeleteValue(ByVal id As Integer)

    End Sub
End Class