有道云笔记 文件 永久直链解析(无需服务器).NET 版本

岔路ko

借用了坛友帖子的思路
有道云笔记永久直链解析
https://www.52pojie.cn/thread-1823448-1-1.html

有道云笔记 文件 永久直链解析(无需服务器) - 『原创发布区』 - 吾爱破解 - LCG - LSG |安卓破解|病毒分析|www.52pojie.cn

(出处: 吾爱破解论坛)

主要是想学习一下技术并看看原理，原来并不复杂。
主要可以用于软件分发，版本更新。相当于一个免费的服务器吧，再使用短地址来生成一下短地址，那是非常完美了。

1.有道云笔记分享地址:https://note.youdao.com/s/cusiy8WX
2.使用本工具解析的地址：http://note.youdao.com/yws/api/personal/file/WEBfb1d035ffc78cb76efe912ac254fcb0b?method=download&inline=true&shareKey=bc6ee9ebf60cba8c2bd793ad30dec7f1
3.使用新浪短网址生成的地址:https://dwz.win/a6ZP

新浪短网址 可以在这个地址生成:新浪短网址 短网址生成 网址缩短服务 - 短网址 (sina.lt)

觉着不错可以给个免费的评分，谢谢。

工具在这个文件夹下，自己也可以编译。

[Visual Basic .NET] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Public Class Form1       Private Sub DownText(strUrl As String)         Dim csStopwatch As New Stopwatch         strUrl = GetHttpResutl(strUrl)         Dim strPattern As String = "id=(.*?)&type="         Dim match As Match = Regex.Match(strUrl, strPattern)         If (match.Success) Then             Dim strID As String = match.Groups(0).Value.Replace("id=", "").Replace("&type=", "")             strUrl = $"http://note.youdao.com/yws/public/note/{strID}?editorType=0&cstk=cGtjFpHb"             Dim jsonResult As String = GetHttpResutl(strUrl, False)             Dim csRootobject As Rootobject = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Rootobject)(jsonResult)             Dim strP As String = csRootobject.p.Replace("/", "")             TextBox2.Text = $"http://note.youdao.com/yws/api/personal/file/{strP}?method=download&inline=true&shareKey={strID}"         Else             MsgBox("分享链接无法解析", MsgBoxStyle.OkOnly, "提示")         End If         csStopwatch.Stop()     End Sub       Private Function GetHttpResutl(strUrl As String, Optional ByVal bolUrl As Boolean = True) As String           Using httpClient As New HttpClient()             Try                 ' 发起 GET 请求                 Dim response As HttpResponseMessage = httpClient.GetAsync(strUrl).Result                 ' 确保请求成功                 response.EnsureSuccessStatusCode()                 ' 读取 JSON 数据                 If bolUrl Then                     Return response.RequestMessage.RequestUri.ToString                 Else                     Return response.Content.ReadAsStringAsync().Result                 End If             Catch ex As HttpRequestException                 MsgBox($"发生 HTTP 请求错误: {ex.Message}", MsgBoxStyle.OkOnly, "提示")                 Return ""             End Try         End Using     End Function           Private Sub Btn_JX_Click(sender As Object, e As EventArgs) Handles Btn_JX.Click         TextBox2.Text = String.Empty         DownText(txt_Url.Text)     End Sub     End Class         Public Class Rootobject     Public Property p As String     Public Property ct As Integer     Public Property su As Object     Public Property pr As Integer     Public Property au As Object     Public Property pv As Integer     Public Property mt As Integer     Public Property sz As Integer     Public Property domain As Integer     Public Property tl As String     Public Property isFinanceNote As Boolean End Class

一起进步，瑞思拜。

bennyrose

楼主这个东西失效了 那个 直连  {
    "canTryAgain": false,
    "scope": "SECURITY",
    "error": "207",
    "message": "Message[AUTHENTICATION_FAILURE]: User token must be authenticated.",
    "objectUser": null
} 需要登录后才给你下载了！ 修复一下吧  

hondao

{
    "canTryAgain": false,
    "scope": "SECURITY",
    "error": "207",
    "message": "Message[AUTHENTICATION_FAILURE]: User token must be authenticated.",
    "objectUser": null
}

pangshaohua

不错，学习了

leeyolo

感谢分享

G0028Q

学习学习了

EZ4TNT

好，学习了

雾都孤尔

学习了，感谢分享。

cbkxh

感谢分享，学习一下

QWE121

谢谢谢谢谢谢谢谢想

ghostwindows

感谢楼主无私分享