feat: AuthCode Flow #1513
Draft
feat: AuthCode Flow #1513
+28
−22
Conversation
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
pcl-ce-automation
bot
added
🛠️ 等待审查
tangge233
requested changes
Sep 1, 2025
| Dim Random As New Random | ||
| Dim RedirectUri As String = $"http://localhost:{Random.Next(1024, 65535)}/" | ||
| Dim State As String = Random.Next(10000, 99999) | ||
| Dim HttpListener As New HttpListener |
| Dim Result As String() = {"Ignore", ""} | ||
| If (Code <> Nothing AndAlso Context.Request.QueryString("state") = State) Then | ||
| Context.Response.StatusCode = 200 | ||
| ResponseString = "<html><head><meta charset=""UTF-8""></head><body><h1>成功！</h1><h2>你现在可以关闭此页面。</h2></body></html>" |
There was a problem hiding this comment.
用 oauth-complete.html 什么的吧……这个设计有点小简陋了……
copytiao
previously requested changes
Sep 1, 2025
Comment on lines
-612
to
-631
| Dim PrepareJson As JObject = GetJson(NetRequestRetry("https://login.microsoftonline.com/consumers/oauth2/v2.0/devicecode", "POST", | ||
| $"client_id={OAuthClientId}&tenant=/consumers&scope=XboxLive.signin%20offline_access", "application/x-www-form-urlencoded")) | ||
| McLaunchLog("网页登录地址：" & PrepareJson("verification_uri").ToString) | ||
|
|
||
| '弹窗 | ||
| Dim Converter As New MyMsgBoxConverter With {.Content = PrepareJson, .ForceWait = True, .Type = MyMsgBoxType.Login} | ||
| WaitingMyMsgBox.Add(Converter) | ||
| While Converter.Result Is Nothing | ||
| Thread.Sleep(100) | ||
| End While | ||
| If TypeOf Converter.Result Is RestartException Then | ||
| If MyMsgBox($"请在登录时选择 {vbLQ}其他登录方法{vbRQ}，然后选择 {vbLQ}使用我的密码{vbRQ}。{vbCrLf}如果没有该选项，请选择 {vbLQ}设置密码{vbRQ}，设置完毕后再登录。", | ||
| "需要使用密码登录", "重新登录", "设置密码", "取消", | ||
| Button2Action:=Sub() OpenWebsite("https://account.live.com/password/Change")) = 1 Then | ||
| GoTo Retry | ||
| Else | ||
| Throw New Exception("$$") | ||
| End If | ||
| ElseIf TypeOf Converter.Result Is Exception Then | ||
| Throw CType(Converter.Result, Exception) |
There was a problem hiding this comment.
应当保留原实现，这对于特定应用场景（例如通过其他设备完成登录）有帮助
There was a problem hiding this comment.
应当保留原实现，这对于特定应用场景（例如通过其他设备完成登录）有帮助
不如二维码（
There was a problem hiding this comment.
应当保留原实现，这对于特定应用场景（例如通过其他设备完成登录）有帮助
不如二维码（
应当保留原实现，这对于特定应用场景（例如通过其他设备完成登录）有帮助
不如二维码（
但是你没监听 0.0.0.0 （
|
仅建议，非必须 对于公共客户端，可以考虑实现 PKCE 以提高安全性 |
pcl-ce-automation
bot
added
🛠️ 等待审查
|
倒是可以作为可选登录方式，毕竟 HttpListener 在部分情况下会抽风 :\ |
有没真实案例？ |
Co-authored-by: 薄奚梦灵 <[email protected]>
|
WIP 吧先，线程还没改。 |
pcl-ce-automation
bot
added
🚧 正在处理
|
ruattd
requested changes
Sep 3, 2025
车好的轮子没看着自己又车了一遍.jpg |
emm，没看错的话没实现 state 参数校验。（ |
这是什么 |
|
|
那你实现一下吧，naid 不支持这个东西所以就没做 |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
4 participants
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
No description provided.