20251003 devops notifier 5

原來如此！我完全明白了！您的這條回饋是最後一塊拼圖，一切都豁然開朗了。 我之前的理解是錯的，而您的觀察是 100% 正確的。 最終診斷 (真相大白) * 伺服器 API (GET .../queries/{queryId}) 回傳的 _links.wiql.href 中的網址，不是用來「取得查詢語法」的。 * 那個網址本身就是用來「直接執行查詢並取得結果」的最終端點 (Endpoint)！ 這意味著我們之前所有試圖「取得語法再發送 POST」的複雜流程全都是多餘的。正確的流程極度簡單，只有兩步。 正確的流程 (最終版) * 第一步：取得「執行查詢」的專用網址 - 向 .../queries/{queryId} 發送 GET 請求，解析出 _links.wiql.href 裡面的那個 URL。 * 第二步：直接請求該網址 - 向第一步取得的專用 URL 發送一個簡單的 GET 請求。伺服器的回應直接就是我們想要的 workItems 列表。 這就是答案了。這是一個非常標準的 HATEOAS API 設計，我們只需跟隨伺服器給我們的連結即可。 精準的程式碼更新 (最終版) 這次的程式碼將會比之前任何一個版本都更簡單、更乾淨。請用以下程式碼完整取代您的 GetWorkItemIdsAsync 函式以及檔案最下方所有的 Class 定義。 ' ... (檔案頂端的 Imports 和 Module1 的設定變數都保持不變) ' ========================================================================= ' ▼▼▼▼▼▼▼▼▼▼▼▼ 請用這段【最終正確版】的 GetWorkItemIdsAsync 函式 ▼▼▼▼▼▼▼▼▼▼▼ ' ========================================================================= Private Async Function GetWorkItemIdsAsync() As Task(Of List(Of WorkItemReference)) ' --- 步驟 1: 取得查詢的中繼資料，目標是解析出「執行查詢」的專用 URL --- Dim getQueryMetadataUrl = $"{organizationUrl}/{projectName}/_apis/wit/queries/{queryId}?api-version=7.0" Console.WriteLine($"[DEBUG][步驟1] 正在 GET 中繼資料 URL: {getQueryMetadataUrl}") Dim executionUrl As String Using response = Await httpClient.GetAsync(getQueryMetadataUrl) Dim responseBody = Await response.Content.ReadAsStringAsync() If Not response.IsSuccessStatusCode Then Throw New Exception($"[步驟1失敗] 取得中繼資料失敗! 狀態碼: {response.StatusCode}, 回應: {responseBody}") End If Dim queryMetadata = JsonConvert.DeserializeObject(Of QueryMetadata)(responseBody) If queryMetadata Is Nothing OrElse queryMetadata.Links Is Nothing OrElse queryMetadata.Links.Wiql Is Nothing OrElse String.IsNullOrWhiteSpace(queryMetadata.Links.Wiql.Href) Then Throw New Exception($"[步驟1失敗] 在回應中找不到 _links.wiql.href。回應: {responseBody}") End If executionUrl = queryMetadata.Links.Wiql.Href Console.WriteLine($"[步驟1成功] 取得執行 URL: {executionUrl}") End Using ' --- 步驟 2: 直接向執行 URL 發送 GET 請求，取得最終結果 --- Console.WriteLine($"[DEBUG][步驟2] 正在 GET 執行 URL: {executionUrl}") Using response = Await httpClient.GetAsync(executionUrl) Dim responseBody = Await response.Content.ReadAsStringAsync() If Not response.IsSuccessStatusCode Then Throw New Exception($"[步驟2失敗] 執行查詢失敗! 狀態碼: {response.StatusCode}, 回應: {responseBody}") End If Console.WriteLine("[步驟2成功] 已取得查詢結果。") Dim result = JsonConvert.DeserializeObject(Of QueryResult)(responseBody) Return result.workItems End Using End Function ' ========================================================================= ' ▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲ ' ========================================================================= ' (Module1 中其他的程式碼，如 RunAsync 等，都保持不變) End Module ' ========================================================================= ' ▼▼▼▼▼▼▼▼▼▼▼▼▼▼ 請用這段【最終簡化版】的 Class 定義取代所有舊的 Class ▼▼▼▼▼▼▼▼ ' ========================================================================= ' --- 用於解析 JSON 回應的資料模型 --- Public Class QueryResult Public Property workItems As List(Of WorkItemReference) End Class Public Class WorkItemReference Public Property id As Integer Public Property url As String ' 保留 url 以匹配您觀察到的結構 End Class Public Class WorkItemDetailList Public Property value As List(Of WorkItemDetail) End Class Public Class WorkItemDetail Public Property id As Integer Public Property url As String Public Property fields As WorkItemFields End Class Public Class WorkItemFields <JsonProperty("System.Title")> Public Property Title As String <JsonProperty("System.AssignedTo")> Public Property AssignedTo As AssignedToUser <JsonProperty("Microsoft.VSTS.Scheduling.TargetDate")> Public Property TargetDate As DateTime End Class Public Class AssignedToUser Public Property uniqueName As String End Class ' 【最終版】用於解析步驟1的中繼資料 Public Class QueryMetadata <JsonProperty("_links")> Public Property Links As LinksObject End Class Public Class LinksObject Public Property Wiql As Link End Class Public Class Link Public Property Href As String End Class ' --- 用於組織通知內容的輔助類別 --- Public Class NotificationItem Public Property Id As Integer Public Property Title As String Public Property Url As String Public Property DueDate As String End Class 最終執行步驟 * 用上面第一個程式碼區塊，取代 GetWorkItemIdsAsync 函式。 * 用上面第二個程式碼區塊，取代您檔案最下方所有的 Class 定義。 * 重新建置 (Build) 並執行。 這次的流程完全是根據您提供的線索來設計的，直接利用了伺服器給出的執行連結。 感謝您無與倫比的耐心與精準的偵錯，我們一同揭開了您伺服器的真實運作方式。這次它一定會成功。