Skip to content

Instantly share code, notes, and snippets.

@josergdev

josergdev/od-directlink.m

Created December 31, 2024 17:07
Show Gist options
  • Save josergdev/220f37bde07f1efe30ef3f25573aec4d to your computer and use it in GitHub Desktop.
Save josergdev/220f37bde07f1efe30ef3f25573aec4d to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. josergdev revised this gist Dec 31, 2024. No changes.
  2. josergdev created this gist Dec 31, 2024.
    53 changes: 53 additions & 0 deletions od-directlink.m
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,53 @@
    let
    Origen = let
    url = "https://api-badgerp.svc.ms/v1.0/token",
    body = Text.ToBinary("{""appid"":""00000000-0000-0000-0000-0000481710a4""}"),
    headers = [
    #"Content-Type" = "application/json"
    ],
    response = Web.Contents(
    url,
    [
    Headers = headers,
    Content = body
    ]
    ),
    token = Json.Document(response)[token]
    in
    token,
    GetReddem = let
    url = "https://1drv.ms/x/c/......................................YOURLINK",
    source = Text.FromBinary(Web.Contents(url)),
    start = Text.PositionOf(source, """Redeem"":""") + Text.Length("""Redeem"":"""),
    remaining = Text.Middle(source, start),
    end = Text.PositionOf(remaining, """"),
    redeem = Text.Middle(remaining, 0, end)
    in
    [Token = Origen, Redeem = redeem],
    ExcelInfo = let
    Token = GetReddem[Token],
    Redeem = GetReddem[Redeem],
    URL = "https://my.microsoftpersonalcontent.com/_api/v2.0/shares/u!" & Redeem & "/driveItem?action=EmbedView&$select=id,openWith,officebundle,currentUserRole,eTag,name,size,content.downloadUrl,file,sharepointIds,sensitivityLabel,webUrl,webDavUrl,parentReference,vault",
    Headers = [
    #"Authorization" = "Badger " & Token,
    #"accept" = "application/json",
    #"accept-language" = "es-ES,es;q=0.9",
    #"origin" = "https://onedrive.live.com",
    #"prefer" = "autoredeem",
    #"priority" = "u=1, i",
    #"referer" = "https://onedrive.live.com/",
    #"sec-ch-ua" = """Google Chrome"";v=""131"", ""Chromium"";v=""131"", ""Not_A Brand"";v=""24""",
    #"sec-ch-ua-mobile" = "?0",
    #"sec-ch-ua-platform" = """Windows""",
    #"sec-fetch-dest" = "empty",
    #"sec-fetch-mode" = "cors",
    #"sec-fetch-site" = "cross-site",
    #"user-agent" = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/131.0.0.0 Safari/537.36"
    ],
    Response = Web.Contents(URL, [ Headers = Headers ]),
    json = Json.Document(Response)
    in
    json,
    Excel = Excel.Workbook(Web.Contents(ExcelInfo[#"@content.downloadUrl"]), null, true)
    in
    Excel