feat(auth): 打开的微软验证网页现在会自动填入设备代码

2024-07-30 21:42:42 +08:00
parent 4ae3e4aa20
commit 0bbb048c59
1 changed files with 1 additions and 1 deletions
@@ -820,7 +820,7 @@ LoginFinish:
            VerifyUri = ResultJson("verification_uri")
            ExpiresIn = ResultJson("expires_in")
            ClipboardSet(UserCode)
-            OpenWebsite(VerifyUri)
+            OpenWebsite(VerifyUri + "?oct=" + UserCode)

            Dim MsgBoxValue As String = ""
            While MsgBoxValue IsNot "1"