1. 程式人生 > >微雲筆記遠程控制腳本思路

微雲筆記遠程控制腳本思路

display itl iyu bsp 控制 開關 獲取 ner ins


實現思路: 腳本會讀取指定的url的源代碼 從中提取出腳本需要的信息 然後根據這些信息來控制腳本的行為 我們只是需要調整指定的url上面的網頁內容 就可以遠程的控制腳本的運行情況

常見的功能實現:


  1. 腳本間隔一會檢測下網絡地址上的信息 然後根據剛才獲取的信息來決定後面的腳本操作 遠程控制腳本開關
  2. 遠程控制腳本的運行情況
  3. 腳本會根據網絡信息來進行信息驗證 判斷是否允許登錄 等等


微雲筆記端的配置

技術分享圖片

點擊分享之後 記住那個分享的鏈接

如果要調整內容

技術分享圖片


註意 第一行 不要用分隔符 因為根據微雲筆記的網頁源文件來看 從第二行開始寫網絡配置信息比較好 第一行寫的話 提取出的內容會有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

該函數訪問指定的微雲筆記地址 然後把分析出的結果寫到一個數組 該函數返回一個數組 可以遍歷這個數組來提取出需要的信息

微雲筆記遠程控制腳本思路