微云笔记控制脚本实例：远程控制脚本开关

作用:

这个只是一个简单的思路 作用是 就算脚本在客户手里 我们依然可以通过微云笔记来随时控制那边的脚本是否执行 比如客户拿了脚本跑路了 而且我们也没有做平时做的一些限制 我们可以使用微云来关闭脚本 客户运行脚本就会提示关闭无法运行下去

微云端：

脚本端：

//放到脚本的开头判断下
Call 微云笔记网络验证(“https://share.weiyun.com/5QM9QMb”)


//作用获取指定的微云链接 提取出微云页面的第四行内容判断是否存在关这个字 没有则没事 继续执行 有责关闭脚本
Function 微云笔记网络验证(微云地址)
    Dim  arr
    //https://share.weiyun.com/5EdPtQh
    //https://share.weiyun.com/5WOrMzS
    arr = zm.Clone(微云笔记获取信息操作(微云地址))
    If IsNull(arr(3)) Then 
        For 5
            Call show("网络控制信息获取失败 请检查") //show函数是我自己写的函数其实就是showmessage 和traceprint的合体
            Delay 2000
        Next
        EndScript
    ElseIf UTF8.InStr(1, arr(3), "关") >= 1 Then
        For i=5 to 1 step -1
            Call show("即将关闭 ["&cstr(i)&"]")
            Delay 2000
        Next
        EndScript
    Else
    End If
    
End Function

Function 微云笔记获取信息操作(微云地址)
    
    Dim 网页源代码=""
    //Dim 微云地址="https://share.weiyun.com/5QM9QMb"
    Dim 分组,全组,临时地址,分隔符
    分隔符 = "@===="
    
    //一.获取到源代码 和粗劣的分析源码
    网页源代码 = URL.Get(微云地址) //这里的微云地址是公共变量获取到的
    (1)如果源码里面不存在
    TracePrint 网页源代码
    网页源代码 = Trim(取文本中间("ql-editor ql-blank\"><p>", "</div>", 网页源代码)) //取出源代码里面的<div class='ql-editor-inner'>  </div>之间的内容  我们需要分析的内容都在这个区域    
    TracePrint 网页源代码
    
    //二.对这部分源码进行分析 得到每行的内容 
    分组=""
    分组 = Split(网页源代码, 分隔符) 
    For Each vv In 分组        
        TracePrint vv
    Next
    //三.去掉一些没必要的html源码 获取到最后的结果
    For i = 0 To UBOUND(分组)
        分组(i) = Trim(UTF8.Mid(分组(i), 1, UTF8.InStr(1, 分组(i), "<") - 1))
        TracePrint 分组(i)
    Next
    
    //四.把结果作为返回值返回
    微云笔记获取信息操作=分组
        
End Function

转载于:https://www.cnblogs.com/zjl8455482/p/9225360.html