refactor(PageLoginMsSkin): 使用重置皮肤 API

Author: wyc-26

Plain Craft Launcher 2/Pages/PageLaunch/PageLoginMsSkin.xaml

@@ -23,7 +23,7 @@
                     <local:MyIconButton.ContextMenu>
                         <ContextMenu Closed="HidePanel" HorizontalOffset="10" VerticalOffset="18">
                             <local:MyMenuItem Click="BtnSkinEdit_Click" Header="修改皮肤"/>
-                            <local:MyMenuItem Click="BtnSkinReset_Click" Header="恢复默认皮肤"/>
+                            <local:MyMenuItem Click="BtnSkinReset_Click" Header="重置皮肤"/>
                             <local:MyMenuItem Click="BtnSkinSave_Click" Header="保存皮肤"/>
                             <local:MyMenuItem Click="BtnSkinRefresh_Click" Header="刷新头像"/>
                             <Separator />

Plain Craft Launcher 2/Pages/PageLaunch/PageLoginMsSkin.xaml.vb

@@ -70,7 +70,6 @@
 
     '修改皮肤
     Private IsChanging As Boolean = False
-    Private ResetSkin As Boolean = False
     Public Sub BtnSkinEdit_Click(sender As Object, e As RoutedEventArgs)
         '检查条件，获取新皮肤
         If IsChanging Then
@@ -81,15 +80,7 @@
             Hint("登录失败，无法更改皮肤！", HintType.Critical)
             Return
         End If
-        Dim SkinInfo As McSkinInfo
-        If ResetSkin
-            Dim ImageSavePath As String = RequestTaskTempFolder() & "Steve.png"
-            Dim Image = New MyBitmap(PathImage & "Skins\Steve.png")
-            Image.Save(ImageSavePath)
-            SkinInfo = New McSkinInfo() With {.IsSlim = False, .LocalFile = ImageSavePath, .IsVaild = True}
-        Else
-            SkinInfo = McSkinSelect()
-        End If
+        Dim SkinInfo As McSkinInfo = McSkinSelect()
         If Not SkinInfo.IsVaild Then Return
         Hint("正在更改皮肤……")
         IsChanging = True
@@ -144,9 +135,57 @@ Retry:
 
     '恢复默认皮肤
     Public Sub BtnSkinReset_Click(sender As Object, e As RoutedEventArgs)
-        ResetSkin = True
-        BtnSkinEdit_Click(sender, e)
-        ResetSkin = False
+        If IsChanging Then
+            Hint("正在更改皮肤中，请稍候！")
+            Return
+        End If
+        If McLoginLoader.State = LoadState.Failed Then
+            Hint("登录失败，无法更改皮肤！", HintType.Critical)
+            Return
+        End If
+        IsChanging = True
+        RunInNewThread(
+        Async Sub()
+            Try
+Retry:
+                If McLoginMsLoader.State = LoadState.Loading Then McLoginMsLoader.WaitForExit() '等待登录结束
+                Dim AccessToken As String = Setup.Get("CacheMsV2Access")
+                Dim Uuid As String = Setup.Get("CacheMsV2Uuid")
+
+                Dim Client As New Net.Http.HttpClient With {.Timeout = New TimeSpan(0, 0, 30)}
+                Client.DefaultRequestHeaders.Authorization = New Net.Http.Headers.AuthenticationHeaderValue("Bearer", AccessToken)
+                Client.DefaultRequestHeaders.Accept.Add(New Net.Http.Headers.MediaTypeWithQualityHeaderValue("*/*"))
+                Client.DefaultRequestHeaders.UserAgent.Add(New Net.Http.Headers.ProductInfoHeaderValue("MojangSharp", "0.1"))
+                Dim Result As String = Await (Await Client.DeleteAsync(New Uri("https://api.minecraftservices.com/minecraft/profile/skins/active"))).Content.ReadAsStringAsync
+                If Result.Contains("request requires user authentication") Then
+                    Hint("正在登录，将在登录完成后继续更改皮肤……")
+                    McLoginMsLoader.Start(GetLoginData(), IsForceRestart:=True)
+                    GoTo Retry
+                ElseIf Result.Contains("""error""") Then
+                    Hint("更改皮肤失败：" & GetJson(Result)("error"), HintType.Critical)
+                    Return
+                End If
+                '获取新皮肤地址
+                Log("[Skin] 皮肤更改返回值：" & vbCrLf & Result)
+                Dim ResultJson As JObject = GetJson(Result)
+                If ResultJson.ContainsKey("errorMessage") Then Throw New Exception(ResultJson("errorMessage").ToString) '#5309
+                For Each Skin As JObject In ResultJson("skins")
+                    If Skin("state").ToString = "ACTIVE" Then
+                        MySkin.ReloadCache(Skin("url"))
+                        Return
+                    End If
+                Next
+                Throw New Exception("未知错误（" & Result & "）")
+            Catch ex As Exception
+                If ex.GetType.Equals(GetType(Tasks.TaskCanceledException)) Then
+                    Hint("更改皮肤失败：与 Mojang 皮肤服务器的连接超时，请检查你的网络是否通畅！", HintType.Critical)
+                Else
+                    Log(ex, "更改皮肤失败", LogLevel.Hint)
+                End If
+            Finally
+                IsChanging = False
+            End Try
+        End Sub, "Ms Skin Reset")
     End Sub
 
     '保存皮肤