[教程源码] 中控控制(学习使用)

Call 控制线程()

Sub 控制线程()
    TracePrint "进入控制线程"
    Dim isConn,发送信息,接收,talbeV
    Dim 中控编号,清源ID,编号,指令,手机号,短信内容,最后时间
   
    最后时间=zm.FileReadLines("Record.txt")
    Dim 扫绿,扫蓝,失败数,成功数
    扫蓝 = zm.FileReadLines("已送达.txt")
    扫绿 = zm.FileReadLines("未送达.txt")
    ShowMessage "准备连接中控台"
    
    TracePrint 中控IP, 端口
    
    isConn = zm.TCPConnect(中控IP, 端口, 60)
  
    If isConn Then 
        ShowMessage "连接中控台成功"
        If 最后时间 = null Then 
            回传服务器 "", 编号组, "最后时间", 最后时间[1], "", ""
        Else
            回传服务器 "", 编号组, "最后时间", "", "", ""
        End If
        
        
        
        Do
            接收 = zm.TCPReceive(1)
            接收 = zm.DecodeURL(接收)
            TracePrint "接收",接收
            If 接收 <> "" Then 
                talbeV = Encode.JsonToTable(接收)
                /*******************************************************/
                
                中控编号= talbeV["中控编号"]
                清源ID = talbeV["清源ID"]
                If 中控编号 <> null Then 
                    编号 = talbeV["中控编号"]
                ElseIf talbeV["首次编号"] <> null Then
                    编号 = talbeV["首次编号"]
                End If
                指令 = talbeV["指令"]
                手机号 = talbeV["手机号"]
                短信内容 = talbeV["短信内容"]
                
                 /*******************************************************/
                                
                If 手机号 <> null and  短信内容 <> null  Then 
                    主程序 手机号, 短信内容, 编号,清源ID
                ElseIf 指令 = "End" Then
                    EndScript
                ElseIf 指令 = "suspend" Then    
                    Call 暂时(编号)
                End If
            ElseIf 编号 <> null Then
                If 扫蓝 = null Then 
                    成功数=0
                Else 
                    成功数=扫蓝[1]
                End If
                If 扫绿 = null Then 
                    失败数=0
                Else 
                    失败数= 扫绿[1]
                End If
                回传服务器 编号, "就绪", "灰已送达", 成功数, "红未送达", 失败数
            End If
            Delay 1000
        Loop
    Else 
        ShowMessage "连接中控台失败"
        TracePrint "TCP连接失败"
    End If
   
End Sub

Sub 删除信息()
    If FCex(编辑, 2) Then 
        Delay 500
        For i = 0 To 5
            Tap 44, 207 + i * 151
            Delay 100
        Next
        Delay 500
        Tap 587,1093
    End If
End Sub

Sub 暂时(编号)
    Dim 接收,talbeV,指令,发送信息,扫绿,扫蓝
    Do
        接收 = zm.TCPReceive(0, "*a")
        接收 = zm.DecodeURL(接收)
        TracePrint "接收",接收
        If 接收 <> "" Then 
            talbeV = Encode.JsonToTable(接收)
            指令 = talbeV["指令"]
            If 指令 = "Continue" Then 
                Exit Do
            ElseIf 指令 = "End" Then
                EndScript
            ElseIf 指令 = "清除" Then
                zm.FileWrite "已送达.txt", "0"
                zm.FileWrite "未送达.txt", "0"
                扫绿 = zm.FileReadLines("已送达.txt")
                扫蓝 = zm.FileReadLines("未送达.txt")
                If 扫绿[1] = "0" and 扫蓝[1] = "0" Then 
                    发送信息 = Json转("中控编号",编号,"IP端口","", "指令","成功清除数据","","")
                    发送信息= zm.EncodeURL (发送信息)
                    zm.TCPSend (发送信息)
                Else 
                    发送信息 = Json转("中控编号",编号,"IP端口","", "指令","清除数据失败","","")
                    发送信息= zm.EncodeURL (发送信息)
                    zm.TCPSend (发送信息)
                End If
                Delay 1000
            ElseIf 指令 = "改参数" Then
                指令 = 取表数据(接收, "参数")
                TracePrint "指令",指令
                zm.FileWrite "已送达.txt", 指令
            End if
        End If
        发送信息 = Json转("中控编号",编号,"IP端口","", "指令","暂停中","","")
        发送信息= zm.EncodeURL (发送信息)
        zm.TCPSend (发送信息)
        Delay 2000
    Loop
End Sub

Function 主程序(手机号,短信内容,编号,清源ID)
    TracePrint "进入主线程"
    回传服务器(编号,"进入设置界面","","","","")
    Dim 发送信息,Pws,邮箱,蓝数量,内容
    主程序=False
    KillApp "com.apple.Preferences"
    Delay 1000
    RunApp "com.apple.Preferences"
    Delay 1000
    蓝数量 = 请求扫蓝数量(编号)
   
    进入APPID 蓝数量,编号,清源ID
    主程序=True
End Function

Sub 回传服务器(参数1, 参数2,参数3,参数4,参数5,参数6)
    Dim 发送信息,接收,指令
    接收 = zm.TCPReceive(0, "*a")
    指令 = 取表数据(接收, "指令")
    TracePrint 指令
    If 指令 = "suspend" Then 
        Call 暂时(参数1)
        Exit Sub
    ElseIf 指令 = "End" Then
        EndScript
    End If
    Delay 1000
    发送信息 = Json转("中控编号",参数1, "指令",参数2,参数3,参数4,参数5,参数6)
    发送信息= zm.EncodeURL (发送信息)
    zm.TCPSend (发送信息)
End Sub