View - Pasted

VB.NET |

1.77 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

Imports System.ComponentModel
Imports System.Runtime.InteropServices
 
'------------------
'Creator: aeonhack
'Site: elitevs.net
'Created: 10/15/2011
'Changed: 10/15/2011
'Version: 1.0.0
'------------------
<ProvideProperty("CueBanner", GetType(TextBox))> _
Class CueBanner
    Inherits Component
    Implements IExtenderProvider
 
    <DllImport("user32.dll", CharSet:=CharSet.Auto, EntryPoint:="SendMessage")>
    Private Shared Function SetCueBanner(
        ByVal handle As IntPtr,
        ByVal message As UInteger,
        ByVal wparam As IntPtr,
        ByVal hint As String) As IntPtr
    End Function
 
    Private children As New Hashtable
    Private Function CanExtend(ByVal c As Object) As Boolean Implements IExtenderProvider.CanExtend
        If Not TypeOf c Is TextBox Then Return False
 
        If Not children.Contains(c) Then
            children.Add(c, String.Empty)
            HookCreation(DirectCast(c, TextBox))
        End If
 
        Return True
    End Function
 
    Private Sub HandleCreated(ByVal s As Object, ByVal e As EventArgs)
        SetBanner(DirectCast(s, TextBox))
    End Sub
 
    Function GetCueBanner(ByVal c As TextBox) As String
        Return DirectCast(children(c), String)
    End Function
    Sub SetCueBanner(ByVal c As TextBox, ByVal v As String)
        children(c) = v
 
        HookCreation(c)
        SetBanner(c)
    End Sub
 
    Private Sub HookCreation(ByVal c As TextBox)
        RemoveHandler c.HandleCreated, AddressOf HandleCreated
        AddHandler c.HandleCreated, AddressOf HandleCreated
    End Sub
 
    Private Sub SetBanner(ByVal c As TextBox)
        If Not c.IsHandleCreated Then Return
        SetCueBanner(c.Handle, 5377, IntPtr.Zero, GetCueBanner(c))
    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

CueBanner - VB.NET

Comments