新增如下命令：

SetRecord
GetReocrd
CombindRecord

AUTS_DataService/Service1.vb

@@ -1439,8 +1439,6 @@ Public Class Service1
             _license = New License(licensePath)
             _license.CheckLicense()
 
-            UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"License Info:{JsonConvert.SerializeObject(_license, Formatting.Indented)}.")
-
             UTS_Core.DebugLog.ApplicationLog.WriteInfoLog($"CheckLicense Success.")
         Catch ex As Exception
             UTS_Core.DebugLog.ApplicationLog.WriteErrorLog($"CheckLicense Error:{ex.Message}.")
@@ -1460,8 +1458,6 @@ Public Class Service1
 
         Dim packet() As Byte = _webPacker.FillPacket(CByte(UtsWebPacket.Commands.UploadTaskStatus), param.ToArray)
         SendDataToWeb(_webUdpClient.Client, _webRemoteIP, packet)
-
-        ServiceLog.WriteDebugLog($"UploadAddTask :{JsonConvert.SerializeObject(task)}")
     End Sub
 
     ''' <summary>