改了改提示,让用户知道一下设备代码复制到剪贴板了
This commit is contained in:
@@ -816,7 +816,7 @@ LoginFinish:
|
||||
ExpiresIn = ResultJson("expires_in")
|
||||
ClipboardSet(UserCode)
|
||||
OpenWebsite(VerifyUri)
|
||||
MyMsgBox("请在打开的网页里输入 PCL2 提供的设备代码并登录微软账户,然后允许 PCL2 访问相关信息。" & vbCrLf & "设备代码有时效性,若操作时间过长需要重新进行登录流程。" & vbCrLf & vbCrLf & "本次验证的设备代码为:" & UserCode & vbCrLf & vbCrLf & "你也可以在任意设备上打开下列网址进行验证:" & vbCrLf & VerifyUri & vbCrLf & vbCrLf & "请在完成后点击继续。", "正版验证", "继续")
|
||||
MyMsgBox("请在打开的网页里输入 PCL2 提供的设备代码(已经复制到剪贴板)并登录微软账户,然后允许 PCL2 访问相关信息。" & vbCrLf & "设备代码有时效性,若操作时间过长需要重新进行登录流程。" & vbCrLf & vbCrLf & "本次验证的设备代码为:" & UserCode & vbCrLf & vbCrLf & "你也可以在任意设备上打开下列网址进行验证:" & vbCrLf & VerifyUri & vbCrLf & vbCrLf & "请在完成后点击继续。", "正版验证", "继续")
|
||||
Return DeviceCode
|
||||
End Function
|
||||
|
||||
@@ -849,7 +849,7 @@ LoginFinish:
|
||||
ElseIf ex.Message.Contains("authorization_declined") Then
|
||||
Hint("你取消了验证过程!")
|
||||
ElseIf ex.Message.Contains("expired_token") Then
|
||||
Hint("设备代码已过期,请尝试重新验证!")
|
||||
Hint("Token 已过期,请尝试重新验证!")
|
||||
ElseIf ex.Message.Contains("AADSTS70016") Then
|
||||
Continue While
|
||||
Else
|
||||
|
||||
Reference in New Issue
Block a user