AVCS QCC Delete Selected Macro Data variables

VB.NET |

1.79 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

' Quick Command Creator Inline-Function for VoiceAttack -  Get Command Index for Delete Function, remove phrase data variables
'  by SemlerPDX Jun2020
'  VETERANS-GAMING.COM
 
 
Imports Microsoft.VisualBasic
Imports System
Imports System.Text
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 dataIndex as integer = 0
    dim dataList() as string
    dim data() as string
    dim phrase as string
    dim phrases as string
    dim phraseArray() as string
    dim phrasesFinal as new list(of string) ()
    
    Public Sub Main()
        
        if VA.GetText("~avcs_qcc_command_list") IsNot nothing
            
            dataList = (VA.GetText("~avcs_qcc_command_list").Replace("[(1)]", "↑").Replace("[(2)]", "→").Replace("[(3)]", "↓").Replace("[(4)]", "←")).Split("↑")
            
            if(dataList) IsNot nothing
                
                for each dataFunc as string in dataList
                    if not(dataFunc = "")
                        if(dataFunc.StartsWith("QCC#"))
                            data = dataFunc.Split("#")
                            dataIndex = Convert.ToInt32(data(1))
                            VA.SetInt("~avcs_qcc_index", dataIndex)
                        end if
                    end if
                next
                
                if (dataIndex > 0)
                    if ((VA.GetText("AVCS_QCC_COMMAND_" + dataIndex.ToString())) IsNot nothing)
                        phrases = (VA.GetText("AVCS_QCC_COMMAND_" + dataIndex.ToString()))
                        phraseArray = vaProxy.Utility.ExtractPhrases(phrases, true, true)
                        for each phrase in phraseArray
                            if ((not(phrase = "")) and (not(phrasesFinal.Contains(phrase))))
                                phrasesFinal.Add(phrase)
                                VA.SetText(phrase, nothing)
                            end if
                        next
                    end if
                end if
            
            end if
        
        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

AVCS QCC Delete Selected Macro Data variables

Comments