[教程源码] 通过坚果云实现远程访问txt

Import "zm.luae" //导入插件,只需执行一次
zm.Init  //初始化插件,只需执行一次
Dim s = "https://www.jianguoyun.com/p/DelcYj0Qp7-HCBiemNMC"
TracePrint  访问_坚果云(s)
Function 访问_坚果云(网址)
    Dim 返回值,正则,匹配结果,url1,key,结果
    正则 = "www%.jianguoyun%.com%/p%/(.*)"
    匹配结果 = zm.RegExMatchExSingle(网址,正则)
    If 匹配结果<>Null Then 
        key = 匹配结果
    Else 
        访问_坚果云 = false
        Exit Function 
    End If    
    url1 = "https://www.jianguoyun.com/d/ajax/pubPreviewLink?key="& key &"&pdfviewer=true&_="&zm.Timestamp()&zm.RndNum (100,999)
    返回值 = URL.Get(url1)
    返回值 = Encode.JsonToTable(返回值)
    If 返回值["url"]<>Null Then 
        结果 = 返回值["url"]
        url1 = "https://www.jianguoyun.com" & 结果 & "&_=" & zm.Timestamp()&zm.RndNum (100,999)
        返回值 = URL.Get(url1)
        访问_坚果云 = 返回值
    Else 
        访问_坚果云 = false
    End If
End Function