实现思路: 脚本会读取指定的url的源代码 从中提取出脚本需要的信息 然后根据这些信息来控制脚本的行为 我们只是需要调整指定的url上面的网页内容 就可以远程的控制脚本的运行情况
常见的功能实现:
微云笔记端的配置
点击分享之后 记住那个分享的链接
如果要调整内容
注意 第一行 不要用分隔符 因为根据微云笔记的网页源文件来看 从第二行开始写网络配置信息比较好 第一行写的话 提取出的内容会有html代码的干扰 代码如下
安卓按键端(脚本端)：
基本思路：从指定地址的源代码 提取出需要的信息 分隔符 我个人习惯用@==== 用这个分隔符分割整个源代码 然后得到内容数组 里面存在@==== 则提取里面的内容到<的位置就可以
代码函数
Function 从微云笔记获取信息操作() Dim 网页源代码="" Dim 微云地址="https://share.weiyun.com/5QM9QMb" Dim 分组,全组,临时地址,分隔符 分隔符 = "@====" //一.获取到源代码 和粗劣的分析源码 网页源代码 = URL.Get(微云地址) //这里的微云地址是公共变量获取到的 网页源代码 = 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/9219197.html