实现思路: 脚本会读取指定的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
该函数访问指定的微云笔记地址 然后把分析出的结果写到一个数组 该函数返回一个数组 可以遍历这个数组来提取出需要的信息