VB.NET 创建ASP.NET WebAPI及应用(一)

''原代码
Public Class HomeController
    Inherits System.Web.Mvc.Controller

    Function Index() As ActionResult
        ViewData("Title") = "Home Page"

        Return View()
    End Function
End Class

Public Class HomeController
    Inherits Controller

    Function Index() As String
        Return "你好啊!WebAPI服务器"
    End Function
End Class

'配置eb API返回JSON字符串
        config.Formatters.JsonFormatter.SerializerSettings.ReferenceLoopHandling = Newtonsoft.Json.ReferenceLoopHandling.Ignore
        config.Formatters.Remove(config.Formatters.XmlFormatter)
        Dim jsonFormatter As Object = config.Formatters.OfType(Of JsonMediaTypeFormatter)().First()
        jsonFormatter.SerializerSettings.ContractResolver = New CamelCasePropertyNamesContractResolver()

Imports System.Net
Imports System.Web.Http

Public Class LoginController
    Inherits ApiController

    ' GET api/login?
    ' <HttpGet> ''请求方式
    ' <ActionName("Token")> ''方法名称
    <AcceptVerbs("GET", "HEAD")> ''允许的请求方式
    <Route("api/login/token")> ''自定义路由
    Public Function GetToken(<FromUri()> uid As String, <FromUri()> pwd As String) As Object
        If uid = "admin" And pwd = "123" Then
            Return New Responobj With {
                    .Code = 200,
                    .Msg = "成功",
                    .Info = "登录系统成功",
                    .Datas = Now().GetHashCode
                }
        Else
            Return New Responobj With {
                  .Code = 400,
                  .Msg = "失败",
                  .Info = "账户或密码错误",
                  .Datas = Nothing
              }
        End If
    End Function


    ''' <summary>
    ''' 定义一个返回体
    ''' </summary>
    Public Class Responobj
        Public Property Code As Integer
        Public Property Msg As String
        Public Property Info As String
        Public Property Datas As Object
    End Class


End Class

链接：https://pan.baidu.com/s/1Gv9l_4ZNrJVa0abXlZSopQ 
提取码：vbee 
--来自百度网盘超级会员V5的分享