From 4ae3e4aa202074c395230631f701bfe1e5de05c2 Mon Sep 17 00:00:00 2001
From: Pigeon0v0 <PigeonA0v0@outlook.com>
Date: Thu, 18 Jul 2024 10:46:50 +0800
Subject: [PATCH] =?UTF-8?q?feat:=20=E6=94=AF=E6=8C=81=E5=A4=8D=E5=88=B6?=
 =?UTF-8?q?=E8=AE=BE=E5=A4=87=E4=BB=A3=E7=A0=81=E5=92=8C=E9=AA=8C=E8=AF=81?=
 =?UTF-8?q?=E7=BD=91=E5=9D=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Modules/Minecraft/ModLaunch.vb                | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb b/Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb
index f17b8dd..2067e77 100644
--- a/Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb	
+++ b/Plain Craft Launcher 2/Modules/Minecraft/ModLaunch.vb	
@@ -822,7 +822,20 @@ LoginFinish:
             ClipboardSet(UserCode)
             OpenWebsite(VerifyUri)
 
-            MyMsgBox("本次验证的设备代码为：" & UserCode & vbCrLf & vbCrLf & "你也可以在任意设备上打开下列网址进行验证：" & vbCrLf & VerifyUri & vbCrLf & vbCrLf & "在验证完成后，你可以直接关闭这个弹窗，PCL2 会自动完成接下来的流程。", "正版验证", "关闭")
+            Dim MsgBoxValue As String = ""
+            While MsgBoxValue IsNot "1"
+                MsgBoxValue = MyMsgBox("本次验证的设备代码为：" & UserCode & vbCrLf & vbCrLf & "你也可以在任意设备上打开下列网址进行验证：" & vbCrLf & VerifyUri & vbCrLf & vbCrLf & "在验证完成后，你可以直接关闭这个弹窗，PCL2 会自动完成接下来的流程。", "正版验证", "关闭", "复制网址", "复制设备代码").ToString
+                If MsgBoxValue = "2" Then
+                    ClipboardSet(VerifyUri)
+                    Continue While
+                ElseIf MsgBoxValue = "3" Then
+                    ClipboardSet(UserCode)
+                    Continue While
+                ElseIf MsgBoxValue = "1" Then
+                    Exit While
+                End If
+            End While
+
             Return DeviceCode
         Else
             Return "Cancel"