Files
2025-12-11 13:49:44 +08:00

85 lines
1.8 KiB
VB.net
Raw Permalink Blame History

This file contains ambiguous Unicode characters
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
' 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