PCL-Communist/Plain Craft Launcher 2/Pages/PageLaunch/PageLaunchRight.xaml.vb

Public Class PageLaunchRight

    Private Sub Init() Handles Me.Loaded
        PanBack.ScrollToHome()
        PanLog.Visibility = If(ModeDebug, Visibility.Visible, Visibility.Collapsed)
        '刷新主页
        If ShouldRefresh Then
            ShouldRefresh = False
            RefreshCustom()
        End If
        '快照版提示
#If BETA Then
        PanHint.Visibility = Visibility.Collapsed
#Else
        PanHint.Title = "快照版提示"
        PanHint.Visibility = If(ThemeCheckGold(), Visibility.Collapsed, Visibility.Visible)
        LabHint1.Text = "快照版包含尚未在正式版发布的测试性功能，仅用于赞助者本人尝鲜。所以请不要发给其他人或者用于制作整合包哦！如果发现了 Bug，可以在 更多 → 反馈 中提交！"
        LabHint2.Text = "你可以通过赞助￥23.33 档位换取解锁码来隐藏这个提示。"
#End If
    End Sub

    Private LatestFileContent As String = ""
    Private LatestFileLink As String = Nothing
    Private IsRefreshing As Boolean = False
    Public ShouldRefresh As Boolean = True
    ''' <summary>
    ''' 刷新自定义的主页。返回是否成功。
    ''' </summary>
    Private Sub RefreshCustom()
        If IsRefreshing Then
            ShouldRefresh = True
            Exit Sub
        End If
        Try
            IsRefreshing = True
            PanCustom.Children.Clear()
            RunInNewThread(Sub()
                               Dim FileContent As String = ""
                               Select Case Setup.Get("UiCustomType")
                                   Case 0
                                       '啥也不干
                                   Case 1
                                       '加载本地文件
                                       FileContent = ReadFile(Path & "PCL\Custom.xaml") 'ReadFile 会进行存在检测
                                       Log("[System] 尝试从本地文件读取主页自定义数据（" & FileContent.Length & "）")
                                   Case 2
                                       '加载联网文件
                                       Try
                                           Dim Link As String = Setup.Get("UiCustomNet")
                                           If Link = LatestFileLink Then
                                               FileContent = LatestFileContent
                                               Log("[System] 尝试缓存加载主页自定义数据（" & FileContent.Length & "）")
                                           ElseIf Not String.IsNullOrWhiteSpace(Link) Then
                                               Log("[System] 开始从网络读取主页自定义数据（" & Link & "）")
                                               FileContent = NetGetCodeByRequestRetry(Link)
                                               Log("[System] 尝试从网络读取主页自定义数据（" & FileContent.Length & "）")
                                           End If
                                           LatestFileLink = Link
                                           LatestFileContent = FileContent
                                       Catch ex As Exception
                                           Log(ex, "获取 PCL2 主页自定义信息失败", LogLevel.Msgbox)
                                           LatestFileLink = ""
                                       End Try
                               End Select
                               If FileContent = "" Then
                                   IsRefreshing = False
                                   Exit Sub
                               End If
                               FileContent = "<StackPanel xmlns=""http://schemas.microsoft.com/winfx/2006/xaml/presentation"" xmlns:x=""http://schemas.microsoft.com/winfx/2006/xaml"" xmlns:local=""clr-namespace:PCL;assembly=Plain Craft Launcher 2"">" & FileContent & "</StackPanel>"
                               FileContent = FileContent.Replace("{path}", Path)
                               RunInUi(Sub()
                                           Try
                                               Log("[System] 加载主页自定义数据")
                                               PanCustom.Children.Add(GetObjectFromXML(FileContent))
                                               IsRefreshing = False
                                           Catch ex As Exception
                                               IsRefreshing = False
                                               Log("[System] 自定义信息内容：" & vbCrLf & FileContent)
                                               If MyMsgBox(ex.Message, "加载自定义主页失败", "重试", "取消") = 1 Then
                                                   LatestFileLink = Nothing
                                                   LatestFileContent = ""
                                                   RefreshCustom()
                                               End If
                                           End Try
                                       End Sub)
                           End Sub, "主页自定义刷新")
        Catch ex As Exception
            Log(ex, "加载 PCL2 主页自定义信息失败", LogLevel.Msgbox)
            IsRefreshing = False
        End Try
    End Sub

    Public Sub ForceRefresh(Optional ShowHint As Boolean = True)
        ShouldRefresh = True
        LatestFileContent = ""
        LatestFileLink = Nothing
        If ShowHint Then Hint("已刷新主页！", HintType.Finish)
        FrmMain.PageChange(FormMain.PageType.Launch)
        Init()
    End Sub

    Public Shared Sub StartMigration()
        MyMsgBox("在迁移过程中，你可能需要设置你的档案信息，此时请注意让年龄大于 18 岁，否则可能导致无法登录！" & vbCrLf &
                 "在迁移完成后，请在上方选择 微软 登录方式而非 Mojang。", "迁移提示", "继续", ForceWait:=True)
        OpenWebsite("https://www.minecraft.net/zh-hans/account-security")
    End Sub

End Class