This commit is contained in:
Mxmilu
2024-07-02 21:46:10 +08:00
parent b766f4d151
commit d37572f850
2 changed files with 3 additions and 3 deletions
@@ -71,9 +71,9 @@
End Sub End Sub
Private Sub Btn_Click(sender As Object, e As EventArgs) Handles BtnLink.Click Private Sub Btn_Click(sender As Object, e As EventArgs) Handles BtnLink.Click
If BtnLink.Content = "注册账号" Then If BtnLink.Content = "注册账号" Then
OpenWebsite(If(McVersionCurrent Is Nothing, Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent), Setup.Get("CacheAuthServerRegister"))) OpenWebsite(Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent))
Else Else
Dim Website As String = If(McVersionCurrent Is Nothing, Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent), Setup.Get("CacheAuthServerRegister")) Dim Website As String = Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent)
OpenWebsite(Website.Replace("/auth/register", "/auth/forgot")) OpenWebsite(Website.Replace("/auth/register", "/auth/forgot"))
End If End If
End Sub End Sub
@@ -226,4 +226,4 @@
</local:MyCard> </local:MyCard>
</StackPanel> </StackPanel>
</local:MyScrollViewer> </local:MyScrollViewer>
</local:MyPageRight> </local:MyPageRight>