Check New Phrase for Existing Phrases already in use

' Quick Command Creator Inline-Function for VoiceAttack -  Check for Existing Phrases already in use
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM


Imports Microsoft.VisualBasic
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Data
Imports System.Drawing
Imports System.Diagnostics
Imports System.Windows.Forms
Imports System.Linq
Imports System.Xml.Linq
Imports System.Threading.Tasks

Public Class VAInline
    dim saveFile as string = ""
    dim phrase as string
    dim phrases as string
    dim commands as string = ""
    dim phraseArray() as string
    dim errorCount as integer = 0
    dim errorsFinal as new list(of string) ()

    Public Sub Main()

        if (VA.GetText("~save_file") IsNot nothing)
            saveFile = VA.GetText("~save_file")
        end if

        if (VA.GetText("AVCS_QCC_COMMANDS") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_COMMANDS")
        end if

        if (VA.GetText("AVCS_QCC_MACROS") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_MACROS") + ";" + commands
        end if

        if (VA.GetText("AVCS_QCC_LISTEN") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_LISTEN") + ";" + commands
        end if

        if (VA.GetText("AVCS_QCC_LISTEN_TOGGLE") IsNot nothing)
            commands = VA.GetText("AVCS_QCC_LISTEN_TOGGLE") + ";" + commands
        end if

        if (VA.GetText("~avcs_qcc_phrase") IsNot nothing)

            phrases = (VA.GetText("~avcs_qcc_phrase"))
            phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)

            for each phrase in phraseArray
                if ((not(phrase = "")) and (not(errorsFinal.Contains(phrase))))
                    if ((commands.Contains(phrase)) or (saveFile.Contains(phrase)) or(vaProxy.Command.Exists(phrase)))
                        errorsFinal.Add(phrase)
                        errorCount = errorCount + 1
                        VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                    end if
                end if
            next
        end if

        if(errorCount > 0)
            VA.SetInt("~avcs_qcc_error_count", errorCount)
        end if

    End Sub
End Class

✅ 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).