modernaesthetics

CueBanner - VB.NET

Jun 7th, 2018
6,151
0
Never
2
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.77 KB | None | 0 0
  1. Imports System.ComponentModel
  2. Imports System.Runtime.InteropServices
  3.  
  4. '------------------
  5. 'Creator: aeonhack
  6. 'Site: elitevs.net
  7. 'Created: 10/15/2011
  8. 'Changed: 10/15/2011
  9. 'Version: 1.0.0
  10. '------------------
  11. <ProvideProperty("CueBanner", GetType(TextBox))> _
  12. Class CueBanner
  13.     Inherits Component
  14.     Implements IExtenderProvider
  15.  
  16.     <DllImport("user32.dll", CharSet:=CharSet.Auto, EntryPoint:="SendMessage")>
  17.     Private Shared Function SetCueBanner(
  18.         ByVal handle As IntPtr,
  19.         ByVal message As UInteger,
  20.         ByVal wparam As IntPtr,
  21.         ByVal hint As String) As IntPtr
  22.     End Function
  23.  
  24.     Private children As New Hashtable
  25.     Private Function CanExtend(ByVal c As Object) As Boolean Implements IExtenderProvider.CanExtend
  26.         If Not TypeOf c Is TextBox Then Return False
  27.  
  28.         If Not children.Contains(c) Then
  29.             children.Add(c, String.Empty)
  30.             HookCreation(DirectCast(c, TextBox))
  31.         End If
  32.  
  33.         Return True
  34.     End Function
  35.  
  36.     Private Sub HandleCreated(ByVal s As Object, ByVal e As EventArgs)
  37.         SetBanner(DirectCast(s, TextBox))
  38.     End Sub
  39.  
  40.     Function GetCueBanner(ByVal c As TextBox) As String
  41.         Return DirectCast(children(c), String)
  42.     End Function
  43.     Sub SetCueBanner(ByVal c As TextBox, ByVal v As String)
  44.         children(c) = v
  45.  
  46.         HookCreation(c)
  47.         SetBanner(c)
  48.     End Sub
  49.  
  50.     Private Sub HookCreation(ByVal c As TextBox)
  51.         RemoveHandler c.HandleCreated, AddressOf HandleCreated
  52.         AddHandler c.HandleCreated, AddressOf HandleCreated
  53.     End Sub
  54.  
  55.     Private Sub SetBanner(ByVal c As TextBox)
  56.         If Not c.IsHandleCreated Then Return
  57.         SetCueBanner(c.Handle, 5377, IntPtr.Zero, GetCueBanner(c))
  58.     End Sub
  59.  
  60. End Class
Advertisement
Comments
  • Nexlisen
    208 days
    # CSS 0.85 KB | 0 0
    1. ✅ Leaked Exploit Documentation:
    2.  
    3. https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
    4.  
    5. This made me $13,000 in 2 days.
    6.  
    7. 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.
    8. The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
    9.  
    10. 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).
  • User was banned
Add Comment
Please, Sign In to add comment