作用:

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

 

微云端：

 

脚本端：

//放到脚本的开头判断下
Call 微云笔记网络验证(“https://share.weiyun.com/5QM9QMb”)//作用获取指定的微云链接 提取出微云页面的第四行内容判断是否存在关这个字 没有则没事 继续执行 有责关闭脚本
Function 微云笔记网络验证(微云地址)Dim  arr//https://share.weiyun.com/5EdPtQh//https://share.weiyun.com/5WOrMzSarr = zm.Clone(微云笔记获取信息操作(微云地址))If IsNull(arr(3)) Then For 5Call show("网络控制信息获取失败 请检查") //show函数是我自己写的函数其实就是showmessage 和traceprint的合体Delay 2000NextEndScriptElseIf UTF8.InStr(1, arr(3), "关") >= 1 ThenFor i=5 to 1 step -1Call show("即将关闭 ["&cstr(i)&"]")Delay 2000NextEndScriptElseEnd IfEnd FunctionFunction 微云笔记获取信息操作(微云地址)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 vvNext//三.去掉一些没必要的html源码 获取到最后的结果For i = 0 To UBOUND(分组)分组(i) = Trim(UTF8.Mid(分组(i), 1, UTF8.InStr(1, 分组(i), "<") - 1))TracePrint 分组(i)Next//四.把结果作为返回值返回微云笔记获取信息操作=分组End Function