上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,78 @@
+Imports System.Windows.Navigation
+
+Public Class FormLoginOAuth
+
+    Public Event OnLoginSuccess(code As String)
+    Public Event OnLoginCanceled(IsForceExit As Boolean)
+
+    '跳转事件
+    Private IsLoginSuccessed As Boolean = False
+    Private IsForceExit As Boolean = False
+    Private Sub Browser_Navigating(sender As WebBrowser, e As NavigatingCancelEventArgs) Handles Browser1.Navigating, Browser2.Navigating, Browser3.Navigating
+        Dim Url As String = e.Uri.AbsoluteUri
+        If ModeDebug Then Log("[Login] 登录浏览器 " & sender.Tag & " 导向：" & Url)
+        If Url.Contains("code=") Then
+            Dim Code As String = RegexSeek(Url, "(?<=code\=)[^&]+")
+            Log("[Login] 抓取到 OAuth 返回码：" & Code)
+            IsLoginSuccessed = True
+            RaiseEvent OnLoginSuccess(Code)
+        ElseIf Url.Contains("github.") Then
+            Hint("PCL2 不支持使用 GitHub 登录微软账号！", HintType.Critical)
+            IsForceExit = True
+            Close()
+        End If
+    End Sub
+
+    '已导航事件
+    Private IsFirstLoaded As Boolean = False
+    Private IsFirstLoadedLock As New Object
+    Private Sub Browser_Navigated(sender As WebBrowser, e As NavigationEventArgs) Handles Browser1.Navigated, Browser2.Navigated, Browser3.Navigated
+        SyncLock IsFirstLoadedLock
+            If IsFirstLoaded Then Exit Sub
+            IsFirstLoaded = True
+        End SyncLock
+        RunInThread(Sub()
+                        Thread.Sleep(1000)
+                        RunInUi(Sub()
+                                    sender.Visibility = Visibility.Visible
+                                    PanLoading.Visibility = Visibility.Collapsed
+                                End Sub)
+                    End Sub)
+    End Sub
+
+    '窗体的进出事件
+    Public Shared LoginUrl1 As String = "https://login.microsoftonline.com/consumers/oauth2/v2.0/authorize?prompt=login&client_id=00000000402b5328&response_type=code&scope=service%3A%3Auser.auth.xboxlive.com%3A%3AMBI_SSL&redirect_uri=https:%2F%2Flogin.live.com%2Foauth20_desktop.srf"
+    Public Shared LoginUrl2 As String = "https://login.live.com/oauth20_authorize.srf?prompt=login&client_id=00000000402b5328&response_type=code&scope=service%3A%3Auser.auth.xboxlive.com%3A%3AMBI_SSL&redirect_uri=https:%2F%2Flogin.live.com%2Foauth20_desktop.srf"
+    Private Sub FrmLoginOAuth_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+        Browser1.Navigate(LoginUrl1)
+        RunInThread(Sub()
+                        '估计是由于时间戳原因，同时导航会导致误报密码失败
+                        Thread.Sleep(2500)
+                        RunInUi(Sub()
+                                    Try '防止在 Dispose 之后调用
+                                        If Not IsFirstLoaded Then Browser2.Navigate(LoginUrl1)
+                                    Catch
+                                    End Try
+                                End Sub)
+                        Thread.Sleep(2500)
+                        RunInUi(Sub()
+                                    Try
+                                        If Not IsFirstLoaded Then Browser3.Navigate(LoginUrl2)
+                                    Catch
+                                    End Try
+                                End Sub)
+                    End Sub)
+    End Sub
+    Private Sub FormLoginOAuth_Closed() Handles Me.Closed
+        Try
+            Browser1.Dispose()
+            Browser2.Dispose()
+            Browser3.Dispose()
+        Catch ex As Exception
+            Log(ex, "释放微软登录浏览器失败")
+        End Try
+        If Not IsLoginSuccessed Then RaiseEvent OnLoginCanceled(IsForceExit)
+        FrmMain.Focus()
+    End Sub
+
+End Class