如何通过VB.NET无需登录读取SharePoint Online文件实现版本检测？

方案1：使用SPO组织内共享链接（最简方案，零代码改动） #

• 操作步骤：打开SPO文档库找到version.txt文件，点击「共享」，共享范围选择「你的组织内人员可查看」，取消勾选「允许编辑」，生成共享链接后删除链接末尾的?web=1后缀，即可得到文件的直接下载地址
• 优势：完全不需要调整代码逻辑，仅需要替换原函数中的SPO地址即可，不需要额外引入依赖，也不需要协调其他团队人员，你只要对该文件有编辑权限即可独立完成操作。

方案2：使用MSAL静默获取AAD令牌（兼容性最优，长期可用） #

如果公司禁用了文件共享功能，可以选择该方案，不会受共享链接过期、权限调整影响：

• 首先在Azure AD中注册一个单租户应用（普通用户即可自行注册，不需要管理员权限），配置https://login.microsoftonline.com/common/oauth2/nativeclient作为重定向URI，勾选「允许公共客户端流」，为应用委派Sites.Read.All权限（普通用户可自行同意授权）
• 在你的VB.NET项目中引入Microsoft.Identity.Client NuGet包
• 替换原getVersion函数逻辑，参考代码如下：

Imports Microsoft.Identity.Client
Imports System.Net.Http.Headers

Private Async Function getVersion() As Task(Of String)
    ' 替换为你注册的应用客户端ID、公司租户ID
    Dim clientId As String = "xxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx"
    Dim tenantId As String = "xxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx"
    Dim pca = PublicClientApplicationBuilder.Create(clientId) _
        .WithAuthority(AzureCloudInstance.AzurePublic, tenantId) _
        .WithRedirectUri("https://login.microsoftonline.com/common/oauth2/nativeclient") _
        .Build()
    Dim scopes As New List(Of String) From {"https://companyname.sharepoint.com/.default"}
    Dim result As AuthenticationResult
    Try
        ' 静默获取当前Windows登录用户的令牌，无需弹出登录框
        result = Await pca.AcquireTokenSilent(scopes, pca.GetAccountsAsync().Result.FirstOrDefault()) _
            .ExecuteAsync()
    Catch ex As MsalUiRequiredException
        ' 极少数静默验证失败的场景可直接返回空值，跳过本次更新检查即可
        Return ""
    End Try
    Using client As New HttpClient
        client.DefaultRequestHeaders.Authorization = New AuthenticationHeaderValue("Bearer", result.AccessToken)
        Return Await client.GetStringAsync("https://companyname.sharepoint.com/site/library/version.txt")
    End Using
End Function

方案3：临时验证方案 #

你可以先尝试在原WebClient逻辑中添加默认凭据，部分域配置完善的企业环境下可以直接通过SPO验证：

Private Function getVersion() As String
  Using client As New WebClient
    client.UseDefaultCredentials = True
    client.Credentials = CredentialCache.DefaultNetworkCredentials
    getVersion = client.DownloadString("https://companyname.sharepoint.com/site/library/version.txt")
  End Using
End Function

内容的提问来源于stack exchange，提问作者Doppelganger