MailBee POP3

        Using ionosPop As New Pop3Mail.Pop3(strLicenseKey)
            With ionosPop
                Try
                    .Connect(strPopHpst, strPopPort)
                Catch ex As Exception
                    Debug.Print("Error connecting: " & ex.Message)
                    Return
                End Try

                Try
                    .Login(strEmailId, strPassword)
                Catch ex As Exception
                    Debug.Print("Error in login: " & ex.Message)
                    Return
                End Try

                Dim inboxMessages As Integer = .InboxMessageCount
                Debug.Print("Inbox Message Count: " & inboxMessages.ToString & Environment.NewLine)

                If inboxMessages > 0 Then
                    Dim msgCollection As MailMessageCollection

                    Try
                        msgCollection = .DownloadEntireMessages(1, inboxMessages)
                    Catch ex As Exception
                        Debug.Print("Error in DownloadEntireMessages: " & ex.Message)
                        Return
                    End Try

                    For i As Integer = 0 To msgCollection.Count - 1
                        Using msg As MailMessage = msgCollection(i)
                            Debug.Print("From: " & msg.From.AsString)
                            Debug.Print("To: " & msg.To.AsString)
                            Debug.Print("Subject: " & msg.Subject)
                            Debug.Print("Body: " & msg.BodyPlainText)

                            Try
                                If .DeleteMessage(i + 1) Then
                                    Debug.Print($"Marked message #{i + 1} for deletion.")
                                End If
                            Catch ex As Exception
                                Debug.Print("Error in DeleteMessage" & ex.Message)
                            End Try

                            Debug.Print(Environment.NewLine)
                        End Using
                    Next
                Else
                    Debug.Print("No messages were found in \Inbox")
                End If

                If .Disconnect() Then
                    If inboxMessages <> 0 Then
                        Debug.Print("Successfully deleted messages.")
                    End If

                    Debug.Print("Connection succesfully closed.")
                Else
                    Debug.Print("Failed to delete messages.")
                    Debug.Print("Error closing connection.")
                End If
            End With
        End Using
Six years ago I was at the end of my coding days, and you're new.
✅ Leaked Exploit Documentation:

https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing

This made me $13,000 in 2 days.

Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.

Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).