85 lines
1.8 KiB
VB.net
85 lines
1.8 KiB
VB.net
|
' NuGet 安装：Newtonsoft.Json
|
|||
|
|
Imports Newtonsoft.Json
|
|||
|
|
|
|||
|
|
Public Class Program
|
|||
|
|
|
|||
|
|
|
|||
|
|
'<JsonProperty("isok")>
|
|||
|
|
Public Property IsOk As Boolean
|
|||
|
|
|
|||
|
|
'<JsonProperty("message")>
|
|||
|
|
Public Property Message As Object
|
|||
|
|
|
|||
|
|
'<JsonProperty("status")>
|
|||
|
|
Public Property Status As Integer
|
|||
|
|
|
|||
|
|
'<JsonProperty("response")>
|
|||
|
|
Public Property Response As DeviceInfo
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
End Class
|
|||
|
|
|
|||
|
|
Public Class DeviceInfo
|
|||
|
|
'<JsonProperty("clientId")>
|
|||
|
|
Public Property ClientId As Integer
|
|||
|
|
|
|||
|
|
'<JsonProperty("machineType")>
|
|||
|
|
Public Property MachineType As Integer
|
|||
|
|
|
|||
|
|
'<JsonProperty("uuid")>
|
|||
|
|
Public Property Uuid As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("orderNo")>
|
|||
|
|
Public Property OrderNo As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("productId")>
|
|||
|
|
'Public Property ProductId As Integer
|
|||
|
|
|
|||
|
|
'<JsonProperty("deviceName")>
|
|||
|
|
Public Property DeviceName As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("secretKey")>
|
|||
|
|
Public Property SecretKey As String
|
|||
|
|
|
|||
|
|
' 原始字符串，仅做存储
|
|||
|
|
'<JsonProperty("createTime")>
|
|||
|
|
Public Property CreateTimeStr As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("createTimeUnix")>
|
|||
|
|
Public Property CreateTimeUnix As Long
|
|||
|
|
|
|||
|
|
'<JsonProperty("updateTime")>
|
|||
|
|
Public Property UpdateTimeStr As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("updateTimeUnix")>
|
|||
|
|
Public Property UpdateTimeUnix As Long
|
|||
|
|
|
|||
|
|
'<JsonProperty("hotelCode")>
|
|||
|
|
Public Property HotelCode As Object
|
|||
|
|
|
|||
|
|
'<JsonProperty("remark")>
|
|||
|
|
Public Property Remark As String
|
|||
|
|
|
|||
|
|
'<JsonProperty("excelFileName")>
|
|||
|
|
Public Property ExcelFileName As Object
|
|||
|
|
|
|||
|
|
'<JsonProperty("excelBatchFlag")>
|
|||
|
|
Public Property ExcelBatchFlag As Long
|
|||
|
|
|
|||
|
|
'<JsonProperty("clientStatus")>
|
|||
|
|
Public Property ClientStatus As Object
|
|||
|
|
|
|||
|
|
'<JsonProperty("isDelete")>
|
|||
|
|
Public Property IsDelete As Boolean
|
|||
|
|
|
|||
|
|
'<JsonProperty("brandld")>
|
|||
|
|
Public Property BrandId As Object
|
|||
|
|
|
|||
|
|
'<JsonProperty("mcuUuid")>
|
|||
|
|
Public Property McuUuid As String
|
|||
|
|
|
|||
|
|
End Class
|