Thread: Spammer v.1.0

Page 1 of 2 12 LastLast
Results 1 to 15 of 28
  1. #1
    Irony's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    MPGH where else?
    Posts
    5,969
    Reputation
    285
    Thanks
    539
    My Mood
    Busy

    Spammer v.1.0

    Irony's first vb project, finished!

    Virus scan:VirusTotal - Free Online Virus, Malware and URL Scanner

    Virus scan:Irony's Spammer.rar - Jotti's malware scan

    HAVE FUN MY AVAiens. <3


    Next project is most likely going to be an injector or a better spammer. MAYBE a crosshair


    @Liz
    @Jabuuty671

  2. The Following 10 Users Say Thank You to Irony For This Useful Post:

    adu.12 (08-23-2011),CRaVeBOSS (10-04-2011),EPc (07-05-2012),FUKO (08-22-2011),gimmijin (05-01-2012),hotshot4113 (08-25-2011),jiangquang (05-04-2012),jkljkl218 (09-05-2012),raktoke (09-04-2011),soiconnho (08-23-2011)

  3. #2
    Margherita's Avatar
    Join Date
    Jan 2011
    Gender
    female
    Posts
    11,306
    Reputation
    783
    Thanks
    1,282
    My Mood
    Bashful
    Oh looks real nice, consider making a nicer GUI.
    But looks really good, nice simple spammer.
    PM Me | VM Me | Rules

    MARGHERITA

  4. #3
    Irony's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    MPGH where else?
    Posts
    5,969
    Reputation
    285
    Thanks
    539
    My Mood
    Busy
    Thanks @ᴡɪᴢ ᴋʜᴀʟɪғᴀ I'll try updating it with a gui next time.

  5. #4
    Terell.'s Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    JAMAICAA
    Posts
    6,923
    Reputation
    273
    Thanks
    1,163
    My Mood
    Angry
    Pretty simple C+P VB code. Next time work on it more, and add a beautiful GUI. Other then that good job. Did you test it to see if it works on A.V.A ?

    Warrock Minion 8-13-2011 - N/A
    A.V.A Minion since 11-1-11 - 11-12-11

  6. #5
    Battlefield 3's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    One Man's Trash Is Another Man's Pleasure!
    Posts
    2,911
    Reputation
    -119
    Thanks
    587
    My Mood
    Devilish
    Nice work
    But will this work on A.V.A?

  7. #6
    Irony's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    MPGH where else?
    Posts
    5,969
    Reputation
    285
    Thanks
    539
    My Mood
    Busy
    Hmm, thanks guys, I think I'll test it right now.

  8. #7
    FUKO's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Location
    PBlackout.exe /mhu
    Posts
    11,132
    Reputation
    1103
    Thanks
    3,842
    Not bad for a first project, here's a few suggestions.

    GUI: Definitely can use a better GUI, try using a custom theme.
    Here's one I put together a while back.

    Code:
    Imports System.Drawing.Drawing2D
    Imports System.ComponentModel
    Imports System.Runtime.InteropServices
    
    MustInherit Class Theme
        Inherits ContainerControl
    
    #Region " Initialization "
    
        Protected G As Graphics
        Sub New()
            SetStyle(DirectCast(139270, ControlStyles), True)
        End Sub
    
        Private ParentIsForm As Boolean
        Protected Overrides Sub OnHandleCreated(ByVal e As EventArgs)
            Dock = DockStyle.Fill
            ParentIsForm = TypeOf Parent Is Form
            If ParentIsForm Then
                If Not _TransparencyKey = Color.Empty Then ParentForm.TransparencyKey = _TransparencyKey
                ParentForm.FormBorderStyle = FormBorderStyle.None
            End If
            MyBase.OnHandleCreated(e)
        End Sub
    
        Overrides Property Text As String
            Get
                Return MyBase.Text
            End Get
            Set(ByVal v As String)
                MyBase.Text = v
                Invalidate()
            End Set
        End Property
    #End Region
    
    #Region " Sizing and Movement "
    
        Private _Resizable As Boolean = True
        Property Resizable() As Boolean
            Get
                Return _Resizable
            End Get
            Set(ByVal value As Boolean)
                _Resizable = value
            End Set
        End Property
    
        Private _MoveHeight As Integer = 24
        Property MoveHeight() As Integer
            Get
                Return _MoveHeight
            End Get
            Set(ByVal v As Integer)
                _MoveHeight = v
                Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7)
            End Set
        End Property
    
        Private Flag As IntPtr
        Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
            If Not e.Button = MouseButtons.Left Then Return
            If ParentIsForm Then If ParentForm.WindowState = FormWindowState.Maximized Then Return
    
            If Header.Contains(e.Location) Then
                Flag = New IntPtr(2)
            ElseIf Current.Position = 0 Or Not _Resizable Then
                Return
            Else
                Flag = New IntPtr(Current.Position)
            End If
    
            Capture = False
            DefWndProc(Message.Create(Parent.Handle, 161, Flag, Nothing))
    
            MyBase.OnMouseDown(e)
        End Sub
    
        Private Structure Pointer
            ReadOnly Cursor As Cursor, Position As Byte
            Sub New(ByVal c As Cursor, ByVal p As Byte)
                Cursor = c
                Position = p
            End Sub
        End Structure
    
        Private F1, F2, F3, F4 As Boolean, PTC As Point
        Private Function GetPointer() As Pointer
            PTC = PointToClient(MousePosition)
            F1 = PTC.X < 7
            F2 = PTC.X > Width - 7
            F3 = PTC.Y < 7
            F4 = PTC.Y > Height - 7
    
            If F1 And F3 Then Return New Pointer(Cursors.SizeNWSE, 13)
            If F1 And F4 Then Return New Pointer(Cursors.SizeNESW, 16)
            If F2 And F3 Then Return New Pointer(Cursors.SizeNESW, 14)
            If F2 And F4 Then Return New Pointer(Cursors.SizeNWSE, 17)
            If F1 Then Return New Pointer(Cursors.SizeWE, 10)
            If F2 Then Return New Pointer(Cursors.SizeWE, 11)
            If F3 Then Return New Pointer(Cursors.SizeNS, 12)
            If F4 Then Return New Pointer(Cursors.SizeNS, 15)
            Return New Pointer(Cursors.Default, 0)
        End Function
    
        Private Current, Pending As Pointer
        Private Sub SetCurrent()
            Pending = GetPointer()
            If Current.Position = Pending.Position Then Return
            Current = GetPointer()
            Cursor = Current.Cursor
        End Sub
    
        Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
            If _Resizable Then SetCurrent()
            MyBase.OnMouseMove(e)
        End Sub
    
        Protected Header As Rectangle
        Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
            If Width = 0 OrElse Height = 0 Then Return
            Header = New Rectangle(7, 7, Width - 14, _MoveHeight - 7)
            Invalidate()
            MyBase.OnSizeChanged(e)
        End Sub
    
    #End Region
    
    #Region " Convienence "
    
        MustOverride Sub PaintHook()
        Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
            If Width = 0 OrElse Height = 0 Then Return
            G = e.Graphics
            PaintHook()
        End Sub
    
        Private _TransparencyKey As Color
        Property TransparencyKey() As Color
            Get
                Return _TransparencyKey
            End Get
            Set(ByVal v As Color)
                _TransparencyKey = v
                Invalidate()
            End Set
        End Property
    
        Private _Image As Image
        Property Image() As Image
            Get
                Return _Image
            End Get
            Set(ByVal value As Image)
                _Image = value
                Invalidate()
            End Set
        End Property
        ReadOnly Property ImageWidth() As Integer
            Get
                If _Image Is Nothing Then Return 0
                Return _Image.Width
            End Get
        End Property
    
        Private _Size As Size
        Private _Rectangle As Rectangle
        Private _Gradient As LinearGradientBrush
        Private _Brush As SolidBrush
    
        Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
            _Brush = New SolidBrush(c)
            G.FillRectangle(_Brush, rect.X, rect.Y, 1, 1)
            G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y, 1, 1)
            G.FillRectangle(_Brush, rect.X, rect.Y + (rect.Height - 1), 1, 1)
            G.FillRectangle(_Brush, rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), 1, 1)
        End Sub
    
        Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
            G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
            G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
        End Sub
    
        Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer)
            DrawText(a, c, x, 0)
        End Sub
        Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer)
            If String.IsNullOrEmpty(Text) Then Return
            _Size = G.MeasureString(Text, Font).ToSize
            _Brush = New SolidBrush(c)
    
            Select Case a
                Case HorizontalAlignment.Left
                    G.DrawString(Text, Font, _Brush, x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
                Case HorizontalAlignment.Right
                    G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
                Case HorizontalAlignment.Center
                    G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, _MoveHeight \ 2 - _Size.Height \ 2 + y)
            End Select
        End Sub
    
        Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer)
            DrawIcon(a, x, 0)
        End Sub
        Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
            If _Image Is Nothing Then Return
            Select Case a
                Case HorizontalAlignment.Left
                    G.DrawImage(_Image, x, _MoveHeight \ 2 - _Image.Height \ 2 + y)
                Case HorizontalAlignment.Right
                    G.DrawImage(_Image, Width - _Image.Width - x, _MoveHeight \ 2 - _Image.Height \ 2 + y)
                Case HorizontalAlignment.Center
                    G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, _MoveHeight \ 2 - _Image.Height \ 2)
            End Select
        End Sub
    
        Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
            _Rectangle = New Rectangle(x, y, width, height)
            _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
            G.FillRectangle(_Gradient, _Rectangle)
        End Sub
    
    #End Region
    
    End Class
    MustInherit Class ThemeControl
        Inherits Control
    
    #Region " Initialization "
    
        Protected G As Graphics, B As Bitmap
        Sub New()
            SetStyle(DirectCast(139270, ControlStyles), True)
            B = New Bitmap(1, 1)
            G = Graphics.FromImage(B)
        End Sub
    
        Sub AllowTransparent()
            SetStyle(ControlStyles.Opaque, False)
            SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        End Sub
    
        Overrides Property Text As String
            Get
                Return MyBase.Text
            End Get
            Set(ByVal v As String)
                MyBase.Text = v
                Invalidate()
            End Set
        End Property
    #End Region
    
    #Region " Mouse Handling "
    
        Protected Enum State As Byte
            MouseNone = 0
            MouseOver = 1
            MouseDown = 2
        End Enum
    
        Protected MouseState As State
        Protected Overrides Sub OnMouseLeave(ByVal e As EventArgs)
            ChangeMouseState(State.MouseNone)
            MyBase.OnMouseLeave(e)
        End Sub
        Protected Overrides Sub OnMouseEnter(ByVal e As EventArgs)
            ChangeMouseState(State.MouseOver)
            MyBase.OnMouseEnter(e)
        End Sub
        Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
            ChangeMouseState(State.MouseOver)
            MyBase.OnMouseUp(e)
        End Sub
        Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
            If e.Button = MouseButtons.Left Then ChangeMouseState(State.MouseDown)
            MyBase.OnMouseDown(e)
        End Sub
    
        Private Sub ChangeMouseState(ByVal e As State)
            MouseState = e
            Invalidate()
        End Sub
    
    #End Region
    
    #Region " Convienence "
    
        MustOverride Sub PaintHook()
        Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
            If Width = 0 OrElse Height = 0 Then Return
            PaintHook()
            e.Graphics.DrawImage(B, 0, 0)
        End Sub
    
        Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
            If Not Width = 0 AndAlso Not Height = 0 Then
                B = New Bitmap(Width, Height)
                G = Graphics.FromImage(B)
                Invalidate()
            End If
            MyBase.OnSizeChanged(e)
        End Sub
    
        Private _NoRounding As Boolean
        Property NoRounding() As Boolean
            Get
                Return _NoRounding
            End Get
            Set(ByVal v As Boolean)
                _NoRounding = v
                Invalidate()
            End Set
        End Property
    
        Private _Image As Image
        Property Image() As Image
            Get
                Return _Image
            End Get
            Set(ByVal value As Image)
                _Image = value
                Invalidate()
            End Set
        End Property
        ReadOnly Property ImageWidth() As Integer
            Get
                If _Image Is Nothing Then Return 0
                Return _Image.Width
            End Get
        End Property
        ReadOnly Property ImageTop() As Integer
            Get
                If _Image Is Nothing Then Return 0
                Return Height \ 2 - _Image.Height \ 2
            End Get
        End Property
    
        Private _Size As Size
        Private _Rectangle As Rectangle
        Private _Gradient As LinearGradientBrush
        Private _Brush As SolidBrush
    
        Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
            If _NoRounding Then Return
    
            B.SetPixel(rect.X, rect.Y, c)
            B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c)
            B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c)
            B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c)
        End Sub
    
        Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
            G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
            G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
        End Sub
    
        Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer)
            DrawText(a, c, x, 0)
        End Sub
        Protected Sub DrawText(ByVal a As HorizontalAlignment, ByVal c As Color, ByVal x As Integer, ByVal y As Integer)
            If String.IsNullOrEmpty(Text) Then Return
            _Size = G.MeasureString(Text, Font).ToSize
            _Brush = New SolidBrush(c)
    
            Select Case a
                Case HorizontalAlignment.Left
                    G.DrawString(Text, Font, _Brush, x, Height \ 2 - _Size.Height \ 2 + y)
                Case HorizontalAlignment.Right
                    G.DrawString(Text, Font, _Brush, Width - _Size.Width - x, Height \ 2 - _Size.Height \ 2 + y)
                Case HorizontalAlignment.Center
                    G.DrawString(Text, Font, _Brush, Width \ 2 - _Size.Width \ 2 + x, Height \ 2 - _Size.Height \ 2 + y)
            End Select
        End Sub
    
        Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer)
            DrawIcon(a, x, 0)
        End Sub
        Protected Sub DrawIcon(ByVal a As HorizontalAlignment, ByVal x As Integer, ByVal y As Integer)
            If _Image Is Nothing Then Return
            Select Case a
                Case HorizontalAlignment.Left
                    G.DrawImage(_Image, x, Height \ 2 - _Image.Height \ 2 + y)
                Case HorizontalAlignment.Right
                    G.DrawImage(_Image, Width - _Image.Width - x, Height \ 2 - _Image.Height \ 2 + y)
                Case HorizontalAlignment.Center
                    G.DrawImage(_Image, Width \ 2 - _Image.Width \ 2, Height \ 2 - _Image.Height \ 2)
            End Select
        End Sub
    
        Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
            _Rectangle = New Rectangle(x, y, width, height)
            _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
            G.FillRectangle(_Gradient, _Rectangle)
        End Sub
    #End Region
    
    End Class
    MustInherit Class ThemeContainerControl
        Inherits ContainerControl
    
    #Region " Initialization "
    
        Protected G As Graphics, B As Bitmap
        Sub New()
            SetStyle(DirectCast(139270, ControlStyles), True)
            B = New Bitmap(1, 1)
            G = Graphics.FromImage(B)
        End Sub
    
        Sub AllowTransparent()
            SetStyle(ControlStyles.Opaque, False)
            SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        End Sub
    
    #End Region
    
    #Region " Convienence "
    
        MustOverride Sub PaintHook()
        Protected NotOverridable Overrides Sub OnPaint(ByVal e As PaintEventArgs)
            If Width = 0 OrElse Height = 0 Then Return
            PaintHook()
            e.Graphics.DrawImage(B, 0, 0)
        End Sub
    
        Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
            If Not Width = 0 AndAlso Not Height = 0 Then
                B = New Bitmap(Width, Height)
                G = Graphics.FromImage(B)
                Invalidate()
            End If
            MyBase.OnSizeChanged(e)
        End Sub
    
        Private _NoRounding As Boolean
        Property NoRounding() As Boolean
            Get
                Return _NoRounding
            End Get
            Set(ByVal v As Boolean)
                _NoRounding = v
                Invalidate()
            End Set
        End Property
    
        Private _Rectangle As Rectangle
        Private _Gradient As LinearGradientBrush
    
        Protected Sub DrawCorners(ByVal c As Color, ByVal rect As Rectangle)
            If _NoRounding Then Return
            B.SetPixel(rect.X, rect.Y, c)
            B.SetPixel(rect.X + (rect.Width - 1), rect.Y, c)
            B.SetPixel(rect.X, rect.Y + (rect.Height - 1), c)
            B.SetPixel(rect.X + (rect.Width - 1), rect.Y + (rect.Height - 1), c)
        End Sub
    
        Protected Sub DrawBorders(ByVal p1 As Pen, ByVal p2 As Pen, ByVal rect As Rectangle)
            G.DrawRectangle(p1, rect.X, rect.Y, rect.Width - 1, rect.Height - 1)
            G.DrawRectangle(p2, rect.X + 1, rect.Y + 1, rect.Width - 3, rect.Height - 3)
        End Sub
    
        Protected Sub DrawGradient(ByVal c1 As Color, ByVal c2 As Color, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal angle As Single)
            _Rectangle = New Rectangle(x, y, width, height)
            _Gradient = New LinearGradientBrush(_Rectangle, c1, c2, angle)
            G.FillRectangle(_Gradient, _Rectangle)
        End Sub
    #End Region
    End Class
    Class ExoticButton
        Inherits ThemeControl
        Public Overrides Sub PaintHook()
            G.Clear(Color.LightGray)
            Select Case MouseState
                Case State.MouseDown
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(240, 248, 255), 3, 4, Width - 6, Height - 6, 90S)
                    DrawText(HorizontalAlignment.Center, Color.Black, 0)
                Case State.MouseNone
                    DrawGradient(Color.FromArgb(240, 248, 255), Color.FromArgb(0, 0, 0), 3, 4, Width - 6, Height - 6, 90S)
                    DrawText(HorizontalAlignment.Center, Color.Black, 0)
                Case State.MouseOver
                    DrawGradient(Color.FromArgb(240, 248, 255), Color.FromArgb(0, 0, 0), 3, 4, Width - 6, Height - 6, 90S)
                    DrawText(HorizontalAlignment.Center, Color.Black, 0)
            End Select
            DrawBorders(Pens.Black, Pens.AliceBlue, ClientRectangle)
            DrawCorners(Color.LightGray, ClientRectangle)
        End Sub
    End Class
    Class ExoticTopButton
        Inherits ThemeControl
        Sub New()
            Size = New Size(11, 5)
        End Sub
        Overrides Sub PaintHook()
            Select Case MouseState
                Case State.MouseNone
                    DrawGradient(Color.FromArgb(240, 248, 250), Color.FromArgb(0, 0, 0), 0, 0, Width, Height, 90S)
                Case State.MouseOver
                    DrawGradient(Color.FromArgb(240, 248, 250), Color.FromArgb(0, 0, 0), 0, 0, Width, Height, 90S)
                Case State.MouseDown
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(0, 0, 0), 0, 0, Width, Height, 90S)
            End Select
            DrawCorners(Color.FromArgb(240, 248, 250), ClientRectangle)
            DrawBorders(Pens.Black, Pens.AliceBlue, ClientRectangle)
        End Sub
    End Class
    Class ExoticTheme
        Inherits Theme
        Private _test As Boolean
        Public Property test() As Boolean
            Get
                Return _test
            End Get
            Set(ByVal v As Boolean)
                _test = v
                Invalidate()
            End Set
        End Property
        Sub New()
            test = True
            MoveHeight = 20
            Me.Resizable = False
            Me.Font = New Font("Gabriola", 12, FontStyle.Regular)
        End Sub
        Overrides Sub PaintHook()
            Dim Size1, Size2 As Integer
            Select Case test
                Case True
                    Size1 = 38
                    Size2 = 37
                Case False
                    Size1 = 21
                    Size2 = -1
            End Select
            G.Clear(Color.Black)
            Select Case test
                Case True
                    DrawGradient(Color.FromArgb(240, 248, 250), Color.FromArgb(0, 0, 0), 0, 19, Width, 18, 90S)
            End Select
            G.DrawLine(Pens.AliceBlue, 0, 20, Width, 20)
            G.DrawLine(Pens.AliceBlue, 0, Size2, Width, Size2)
            Select Case test
                Case True
                    For I As Integer = 0 To Width + 17 Step 4
                        G.DrawLine(Pens.Black, I, 21, I - 17, Size1)
                        G.DrawLine(Pens.Black, I - 1, 21, I - 18, Size1)
                    Next
            End Select
            DrawBorders(Pens.Black, Pens.AliceBlue, ClientRectangle)
            DrawCorners(Color.Black, ClientRectangle)
            DrawText(Top, Color.FromArgb(240, 248, 255), 0)
        End Sub
    End Class
    Class ExoticProgressBar
        Inherits ThemeControl
        Private _Maximum As Integer
        Public Property Maximum() As Integer
            Get
                Return _Maximum
            End Get
            Set(ByVal v As Integer)
                If v < 1 Then v = 1
                If v < _Value Then _Value = v
                _Maximum = v
                Invalidate()
            End Set
        End Property
        Private _Value As Integer
        Public Property Value() As Integer
            Get
                Return _Value
            End Get
            Set(ByVal v As Integer)
                If v > _Maximum Then v = _Maximum
                Maximum = 100
                _Value = v
                Invalidate()
            End Set
        End Property
        Overrides Sub PaintHook()
            G.Clear(Color.Black)
            Select Case _Value
                Case Is > 2
                    DrawGradient(Color.FromArgb(240, 248, 250), Color.FromArgb(0, 0, 0), 3, 3, CInt(_Value / _Maximum * Width) - 6, Height - 6, 90S)
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(240, 248, 250), 4, 4, CInt(_Value / _Maximum * Width) - 8, Height - 8, 90S)
                Case Is > 0
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(240, 248, 250), 3, 3, CInt(_Value / _Maximum * Width), Height - 6, 90S)
                    DrawGradient(Color.FromArgb(240, 240, 250), Color.FromArgb(0, 0, 0), 4, 4, CInt(_Value / _Maximum * Width) - 2, Height - 8, 90S)
            End Select
            G.DrawRectangle(Pens.Black, 0, 0, Width - 1, Height - 1)
            G.DrawRectangle(Pens.AliceBlue, 1, 1, Width - 5, Height - 5)
        End Sub
    End Class
    Class ExoticCheck
        Inherits ThemeControl
        Private _CheckedState As Boolean
        Public Property CheckedState() As Boolean
            Get
                Return _CheckedState
            End Get
            Set(ByVal v As Boolean)
                _CheckedState = v
                Invalidate()
            End Set
        End Property
        Sub New()
            Size = New Size(90, 15)
            MinimumSize = New Size(16, 16)
            MaximumSize = New Size(600, 16)
            CheckedState = False
        End Sub
        Public Overrides Sub PaintHook()
            Dim V As Integer
            G.Clear(Color.FromArgb(V, V, V))
            Select Case CheckedState
                Case True
                    DrawGradient(Color.FromArgb(240, 248, 255), Color.FromArgb(0, 0, 0), 3, 3, 9, 9, 90S)
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(240, 248, 255), 4, 4, 7, 7, 90S)
                Case False
                    DrawGradient(Color.FromArgb(0, 0, 0), Color.FromArgb(0, 0, 0), 0, 0, 15, 15, 90S)
            End Select
            G.DrawRectangle(Pens.Black, 0, 0, 14, 14)
            G.DrawRectangle(Pens.AliceBlue, 1, 1, 12, 12)
            DrawText(HorizontalAlignment.Left, Color.AliceBlue, 17, 0)
        End Sub
        Sub changeCheck() Handles Me.Click
            Select Case CheckedState
                Case True
                    CheckedState = False
                Case False
                    CheckedState = True
            End Select
        End Sub
    End Class
    Functions: Hotkeys
    Code:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Integer
    Then add your hotkeys on a timer.
    Code:
    Dim startkey as boolean
    startkey = GetAsyncKeyState(Keys.F5)
    IF startkey = True Then
    'Your Code Here
    End If
    Icons: Adding an icon on your project makes it look more professional, and trustworthy. (I usually don't use things without an icon on it)

    Go into your project, and under the application tab theres a dropdown for an icon.


    Also, there you have the option to change assembly information, instead if it saying "Microsoft" or "Windows Application".

    Other then that, nice job.

  9. The Following User Says Thank You to FUKO For This Useful Post:

    Irony (08-22-2011)

  10. #8
    Irony's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    MPGH where else?
    Posts
    5,969
    Reputation
    285
    Thanks
    539
    My Mood
    Busy
    @Jamal thanks for putting that much effort into a post. Really will help me! Thanked+Repped ^_^

  11. The Following User Says Thank You to Irony For This Useful Post:

    FUKO (08-22-2011)

  12. #9
    FUKO's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Location
    PBlackout.exe /mhu
    Posts
    11,132
    Reputation
    1103
    Thanks
    3,842
    Anytime, hope to see improvements out of you in future projects.
    If you have any questions feel free to send me a VM.

  13. #10
    Kirigaya Kazuto's Avatar
    Join Date
    Jul 2011
    Gender
    male
    Location
    Wall of shame
    Posts
    1,747
    Reputation
    120
    Thanks
    85
    Good job! Now it's time to spread the mpgh lub all over AVA

  14. #11
    Battlefield 3's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    One Man's Trash Is Another Man's Pleasure!
    Posts
    2,911
    Reputation
    -119
    Thanks
    587
    My Mood
    Devilish
    @jamel damn nice post
    I can use it on my macro

  15. #12
    bankai-uchiha's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    168
    Reputation
    13
    Thanks
    3
    My Mood
    Asleep
    So does this just spam in game? :S
    My Goals!
    [X] 50 Posts
    [X] 100 Posts
    [O] 250 Posts
    [O] 500 Posts

  16. #13
    Battlefield 3's Avatar
    Join Date
    Feb 2010
    Gender
    male
    Location
    One Man's Trash Is Another Man's Pleasure!
    Posts
    2,911
    Reputation
    -119
    Thanks
    587
    My Mood
    Devilish
    Quote Originally Posted by bankai-uchiha View Post
    So does this just spam in game? :S
    Yes, try it in capsule shop

  17. #14
    InfernalPro's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    3
    Reputation
    10
    Thanks
    0
    what is spammer?

  18. #15
    Irony's Avatar
    Join Date
    Aug 2009
    Gender
    male
    Location
    MPGH where else?
    Posts
    5,969
    Reputation
    285
    Thanks
    539
    My Mood
    Busy
    Quote Originally Posted by InfernalPro View Post
    what is spammer?
    Basically spams a message a ton of times for a long time

Page 1 of 2 12 LastLast

Similar Threads

  1. MSN Spammer
    By Skurdz in forum Spammers Corner
    Replies: 37
    Last Post: 03-17-2009, 02:56 PM
  2. Spammers Beware
    By A7X Oblivian in forum Spammers Corner
    Replies: 24
    Last Post: 12-11-2006, 06:21 PM
  3. WHOOH thread #1000 in the spammers corner
    By ace76543 in forum Spammers Corner
    Replies: 5
    Last Post: 12-11-2006, 06:00 PM
  4. Attn Spammers
    By EleMentX in forum General
    Replies: 14
    Last Post: 06-15-2006, 09:46 AM
  5. Two Biggest Spammers on the forums!
    By Dave84311 in forum General
    Replies: 20
    Last Post: 01-02-2006, 09:39 AM