Page 3 of 7 FirstFirst 12345 ... LastLast
Results 31 to 45 of 92
  1. #31
    dacads's Avatar
    Join Date
    May 2017
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    0
    Edit: nevermind - damn this thing is awsome - nice and clean codes though
    Last edited by dacads; 04-02-2018 at 11:57 AM.

  2. #32
    paradoxe1978's Avatar
    Join Date
    Sep 2015
    Gender
    male
    Location
    ch
    Posts
    25
    Reputation
    10
    Thanks
    648
    My Mood
    Busy
    Version 11

    Code:
    Imports System.Runtime.InteropServices
    
    
    Public Class Form1
        'build 11
        'recommended to use with Mccree
    
        'edit values below to modify triggerbot
        'autofire delay - 510 for mccree - 1400 for widow 
        Public FireDelayRightMouseDown As UInteger = 1400 'autofire delay when right mouse is down
        Public FireDelayRightMouseUp As UInteger = 510 'autofire delay when right mouse is up
        Public ScanRangeRightMouseDown As Long = 56  'amount of pixels to scan for sniper - right click down
        Public ScanRangeRightMouseUp As Long = 28 'amount of pixels to scan for right click up
        Public AdjustDown As Integer = -1 'optional - move scanning up/down depending on where window is - negative values allowed
        Public AdjustRight As Integer = -1  'optional - move scanning left/right depending on where window is - negative values allowed
        Public RedOrangeRange As Single = 15 ' adjust down to decrease targeting orange
        Public RedVioletRange As Single = 343 ' adjust up to decrease targeting violet
        Public MinBrightness As Single = 0.25 'minimum brightness of pixel range (0-1.00)
        Public MaxBrightness As Single = 0.85 'maximum brightness of pixel range (0-1.00)
        Public MinSaturation As Single = 0.3 'minimum saturation of pixel range (0-1.00)
        Public MinRed As Single = 110 'minimum red value of pixel (0-255) - set lower for darker maps
        Public MaxSatToBriRatio As Single = 0.75 'Max ratio of saturation to brightness allowed
        Public MaxBritoSatRatio As Single = 0.35 'Max ratio of brightness to saturation allowed
    
        'x/y might be inverted
        Public DistanceFromTargetBeforeFiringX As Long = 6 ' maximum distance from target in x to fire
        Public DistanceFromTargetBeforeFiringY As Long = 6 ' maximum distance from target in y to fire
    
        Public NonWhiteCrosshair As Long = 1 ' change this to 1 to stop widow from auto firing while in zoom.  Crosshair cannot be a pure white for it to work if unzoomed.
    
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 1}
        Public ScanRange As Long = 56
    
        Public Pixels(ScanRange * ScanRange + ScanRange) As Integer
        Public Pixels_Hue(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_Brightness(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_Saturation(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_R(ScanRange * ScanRange + ScanRange) As Single
        Public LastFireTick As UInteger
    
        Dim AmountOfPureWhiteFound As Long
    
        Public ChartQuad(4) As Long
    
    
        <DllImport("user32.dll")>
        Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
        End Function
    
        Private Const VK_RBUTTON = &H2
        Private Const VK_LBUTTON = &H1
        Private Const VK_Q = &H51
        Private Const VK_RETURN = &HD
    
        <DllImport("user32.dll")>
        Private Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDc As IntPtr) As IntPtr
        End Function
        <DllImport("user32.dll", SetLastError:=True)>
        Private Shared Function GetActiveWindow() As IntPtr
        End Function
        <DllImport("gdi32")>
        Public Shared Function BitBlt(ByVal hDestDC As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As IntPtr, ByVal SrcX As Integer, ByVal SrcY As Integer, ByVal Rop As Integer) As Boolean
        End Function
        Dim GCH As GCHandle = GCHandle.Alloc(Pixels, GCHandleType.Pinned)
    
        Dim Bmp As New Drawing.Bitmap(ScanRange, ScanRange, 4 * ScanRange,
                                      Imaging.PixelFormat.Format32bppArgb,
                                      GCH.AddrOfPinnedObject)
    
        <DllImport("user32.dll")>
        Private Shared Function GetWindowDC(ByVal hwnd As IntPtr) As IntPtr
        End Function
    
        Declare Function GetWindowRect Lib "user32.dll" (
    ByVal hwnd As Int32,
    ByRef lpRect As Rectangle) As Int32
    
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If t.Enabled = 0 Then
                Button1.Text = "STOP"
                t.Enabled = 1
            Else
                Button1.Text = "START"
                t.Enabled = 0
            End If
        End Sub
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            AddHandler t.Tick, AddressOf Timer_tick
            If FireDelayRightMouseDown < 100 Then FireDelayRightMouseDown = 100 ' don't make this too low to avoid suspicion - to make it lower use keypressdown and keypressup
            If FireDelayRightMouseUp < 100 Then FireDelayRightMouseUp = 100 ' don't make this too low to avoid suspicion - to make it lower use keypressdown and keypressup
        End Sub
        Private Sub Timer_tick(sender As Object, e As EventArgs)
            RunAimbot()
        End Sub
    
    
        Public Sub RunAimbot()
    
            Dim Amountfound As Long
            Dim AmountfoundCC1 As Long
            Dim CCAmount(0 To 1000) As Long
            Dim I As Long
    
    
    
            Dim TargetX As Long
            Dim TargetY As Long
            Dim TargetAmountFound As Long
    
    
            Dim avgHUE As Single
            Dim avgBrightness As Single
            Dim avgsaturation As Single
    
            Dim avgHueFound As Single
            Dim avgBrightnessFound As Single
            Dim avgsaturationFound As Single
    
    
            Dim AMountOfPixels As Single
            Dim FireTriggered As Single
    
            Dim YW As Single
            Dim X As Single
            Dim Y As Single
    
            Dim YW2 As Single
            Dim X2 As Single
            Dim Y2 As Single
            Dim YWY As Integer
            Dim YW2Y2 As Integer
            Dim CombinedLineFigure As Long
    
            Dim screenwidth = CInt(Screen.PrimaryScreen.Bounds.Width)
            Dim screenheight = CInt(Screen.PrimaryScreen.Bounds.Height)
    
            Dim g As Graphics
            Dim hdcDest As IntPtr = IntPtr.Zero
            Dim desktopHandleDC As IntPtr = IntPtr.Zero
            Dim desktopHandle As IntPtr
    
            'change scan size based on whether mouse in down or up
    
            SetScanRange()
    
    
    
    
            desktopHandle = GetActiveWindow()
    
    
            Dim R As Rectangle = New Rectangle(CInt((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2)) + AdjustRight, CInt((Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2)) + AdjustDown, ScanRange, ScanRange)
    
    
            Bmp = New Bitmap(ScanRange, ScanRange, 4 * ScanRange,
                                          Imaging.PixelFormat.Format32bppArgb,
                                          GCH.AddrOfPinnedObject)
    
    
    
            g = Graphics.FromImage(Bmp)
            desktopHandleDC = GetWindowDC(desktopHandle)
            hdcDest = g.GetHdc
    
            Dim gf As Integer
            Dim GH As Rectangle
    
    
            gf = GetWindowRect(desktopHandle, GH)
    
    
    
            Dim NewRectWidth As Integer
            Dim NewRectheight As Integer
            NewRectWidth = GH.Width - GH.Left
            NewRectheight = GH.Height - GH.Top
    
    
            BitBlt(hdcDest, 0, 0, ScanRange, ScanRange, desktopHandleDC, CInt((screenwidth / 2) - (ScanRange / 2) + AdjustRight), CInt((screenheight / 2) - (ScanRange / 2) + AdjustDown), CopyPixelOperation.SourceCopy)
    
    
            g.ReleaseHdc(hdcDest)
            ReleaseDC(desktopHandle, desktopHandleDC)
            Bmp.Dispose()
            g.Dispose() : g = Nothing
    
    
    
            Dim myColor As Color
    
    
            AMountOfPixels = ScanRange * ScanRange
    
            For X = 3 To ScanRange - 4
                YW = X * ScanRange
                For Y = 3 To ScanRange - 4
                    YWY = YW + Y
                    myColor = Color.FromArgb((Pixels(YWY)))
    
                    Pixels_Hue(YWY) = myColor.GetHue
                    Pixels_Brightness(YWY) = myColor.GetBrightness
                    Pixels_Saturation(YWY) = myColor.GetSaturation
                    Pixels_R(YWY) = myColor.R
    
                    avgHUE = avgHUE + Pixels_Hue(YWY)
                    avgBrightness = avgBrightness + Pixels_Brightness(YWY)
                    avgsaturation = avgsaturation + Pixels_Saturation(YWY)
    
                    If NonWhiteCrosshair = 1 Then
                        'sniper zoom fix
                        If Pixels_Hue(YWY) = 0 And Pixels_Saturation(YWY) = 0 And Pixels_Brightness(YWY) = 1 And CheckRightMouse() = 1 And (LastFireTick + FireDelayRightMouseDown) <= GetTickCount Then
                            AmountOfPureWhiteFound = AmountOfPureWhiteFound + 1
                            If AmountOfPureWhiteFound > 20 Then
                                'fix for sniper red in zoom with large scan range =/
    
                                LastFireTick = LastFireTick + 150
                            End If
                        End If
                    End If
    
                    If Pixels_Hue(YWY) < RedOrangeRange Or Pixels_Hue(YWY) > RedVioletRange Then
                        If Pixels_Brightness(YWY) > MinBrightness And Pixels_Brightness(YWY) < MaxBrightness And
                            Pixels_Saturation(YWY) > MinSaturation And Pixels_R(YWY) > MinRed And
                            Pixels_Saturation(YWY) >= Pixels_Brightness(YWY) * MaxSatToBriRatio And
                            Pixels_Saturation(YWY) * MaxBritoSatRatio <= Pixels_Brightness(YWY) Then ' Target by hue to bypass 1.12
                            Amountfound = Amountfound + 1
    
                            'DEBUG
                            ' RichTextBox1.AppendText("HUE=" & (myColor.GetHue()).ToString & vbTab & "SAT=" & myColor.GetSaturation().ToString & vbTab & "BGT=" & (myColor.GetBrightness()).ToString & vbTab & myColor.R & vbNewLine)
    
    
    
                            'advanced comparison
    
                            For X2 = (X - 3) To (X + 3)
                                YW2 = X2 * ScanRange
                                For Y2 = (Y - 3) To (Y + 3)
                                    YW2Y2 = YW2 + Y2
                                    'x2=0 and y2=0 produces additional triggered pixel
    
                                    If Pixels_Hue(YW2Y2) < RedOrangeRange Or Pixels_Hue(YW2Y2) > RedVioletRange Then
                                        If Pixels_Brightness(YW2Y2) > MinBrightness And Pixels_Brightness(YW2Y2) < MaxBrightness And
                                            Pixels_Saturation(YW2Y2) > MinSaturation And Pixels_R(YW2Y2) > MinRed And
                                            Pixels_Saturation(YW2Y2) >= Pixels_Brightness(YW2Y2) * MaxSatToBriRatio And
                                            Pixels_Saturation(YW2Y2) * MaxBritoSatRatio <= Pixels_Brightness(YW2Y2) Then ' Target by hue to bypass 1.12
                                            AmountfoundCC1 = AmountfoundCC1 + 1
                                        End If
                                    End If
    
                                Next Y2
                            Next X2
    
                            '   MaxSatToBriRatio  = 0.35
                            '  MaxBritoSatRatio = 0.75 
    
    
                            'target x/y
                            If CheckRightMouse() = 0 Then
                                If AmountfoundCC1 >= 1 And AmountfoundCC1 <= 13 Then
                                    TargetY = TargetY + Y  'settings for right mouse up
                                    TargetX = TargetX + X
    
                                    CheckXYRange(X, Y)
    
                                    TargetAmountFound = TargetAmountFound + 1
    
                                    ' RichTextBox1.AppendText("SAT= " & myColor.GetSaturation() & " " & "BRI= " & myColor.GetBrightness() & " " & "HUE+BRI= " & myColor.GetSaturation() + myColor.GetBrightness() & vbNewLine)
    
    
    
                                    If Pixels_Hue(YWY) <= RedOrangeRange Then 'RedOrangeRange
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY) + 360 'beta test
                                    Else
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY)
                                    End If
    
    
                                    avgBrightnessFound = avgBrightnessFound + Pixels_Brightness(YWY)
                                    avgsaturationFound = avgsaturationFound + Pixels_Saturation(YWY)
                                End If
                                'Next I
                            Else
                                ' For I = 2 To 19
                                If AmountfoundCC1 >= 2 And AmountfoundCC1 <= 19 Then
                                    TargetY = TargetY + Y  'settings for right mouse down
                                    TargetX = TargetX + X
    
                                    CheckXYRange(X, Y)
    
                                    TargetAmountFound = TargetAmountFound + 1
    
                                    If Pixels_Hue(YWY) <= RedOrangeRange Then 'RedOrangeRange
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY) + 360 'testing this out
                                    Else
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY)
                                    End If
                                    'avgHueFound = avgHueFound + Pixels_Hue(YWY) 'beta test
                                    avgBrightnessFound = avgBrightnessFound + Pixels_Brightness(YWY)
                                    avgsaturationFound = avgsaturationFound + Pixels_Saturation(YWY)
                                    '  Next I
                                End If
                            End If
    
    
                            CCAmount(AmountfoundCC1) = CCAmount(AmountfoundCC1) + 1
                            AmountfoundCC1 = 0
    
    
    
                        End If
                    End If
    NExtY:
                Next Y
            Next X
            'combine line figures together
            If CheckRightMouse() = 0 Then
                For I = 1 To 13
                    CombinedLineFigure = CombinedLineFigure + CCAmount(I)  'settings for right mouse up
                Next I
            Else
                For I = 2 To 19
                    CombinedLineFigure = CombinedLineFigure + CCAmount(I)  'settings for right mouse down
                Next I
            End If
    
    
            ' CombinedLineFigure = CombinedLineFigure * 2
    
    
            If CombinedLineFigure >= (ScanRange * 0.15) And (CombinedLineFigure * 1.5) >= Amountfound Then
    
    
    
    
    
                FireTriggered = 1
                '  RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                ' RichTextBox1.AppendText("Fire" & vbNewLine)
    
    
    
            End If
    
    
            avgHUE = avgHUE / AMountOfPixels
            avgBrightness = avgBrightness / AMountOfPixels
            avgsaturation = avgsaturation / AMountOfPixels
    
            avgHueFound = avgHueFound / TargetAmountFound
            avgBrightnessFound = avgBrightnessFound / TargetAmountFound
            avgsaturationFound = avgsaturationFound / TargetAmountFound
    
    
    
            If avgHUE > 2 And avgHUE < 14 And avgBrightness < 0.45 And avgsaturation < 0.45 Then
                ' FireTriggered = 0 ' don't fire 
            End If
    
    
            If CheckRightMouse() = 0 Then 'adjust for zoom
    
                If Math.Abs((TargetX / TargetAmountFound) - (ScanRange / 2)) > DistanceFromTargetBeforeFiringX Then
                    FireTriggered = 0 ' don't fire
                End If
    
                If Math.Abs((TargetY / TargetAmountFound) - (ScanRange / 2)) > DistanceFromTargetBeforeFiringY Then
                    FireTriggered = 0 ' don't fire
                End If
            Else 'while zoomed / hold down right click
                If Math.Abs((TargetX / TargetAmountFound) - (ScanRange / 2)) > (DistanceFromTargetBeforeFiringX * 2) Then
                    FireTriggered = 0 ' don't fire
                End If
    
                If Math.Abs((TargetY / TargetAmountFound) - (ScanRange / 2)) > (DistanceFromTargetBeforeFiringY * 2) Then
                    FireTriggered = 0 ' don't fire
                End If
    
    
            End If
    
            If CheckKeyQ() = 1 And CheckRightMouse() = 0 Then
                LastFireTick = GetTickCount + 4000 'pressing Q for ultimate delays firing by 5 secs when mouse is up.  With widow use ultimate while zoomed to avoid delay.
            End If
    
            If CheckKeyENTER() = 1 Then
                LastFireTick = GetTickCount + 1500 'disable aimbot while chatting
            End If
    
            If QuadrantCheck4() = 0 And QuadrantCheck3() = 0 Then
                FireTriggered = 0 ' don't fire 
            End If
    
    
            If FireTriggered = 1 Then
                Fire()
            End If
    
    
    
    
            'debug and testing
            If LastFireTick = GetTickCount Then
    
                ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                ' RichTextBox1.Text = ("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness)
                '  avgHueFound = avgHueFound Mod 360
                '   RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbTab & "avgHUEfound=" & avgHueFound & vbTab & "avgSATfound=" & avgsaturationFound & vbTab & "avgBGTfound=" & avgBrightnessFound & vbNewLine)
    
                '   Dim i2 As Long
                '   For i2 = 0 To 30
                '   RichTextBox1.AppendText(CCAmount(i2) & vbTab)
                '   Next
                '   RichTextBox1.AppendText(vbNewLine)
                'RichTextBox1.AppendText(Math****und((TargetX / TargetAmountFound) - ScanRange / 2) & " " & (Math****und((TargetY / TargetAmountFound)) - ScanRange / 2) & vbNewLine)
    
    
                'RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)
    
    
    
                'moving mouse settings
                'aimbot target X = Math****und((screenwidth / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight - not tested
                'aimbot target Y = Math****und((screenheight / 2) + (TargetY / TargetAmountFound) - ScanRange / 2) + AdjustDown- not tested
                'Y axis might be reversed - (Y * -1) to fix
    
    
                'RichTextBox1.AppendText(Math****und((screenheight / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight & vbNewLine)
    
    
            End If
            Array.Clear(ChartQuad, 0, ChartQuad.Length)
        End Sub
        Public Sub Fire()
            If (LastFireTick + FireDelayRightMouseDown) <= GetTickCount And CheckRightMouse() = 1 Then GoTo Fire
            If (LastFireTick + FireDelayRightMouseUp) <= GetTickCount And CheckRightMouse() = 0 Then
    Fire:
                If CheckLeftMouse() = 0 Then 'don't fire when mouse is being manually clicked
                    SendKeys.Send("k")
    
                    '  RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
                End If
                LastFireTick = GetTickCount
            End If
        End Sub
        Public Function CheckRightMouse() As Long
            If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckLeftMouse() As Long
            If GetAsyncKeyState(VK_LBUTTON) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckKeyQ() As Long
            If GetAsyncKeyState(VK_Q) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckKeyENTER() As Long
            If GetAsyncKeyState(VK_RETURN) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Sub SetScanRange()
            If CheckRightMouse() = 0 Then
                ScanRange = ScanRangeRightMouseUp 'settings for right mouse up
            Else
                ScanRange = ScanRangeRightMouseDown 'settings for right mouse down
            End If
    
        End Sub
    
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            Dim i As Long
    
            Application.DoEvents()
            Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
                For i = 0 To 999
                    SetScanRange()
                    Dim rect As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2) + AdjustRight, (Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2) + AdjustDown, ScanRange, ScanRange)
                    Using lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.Blue, 90, True)
    
                        g.FillRectangle(lgb, rect)
                        Application.DoEvents()
                        If Not CheckBox1.CheckState = CheckState.Checked Then Exit Sub
                    End Using
                Next i
            End Using
    
            CheckBox1.CheckState = CheckState.Unchecked
        End Sub
        Public Sub CheckXYRange(x As Long, y As Long)
            x = x - (ScanRange / 2)
            y = y - (ScanRange / 2)
    
            If x < 0 And y < 0 Then
                ChartQuad(3) = ChartQuad(3) + 1
            End If
    
            If x < 0 And y > 0 Then
                ChartQuad(2) = ChartQuad(2) + 1
            End If
    
            If x > 0 And y < 0 Then
                ChartQuad(4) = ChartQuad(4) + 1
            End If
    
            If x > 0 And y > 0 Then
                ChartQuad(1) = ChartQuad(1) + 1
            End If
    
    
    
        End Sub
        Public Function QuadrantCheck3() As Long
            Dim i As Long
            Dim QuadNumber As Long
    
            For i = 1 To 4
                If ChartQuad(i) >= 3 Then
                    QuadNumber = QuadNumber + 1
                End If
            Next i
    
    
            If QuadNumber < 3 Then
                Return 0
            End If
            Return 1
        End Function
        Public Function QuadrantCheck4() As Long
            Dim i As Long
            Dim QuadNumber As Long
    
            For i = 1 To 4
                If ChartQuad(i) >= 1 Then
                    QuadNumber = QuadNumber + 1
                End If
            Next i
    
            ' If QuadNumber > 2 Then
            ' RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)
            ' End If
    
    
            If QuadNumber < 4 Then
                Return 0
            End If
            Return 1
        End Function
    
    End Class

  3. The Following User Says Thank You to paradoxe1978 For This Useful Post:

    fuckyouallxd (04-03-2018)

  4. #33
    jackinthecox's Avatar
    Join Date
    Feb 2018
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    0
    Why does it not react to enemies

    Edit: Do I need to increase the size of the blue box or something? @paradoxe1978

    Edit #2: I've tried both Windowed, Borderless & Fullscreen
    Last edited by jackinthecox; 04-03-2018 at 10:03 AM.

  5. #34
    paradoxe1978's Avatar
    Join Date
    Sep 2015
    Gender
    male
    Location
    ch
    Posts
    25
    Reputation
    10
    Thanks
    648
    My Mood
    Busy
    You have bid key K to primary fire?
    give me your *******

  6. The Following User Says Thank You to paradoxe1978 For This Useful Post:

    Faytalic (04-03-2018)

  7. #35
    fuckyouallxd's Avatar
    Join Date
    Apr 2018
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    0
    pretty good, but not quick enough AND not accurate enough. other than that pretty nice

    - - - Updated - - -

    lets go version 12

    - - - Updated - - -

    keep it up, Phantom.

  8. #36
    Faytalic's Avatar
    Join Date
    Nov 2015
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    0
    can you guys not make fun of me but where the fuck do i download microsoft studio/visual basic. all i see is a whole bunch of confusing different programs to install/run

    - - - Updated - - -

    instructions arent cleanr, i installed visual studio but there is not visual studio basic there or anything jus visual studio solutions, not very clear ;( not familiar with this

  9. #37
    jackinthecox's Avatar
    Join Date
    Feb 2018
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by paradoxe1978 View Post
    You have bid key K to primary fire?
    give me your *******
    Yes K is primary fire
    and I don't know what "*******" means

  10. #38
    Faytalic's Avatar
    Join Date
    Nov 2015
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    0
    ok i got it working!!!!!. does it work for soldier? it only tap shoots or is that intended?
    Last edited by Faytalic; 04-03-2018 at 04:28 PM.

  11. #39
    lilziit's Avatar
    Join Date
    Aug 2014
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    0
    were is the youtube guide @paradoxe1978

  12. #40
    jackinthecox's Avatar
    Join Date
    Feb 2018
    Gender
    male
    Posts
    16
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by Faytalic View Post
    ok i got it working!!!!!. does it work for soldier? it only tap shoots or is that intended?
    im glad it worked for you, i can't get it to work for me

  13. #41
    paradoxe1978's Avatar
    Join Date
    Sep 2015
    Gender
    male
    Location
    ch
    Posts
    25
    Reputation
    10
    Thanks
    648
    My Mood
    Busy
    is the best free triggerbot, thanks to ccaimbot

    Version 12
    No need to add a button/checkbox. It's now added automatically. Improved blue checkbox and added sliders to move it around easy. Triggerbot is the exact same as 11.


    Code:
    Imports System.Runtime.InteropServices
    
    
    Public Class Form1
        'build 12
        'recommended to use with Mccree
    
        'edit values below to modify triggerbot
        'autofire delay - 510 for mccree - 1400 for widow 
        Public FireDelayRightMouseDown As UInteger = 1400 'autofire delay when right mouse is down
        Public FireDelayRightMouseUp As UInteger = 510 'autofire delay when right mouse is up
        Public ScanRangeRightMouseDown As Long = 56  'amount of pixels to scan for sniper - right click down
        Public ScanRangeRightMouseUp As Long = 28 'amount of pixels to scan for right click up
        Public RedOrangeRange As Single = 15 ' adjust down to decrease targeting orange
        Public RedVioletRange As Single = 343 ' adjust up to decrease targeting violet
        Public MinBrightness As Single = 0.25 'minimum brightness of pixel range (0-1.00)
        Public MaxBrightness As Single = 0.85 'maximum brightness of pixel range (0-1.00)
        Public MinSaturation As Single = 0.3 'minimum saturation of pixel range (0-1.00)
        Public MinRed As Single = 110 'minimum red value of pixel (0-255) - set lower for darker maps
        Public MaxSatToBriRatio As Single = 0.75 'Max ratio of saturation to brightness allowed
        Public MaxBritoSatRatio As Single = 0.35 'Max ratio of brightness to saturation allowed
        Public AdjustDown As Integer = -1 'optional - move scanning up/down depending on where window is - negative values allowed
        Public AdjustRight As Integer = -1  'optional - move scanning left/right depending on where window is - negative values allowed
    
        'x/y might be inverted
        Public DistanceFromTargetBeforeFiringX As Long = 6 ' maximum distance from target in x to fire
        Public DistanceFromTargetBeforeFiringY As Long = 6 ' maximum distance from target in y to fire
    
        Public NonWhiteCrosshair As Long = 1 ' change this to 1 to stop widow from auto firing while in zoom.  Crosshair cannot be a pure white for it to work if unzoomed.
    
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 1}
        Public ScanRange As Long = 56
    
        Public Pixels(ScanRange * ScanRange + ScanRange) As Integer
        Public Pixels_Hue(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_Brightness(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_Saturation(ScanRange * ScanRange + ScanRange) As Single
        Public Pixels_R(ScanRange * ScanRange + ScanRange) As Single
        Public LastFireTick As UInteger
    
        Dim AmountOfPureWhiteFound As Long
    
        Public ChartQuad(4) As Long
    
        Public BtnEnable As New Button
        Public ChkBluebox As New CheckBox
        Public TrackBarX As New TrackBar
        Public TrackBarY As New TrackBar
        Public LblTrackBarX As New Label
        Public LblTrackBarY As New Label
        Public IsFormClosing As Boolean = False
    
    
        <DllImport("user32.dll")>
        Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
        End Function
    
        Private Const VK_RBUTTON = &H2
        Private Const VK_LBUTTON = &H1
        Private Const VK_Q = &H51
        Private Const VK_RETURN = &HD
    
        <DllImport("user32.dll")>
        Private Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDc As IntPtr) As IntPtr
        End Function
        <DllImport("user32.dll", SetLastError:=True)>
        Private Shared Function GetActiveWindow() As IntPtr
        End Function
        <DllImport("gdi32")>
        Public Shared Function BitBlt(ByVal hDestDC As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As IntPtr, ByVal SrcX As Integer, ByVal SrcY As Integer, ByVal Rop As Integer) As Boolean
        End Function
        Dim GCH As GCHandle = GCHandle.Alloc(Pixels, GCHandleType.Pinned)
    
        Dim Bmp As New Drawing.Bitmap(ScanRange, ScanRange, 4 * ScanRange,
                                      Imaging.PixelFormat.Format32bppArgb,
                                      GCH.AddrOfPinnedObject)
    
        <DllImport("user32.dll")>
        Private Shared Function GetWindowDC(ByVal hwnd As IntPtr) As IntPtr
        End Function
    
        Declare Function GetWindowRect Lib "user32.dll" (
    ByVal hwnd As Int32,
    ByRef lpRect As Rectangle) As Int32
    
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            AddHandler t.Tick, AddressOf Timer_tick
            If FireDelayRightMouseDown < 100 Then FireDelayRightMouseDown = 100 ' don't make this too low to avoid suspicion - to make it lower use KEYEVENTF_KEYDOWN and KEYEVENTF_KEYUP
            If FireDelayRightMouseUp < 100 Then FireDelayRightMouseUp = 100 ' don't make this too low to avoid suspicion - to make it lower use KEYEVENTF_KEYDOWN and KEYEVENTF_KEYUP
            CreateElements()
        End Sub
    
        Private Sub Form1_Closing(sender As Object, e As EventArgs) Handles MyBase.Closing
            IsFormClosing = True
            End
        End Sub
    
        Private Sub Timer_tick(sender As Object, e As EventArgs)
            RunAimbot()
        End Sub
    
    
        Public Sub RunAimbot()
    
            Dim Amountfound As Long
            Dim AmountfoundCC1 As Long
            Dim CCAmount(0 To 1000) As Long
            Dim I As Long
    
    
    
            Dim TargetX As Long
            Dim TargetY As Long
            Dim TargetAmountFound As Long
    
    
            Dim avgHUE As Single
            Dim avgBrightness As Single
            Dim avgsaturation As Single
    
            Dim avgHueFound As Single
            Dim avgBrightnessFound As Single
            Dim avgsaturationFound As Single
    
    
            Dim AMountOfPixels As Single
            Dim FireTriggered As Single
    
            Dim YW As Single
            Dim X As Single
            Dim Y As Single
    
            Dim YW2 As Single
            Dim X2 As Single
            Dim Y2 As Single
            Dim YWY As Integer
            Dim YW2Y2 As Integer
            Dim CombinedLineFigure As Long
    
            Dim screenwidth = CInt(Screen.PrimaryScreen.Bounds.Width)
            Dim screenheight = CInt(Screen.PrimaryScreen.Bounds.Height)
    
            Dim g As Graphics
            Dim hdcDest As IntPtr = IntPtr.Zero
            Dim desktopHandleDC As IntPtr = IntPtr.Zero
            Dim desktopHandle As IntPtr
    
            'change scan size based on whether mouse in down or up
    
            SetScanRange()
    
    
    
    
            desktopHandle = GetActiveWindow()
    
    
            Dim R As Rectangle = New Rectangle(CInt((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2)) + AdjustRight, CInt((Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2)) + AdjustDown, ScanRange, ScanRange)
    
    
            Bmp = New Bitmap(ScanRange, ScanRange, 4 * ScanRange,
                                          Imaging.PixelFormat.Format32bppArgb,
                                          GCH.AddrOfPinnedObject)
    
    
    
            g = Graphics.FromImage(Bmp)
            desktopHandleDC = GetWindowDC(desktopHandle)
            hdcDest = g.GetHdc
    
            Dim gf As Integer
            Dim GH As Rectangle
    
    
            gf = GetWindowRect(desktopHandle, GH)
    
    
    
            Dim NewRectWidth As Integer
            Dim NewRectheight As Integer
            NewRectWidth = GH.Width - GH.Left
            NewRectheight = GH.Height - GH.Top
    
    
            BitBlt(hdcDest, 0, 0, ScanRange, ScanRange, desktopHandleDC, CInt((screenwidth / 2) - (ScanRange / 2) + AdjustRight), CInt((screenheight / 2) - (ScanRange / 2) + AdjustDown), CopyPixelOperation.SourceCopy)
    
    
            g.ReleaseHdc(hdcDest)
            ReleaseDC(desktopHandle, desktopHandleDC)
            Bmp.Dispose()
            g.Dispose() : g = Nothing
    
    
    
            Dim myColor As Color
    
    
            AMountOfPixels = ScanRange * ScanRange
    
            For X = 3 To ScanRange - 4
                YW = X * ScanRange
                For Y = 3 To ScanRange - 4
                    YWY = YW + Y
                    myColor = Color.FromArgb((Pixels(YWY)))
    
                    Pixels_Hue(YWY) = myColor.GetHue
                    Pixels_Brightness(YWY) = myColor.GetBrightness
                    Pixels_Saturation(YWY) = myColor.GetSaturation
                    Pixels_R(YWY) = myColor.R
    
                    avgHUE = avgHUE + Pixels_Hue(YWY)
                    avgBrightness = avgBrightness + Pixels_Brightness(YWY)
                    avgsaturation = avgsaturation + Pixels_Saturation(YWY)
    
                    If NonWhiteCrosshair = 1 Then
                        'sniper zoom fix
                        If Pixels_Hue(YWY) = 0 And Pixels_Saturation(YWY) = 0 And Pixels_Brightness(YWY) = 1 And CheckRightMouse() = 1 And (LastFireTick + FireDelayRightMouseDown) <= GetTickCount Then
                            AmountOfPureWhiteFound = AmountOfPureWhiteFound + 1
                            If AmountOfPureWhiteFound > 20 Then
                                'fix for sniper red in zoom with large scan range =/
    
                                LastFireTick = LastFireTick + 150
                            End If
                        End If
                    End If
    
                    If Pixels_Hue(YWY) < RedOrangeRange Or Pixels_Hue(YWY) > RedVioletRange Then
                        If Pixels_Brightness(YWY) > MinBrightness And Pixels_Brightness(YWY) < MaxBrightness And
                            Pixels_Saturation(YWY) > MinSaturation And Pixels_R(YWY) > MinRed And
                            Pixels_Saturation(YWY) >= Pixels_Brightness(YWY) * MaxSatToBriRatio And
                            Pixels_Saturation(YWY) * MaxBritoSatRatio <= Pixels_Brightness(YWY) Then ' Target by hue to bypass 1.12
                            Amountfound = Amountfound + 1
    
                            'DEBUG
                            ' RichTextBox1.AppendText("HUE=" & (myColor.GetHue()).ToString & vbTab & "SAT=" & myColor.GetSaturation().ToString & vbTab & "BGT=" & (myColor.GetBrightness()).ToString & vbTab & myColor.R & vbNewLine)
    
    
    
                            'advanced comparison
    
                            For X2 = (X - 3) To (X + 3)
                                YW2 = X2 * ScanRange
                                For Y2 = (Y - 3) To (Y + 3)
                                    YW2Y2 = YW2 + Y2
                                    'x2=0 and y2=0 produces additional triggered pixel
    
                                    If Pixels_Hue(YW2Y2) < RedOrangeRange Or Pixels_Hue(YW2Y2) > RedVioletRange Then
                                        If Pixels_Brightness(YW2Y2) > MinBrightness And Pixels_Brightness(YW2Y2) < MaxBrightness And
                                            Pixels_Saturation(YW2Y2) > MinSaturation And Pixels_R(YW2Y2) > MinRed And
                                            Pixels_Saturation(YW2Y2) >= Pixels_Brightness(YW2Y2) * MaxSatToBriRatio And
                                            Pixels_Saturation(YW2Y2) * MaxBritoSatRatio <= Pixels_Brightness(YW2Y2) Then ' Target by hue to bypass 1.12
                                            AmountfoundCC1 = AmountfoundCC1 + 1
                                        End If
                                    End If
    
                                Next Y2
                            Next X2
    
                            '   MaxSatToBriRatio  = 0.35
                            '  MaxBritoSatRatio = 0.75 
    
    
                            'target x/y
                            If CheckRightMouse() = 0 Then
                                If AmountfoundCC1 >= 1 And AmountfoundCC1 <= 13 Then
                                    TargetY = TargetY + Y  'settings for right mouse up
                                    TargetX = TargetX + X
    
                                    CheckXYRange(X, Y)
    
                                    TargetAmountFound = TargetAmountFound + 1
    
                                    ' RichTextBox1.AppendText("SAT= " & myColor.GetSaturation() & " " & "BRI= " & myColor.GetBrightness() & " " & "HUE+BRI= " & myColor.GetSaturation() + myColor.GetBrightness() & vbNewLine)
    
    
    
                                    If Pixels_Hue(YWY) <= RedOrangeRange Then 'RedOrangeRange
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY) + 360 'beta test
                                    Else
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY)
                                    End If
    
    
                                    avgBrightnessFound = avgBrightnessFound + Pixels_Brightness(YWY)
                                    avgsaturationFound = avgsaturationFound + Pixels_Saturation(YWY)
                                End If
                                'Next I
                            Else
                                ' For I = 2 To 19
                                If AmountfoundCC1 >= 2 And AmountfoundCC1 <= 19 Then
                                    TargetY = TargetY + Y  'settings for right mouse down
                                    TargetX = TargetX + X
    
                                    CheckXYRange(X, Y)
    
                                    TargetAmountFound = TargetAmountFound + 1
    
                                    If Pixels_Hue(YWY) <= RedOrangeRange Then 'RedOrangeRange
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY) + 360 'testing this out
                                    Else
                                        avgHueFound = avgHueFound + Pixels_Hue(YWY)
                                    End If
                                    'avgHueFound = avgHueFound + Pixels_Hue(YWY) 'beta test
                                    avgBrightnessFound = avgBrightnessFound + Pixels_Brightness(YWY)
                                    avgsaturationFound = avgsaturationFound + Pixels_Saturation(YWY)
                                    '  Next I
                                End If
                            End If
    
    
                            CCAmount(AmountfoundCC1) = CCAmount(AmountfoundCC1) + 1
                            AmountfoundCC1 = 0
    
    
    
                        End If
                    End If
    NExtY:
                Next Y
            Next X
            'combine line figures together
            If CheckRightMouse() = 0 Then
                For I = 1 To 13
                    CombinedLineFigure = CombinedLineFigure + CCAmount(I)  'settings for right mouse up
                Next I
            Else
                For I = 2 To 19
                    CombinedLineFigure = CombinedLineFigure + CCAmount(I)  'settings for right mouse down
                Next I
            End If
    
    
            ' CombinedLineFigure = CombinedLineFigure * 2
    
    
            If CombinedLineFigure >= (ScanRange * 0.15) And (CombinedLineFigure * 1.5) >= Amountfound Then
    
    
    
    
    
                FireTriggered = 1
                '  RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                ' RichTextBox1.AppendText("Fire" & vbNewLine)
    
    
    
            End If
    
    
            avgHUE = avgHUE / AMountOfPixels
            avgBrightness = avgBrightness / AMountOfPixels
            avgsaturation = avgsaturation / AMountOfPixels
    
            avgHueFound = avgHueFound / TargetAmountFound
            avgBrightnessFound = avgBrightnessFound / TargetAmountFound
            avgsaturationFound = avgsaturationFound / TargetAmountFound
    
    
    
            If avgHUE > 2 And avgHUE < 14 And avgBrightness < 0.45 And avgsaturation < 0.45 Then
                ' FireTriggered = 0 ' don't fire 
            End If
    
    
            If CheckRightMouse() = 0 Then 'adjust for zoom
    
                If Math.Abs((TargetX / TargetAmountFound) - (ScanRange / 2)) > DistanceFromTargetBeforeFiringX Then
                    FireTriggered = 0 ' don't fire
                End If
    
                If Math.Abs((TargetY / TargetAmountFound) - (ScanRange / 2)) > DistanceFromTargetBeforeFiringY Then
                    FireTriggered = 0 ' don't fire
                End If
            Else 'while zoomed / hold down right click
                If Math.Abs((TargetX / TargetAmountFound) - (ScanRange / 2)) > (DistanceFromTargetBeforeFiringX * 2) Then
                    FireTriggered = 0 ' don't fire
                End If
    
                If Math.Abs((TargetY / TargetAmountFound) - (ScanRange / 2)) > (DistanceFromTargetBeforeFiringY * 2) Then
                    FireTriggered = 0 ' don't fire
                End If
    
    
            End If
    
            If CheckKeyQ() = 1 And CheckRightMouse() = 0 Then
                LastFireTick = GetTickCount + 4000 'pressing Q for ultimate delays firing by 5 secs when mouse is up.  With widow use ultimate while zoomed to avoid delay.
            End If
    
            If CheckKeyENTER() = 1 Then
                LastFireTick = GetTickCount + 1500 'disable aimbot while chatting
            End If
    
            If QuadrantCheck4() = 0 And QuadrantCheck3() = 0 Then
                FireTriggered = 0 ' don't fire 
            End If
    
    
            If FireTriggered = 1 Then
                Fire()
            End If
    
    
    
    
            'debug and testing
            If LastFireTick = GetTickCount Then
    
                ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                ' RichTextBox1.Text = ("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness)
                '  avgHueFound = avgHueFound Mod 360
                '   RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbTab & "avgHUEfound=" & avgHueFound & vbTab & "avgSATfound=" & avgsaturationFound & vbTab & "avgBGTfound=" & avgBrightnessFound & vbNewLine)
    
                '   Dim i2 As Long
                '   For i2 = 0 To 30
                '   RichTextBox1.AppendText(CCAmount(i2) & vbTab)
                '   Next
                '   RichTextBox1.AppendText(vbNewLine)
                'RichTextBox1.AppendText(Math****und((TargetX / TargetAmountFound) - ScanRange / 2) & " " & (Math****und((TargetY / TargetAmountFound)) - ScanRange / 2) & vbNewLine)
    
    
                'RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)
    
    
    
                'moving mouse settings
                'aimbot target X = Math****und((screenwidth / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight - not tested
                'aimbot target Y = Math****und((screenheight / 2) + (TargetY / TargetAmountFound) - ScanRange / 2) + AdjustDown- not tested
                'Y axis might be reversed - (Y * -1) to fix
    
    
                'RichTextBox1.AppendText(Math****und((screenheight / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight & vbNewLine)
    
    
            End If
            Array.Clear(ChartQuad, 0, ChartQuad.Length)
        End Sub
        Public Sub Fire()
            If (LastFireTick + FireDelayRightMouseDown) <= GetTickCount And CheckRightMouse() = 1 Then GoTo Fire
            If (LastFireTick + FireDelayRightMouseUp) <= GetTickCount And CheckRightMouse() = 0 Then
    Fire:
                If CheckLeftMouse() = 0 Then 'don't fire when mouse is being manually clicked
                    SendKeys.Send("k")
    
                    '  RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
                End If
                LastFireTick = GetTickCount
            End If
        End Sub
        Public Function CheckRightMouse() As Long
            If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckLeftMouse() As Long
            If GetAsyncKeyState(VK_LBUTTON) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckKeyQ() As Long
            If GetAsyncKeyState(VK_Q) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Function CheckKeyENTER() As Long
            If GetAsyncKeyState(VK_RETURN) <> 0 Then
                Return 1
            End If
            Return 0
        End Function
        Public Sub SetScanRange()
            If CheckRightMouse() = 0 Then
                ScanRange = ScanRangeRightMouseUp 'settings for right mouse up
            Else
                ScanRange = ScanRangeRightMouseDown 'settings for right mouse down
            End If
    
        End Sub
    
    
        Public Sub CheckXYRange(x As Long, y As Long)
            x = x - (ScanRange / 2)
            y = y - (ScanRange / 2)
    
            If x < 0 And y < 0 Then
                ChartQuad(3) = ChartQuad(3) + 1
            End If
    
            If x < 0 And y > 0 Then
                ChartQuad(2) = ChartQuad(2) + 1
            End If
    
            If x > 0 And y < 0 Then
                ChartQuad(4) = ChartQuad(4) + 1
            End If
    
            If x > 0 And y > 0 Then
                ChartQuad(1) = ChartQuad(1) + 1
            End If
    
    
    
        End Sub
        Public Function QuadrantCheck3() As Long
            Dim i As Long
            Dim QuadNumber As Long
    
            For i = 1 To 4
                If ChartQuad(i) >= 3 Then
                    QuadNumber = QuadNumber + 1
                End If
            Next i
    
    
            If QuadNumber < 3 Then
                Return 0
            End If
            Return 1
        End Function
        Public Function QuadrantCheck4() As Long
            Dim i As Long
            Dim QuadNumber As Long
    
            For i = 1 To 4
                If ChartQuad(i) >= 1 Then
                    QuadNumber = QuadNumber + 1
                End If
            Next i
    
            ' If QuadNumber > 2 Then
            ' RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)
            ' End If
    
    
            If QuadNumber < 4 Then
                Return 0
            End If
            Return 1
        End Function
        Public Sub CreateElements()
    
            'create the start/stop button
            With BtnEnable
                .Size = New Point(100, 40)
                .Location = New Point(20, 20)
                .Text = "START"
            End With
            AddHandler BtnEnable.Click, AddressOf BtnEnable_Click
            Controls.Add(BtnEnable)
    
            'create the bluebox checkbox
            With ChkBluebox
                .Size = New Point(150, 40)
                .Location = New Point(20, 60)
                .Text = "Show Detection Area"
            End With
            AddHandler ChkBluebox.Click, AddressOf Chkbluebox_Click
            Controls.Add(ChkBluebox)
    
            'create the trackbar for x-axis
            With TrackBarX
                .Size = New Point(150, 40)
                .Location = New Point(60, 120)
                .Maximum = 100
                .Value = 49
            End With
            AddHandler TrackBarX.Scroll, AddressOf TrackBarX_Scroll
            Controls.Add(TrackBarX)
    
            'create the trackbar for y-axis
            With TrackBarY
                .Size = New Point(150, 40)
                .Location = New Point(60, 160)
                .Maximum = 100
                .Value = 24
            End With
            AddHandler TrackBarY.Scroll, AddressOf TrackBarY_Scroll
            Controls.Add(TrackBarY)
    
            'create the X-Axis Label
            With LblTrackBarX
                .Size = New Point(100, 40)
                .Location = New Point(20, 120)
                .Text = "X = -1"
            End With
            Controls.Add(LblTrackBarX)
    
            'create the Y-Axis Label
            With LblTrackBarY
                .Size = New Point(100, 40)
                .Location = New Point(20, 160)
                .Text = "Y = -1"
            End With
    
            Controls.Add(LblTrackBarY)
    
            'mandate minimum form size
            If Me.Width < 240 Then Me.Width = 240
            If Me.Height < 250 Then Me.Height = 250
    
        End Sub
    
        Private Sub TrackBarY_Scroll(sender As Object, e As EventArgs)
            If ChkBluebox.CheckState = CheckState.Unchecked Then
                ChkBluebox.CheckState = CheckState.Checked
                Call Chkbluebox_Click(Nothing, EventArgs.Empty)
            End If
    
            AdjustDown = TrackBarY.Value - 25
            LblTrackBarY.Text = "Y = " & AdjustDown
        End Sub
        Private Sub TrackBarX_Scroll(sender As Object, e As EventArgs)
            If ChkBluebox.CheckState = CheckState.Unchecked Then
                ChkBluebox.CheckState = CheckState.Checked
                Call Chkbluebox_Click(Nothing, EventArgs.Empty)
            End If
    
            AdjustRight = TrackBarX.Value - 50
            LblTrackBarX.Text = "X = " & AdjustRight
        End Sub
    
        Private Sub BtnEnable_Click(sender As Object, e As EventArgs)
            If t.Enabled = 0 Then
                StartTriggerbox()
            Else
                StopTriggerbox()
            End If
        End Sub
        Public Sub StopTriggerbox()
            BtnEnable.Text = "START"
            t.Enabled = 0
        End Sub
        Public Sub StartTriggerbox()
            BtnEnable.Text = "STOP"
            t.Enabled = 1
        End Sub
    
        Private Sub Chkbluebox_Click(sender As Object, e As EventArgs)
            If ChkBluebox.CheckState = CheckState.Checked Then
                EnableBlueBox()
            End If
    
        End Sub
    
        Private Sub EnableBlueBox()
            Dim i As Long
            StopTriggerbox()
    
            Application.DoEvents()
            Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
                For i = 0 To 2000
                    SetScanRange()
                    Dim rect As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2) + AdjustRight, (Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2) + AdjustDown, ScanRange, ScanRange)
                    Dim rectalpha As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (1) + AdjustRight, (Screen.PrimaryScreen.Bounds.Height / 2) - (1) + AdjustDown, 1, 1)
                    If i Mod 2 = 1 Then
                        Using lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.Blue, 90, True)
                            g.FillRectangle(lgb, rect)
                        End Using
                    Else
                        Using lgba As New Drawing2D.LinearGradientBrush(rectalpha, Color.White, Color.White, 90, True)
                            g.FillRectangle(lgba, rectalpha)
                        End Using
                    End If
                    Application.DoEvents()
                    If IsFormClosing = True Then Exit Sub
                    If ChkBluebox.CheckState = CheckState.Unchecked Then
                        Me.Refresh()
                        Exit Sub
                    End If
                Next i
            End Using
    
            ChkBluebox.CheckState = CheckState.Unchecked
            Me.Refresh()
        End Sub
    
    
    End Class
    Best reticule:

    I use DOT type, thickness 2, opacity 100, outline opacity 100, dot size 2, color white, and dot opacity 100

    For a soldier:

    Change "Public FireDelayRightMouseUp As UInteger = 510" to "Public FireDelayRightMouseUp As UInteger = 100"

    Tutorial:

    Last edited by paradoxe1978; 04-04-2018 at 05:19 AM.

  14. #42
    dacads's Avatar
    Join Date
    May 2017
    Gender
    male
    Posts
    6
    Reputation
    10
    Thanks
    0
    How can i change the pre-set buttons around i dont understand?

  15. #43
    siyarbekir's Avatar
    Join Date
    Apr 2018
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    0
    Can u compile one exe for me? I have windows 10 creators and i cant compile a Form there idk why. One for soldier one for Mcree. Thank you!

    #Edit after installing .net framework new it works! ty. so lets try it on a custom game.
    Last edited by siyarbekir; 04-04-2018 at 07:37 AM.

  16. #44
    paradoxe1978's Avatar
    Join Date
    Sep 2015
    Gender
    male
    Location
    ch
    Posts
    25
    Reputation
    10
    Thanks
    648
    My Mood
    Busy
    https://www.virustotal.com/#/file-an...UyMjg1OTA3NQ==




    contact me via MP

    <b>Downloadable Files</b> Downloadable Files
    Last edited by paradoxe1978; 04-04-2018 at 11:14 AM.

  17. The Following 10 Users Say Thank You to paradoxe1978 For This Useful Post:

    1935560188 (04-05-2018),ChildSwap (05-16-2018),chinachuk (04-06-2018),choiwoojin75 (06-08-2018),FreshBash (06-29-2019),hasone123 (04-13-2018),joker9956123 (05-27-2019),jsanzsp (09-02-2018),qq214620428 (06-01-2018),saibier2 (05-20-2018)

  18. #45
    ExpertNoob's Avatar
    Join Date
    Jul 2014
    Gender
    male
    Location
    Somwhere in cali
    Posts
    138
    Reputation
    13
    Thanks
    38
    My Mood
    Daring
    How safe is this to use? I have no idea what overwatch's anticheat is like.
    eee

Page 3 of 7 FirstFirst 12345 ... LastLast

Similar Threads

  1. Gunz Bypass
    By Paolo1993 in forum Gunz Hacks
    Replies: 52
    Last Post: 04-18-2009, 04:47 AM
  2. Warrock Game Guard Bypass
    By Dave84311 in forum WarRock - International Hacks
    Replies: 206
    Last Post: 02-21-2006, 06:30 PM
  3. Bypassing School Filters
    By Mortifix in forum Game Hacking Tutorials
    Replies: 1
    Last Post: 01-11-2006, 12:01 PM
  4. Replies: 0
    Last Post: 01-04-2006, 05:45 AM
  5. Gunbound CE bypass
    By Brunogol in forum General Game Hacking
    Replies: 0
    Last Post: 12-30-2005, 10:00 AM