2021-06-15

最新推荐文章于 2024-10-03 10:49:35 发布

lst0426

最新推荐文章于 2024-10-03 10:49:35 发布

阅读量1k

点赞数

分类专栏：按键精灵

本文链接：https://blog.youkuaiyun.com/vv1025/article/details/117932953

版权

微云笔记脚本控制网络验证执行权限远程控制

关键词由优快云通过智能技术生成

按键精灵专栏收录该内容

20 篇文章

订阅专栏

作用:

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

微云端：

脚本端：

//放到脚本的开头判断下
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