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
Private Sub Btn_Click(sender As Object, e As EventArgs) Handles BtnLink.Click
If BtnLink.Content = "注册账号" Then
OpenWebsite(If(McVersionCurrent Is Nothing, Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent), Setup.Get("CacheAuthServerRegister")))
OpenWebsite(Setup.Get("VersionServerAuthRegister", Version:=McVersionCurrent))
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"))
End If
End Sub