Check Edited Phrase For Existing Phrases

VB.NET |

3.03 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

' Quick Command Creator Inline-Function for VoiceAttack -  Check Edited Command 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) ()
    dim phrasesLast as new list(of string) ()
    dim phrasesUnique 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_phrase_last") IsNot nothing)
            phrases = (VA.GetText("~avcs_qcc_phrase_last"))
            phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
            for each phrase in phraseArray
                if ((not(phrase = "")) and (not(phrasesLast.Contains(phrase))))
                    phrasesLast.Add(phrase)
                end if
            next
        end if
        
        phrases = nothing
        phraseArray = nothing
        
        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
                'Check only NEW phrases added to this command phrase
                if ((not(phrase = "")) and (not(errorsFinal.Contains(phrase))) and (not(phrasesLast.Contains(phrase))))
                    'If this new phrase is not already in the loaded QCC list of commands/macros phrases
                    if (not(commands.Contains(phrase)))
                        if ((saveFile.Contains(phrase)) or (vaProxy.Command.Exists(phrase)))
                            errorsFinal.Add(phrase)
                            errorCount = errorCount + 1
                            VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                        end if
                    'Else add this new phrase to a new list to identify any duplicate phrase variants
                    else if (commands.Contains(phrase))
                        if (phrasesUnique.Contains(phrase))
                            errorsFinal.Add(phrase)
                            errorCount = errorCount + 1
                            VA.SetText("~avcs_qcc_error_" + errorCount.ToString(), phrase)
                        else
                            phrasesUnique.Add(phrase)
                        end if
                    end if
                end if
            next
        end if
        
        if(errorCount > 0)
            VA.SetInt("~avcs_qcc_error_count", errorCount)
        end if
        
    End Sub
End Class

Comments

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

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

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

Check Edited Phrase For Existing Phrases

Comments