Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy menu

User Tag List

Page 1 of 20 12345 ... LastLast
Results 1 to 15 of 288
  1. #1
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy

    Works well so far but can be improved even more. To use:
    1. Download Microsoft visual studio (free download at Microsoft.com).
    2. After installing Visual Basic. Run it and open new project > Visual Basic > Windows Classic Desktop > Windows Form App (.net Framework)
    3. Double click form1 on the right and paste the following code:
    4. Go to Build > Build the exe
    5. Run it - adjust sliders so blue box is center over crosshair.
    6. Run game windowed mode - resolution doesn't matter
    7. Bind key "k" to fire.
    8. Make sure crosshair is minimal
    9. Turn on/off by clicking middle mouse button

    Build 18 Release:

    Code:
    Imports System.Media
    Imports System.Runtime.InteropServices
    
    
    Public Class Form1
        'build 18
        'recommended to use with Mccree
        'toggle it on/off clicking middle mouse button - will make sound
    
        'edit values below to modify triggerbot
        'autofire delay - 500 for mccree - 1400 for widow 
        Public FireDelayRightMouseDown As UInteger = 1400 'autofire delay when right mouse is down
        Public FireDelayRightMouseUp As UInteger = 500 'autofire delay when right mouse is up
    
        'Triggerbot sensitivity settings
        Public MinQuad3 As Single = 3 'minimum amount of triggering pixels required in 3 chart quadrants (0-10)
        Public MinQuad4 As Single = 1 'minimum amount of triggering pixels required in 4 chart quadrants (0-10)
        Public CombinedLineFigureMulti As Single = 1.45 'Lower to reduce randomly shooting around map (1.00-10.00)
        Public ScanRangeMulti As Single = 0.2 'minimum amount of triggering pixels needed to be found * scanrange (0-10.00)
        Public MaxBrightness As Single = 0.85 'maximum brightness of pixel range (0-1.00)
    
        Public MinRed As Single = 110 'minimum red value of pixel - set lower for darker maps (0-255)
        Public MaxSatToBriRatio As Single = 0.6 'Max ratio of saturation to brightness allowed (0-1.00)
        Public MaxBritoSatRatio As Single = 0.35 'Max ratio of brightness to saturation allowed (0-1.00)
        Public RedOrangeRange As Single = 12 ' adjust down to decrease targeting orange (0-30)
        Public RedVioletRange As Single = 343 ' adjust up to decrease targeting violet (330-360)
        Public DistanceFromTargetBeforeFiringX As Long = 6 ' maximum distance from target in x to fire (1-100)
        Public DistanceFromTargetBeforeFiringY As Long = 6 ' maximum distance from target in y to fire (1-100)
    
        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.
        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
    
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 5}
        Public ScanRange As Long = 56
        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 MinSaturation As Single = 0.25 'dynamically adjusted
        Public MinBrightness As Single = 0.25 'dynamically adjusted
        Public DynamicMinSaturation As Single = 0.25 'dynamically adjusted
        Public DynamicMinBrightness As Single = 0.05 'dynamically adjusted
    
        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
        Public ToggleOnOff As UInteger
        Public TriggerbotActive As Integer
    
        Dim AmountOfPureWhiteFound As Long
    
        Public ChartQuad(4) As Long
    
        Public BtnEnable As New Button
        Public Btnhelp As New Button
        Public ChkBluebox As New CheckBox
        Public TrackBarX As New TrackBar
        Public TrackBarY As New TrackBar
        Public TrackBarSensitivity As New TrackBar
        Public TrackBarMapMisfiring As New TrackBar
        Public LblTrackBarX As New Label
        Public LblTrackBarY As New Label
        Public TxtTrackBarX As New TextBox
        Public TxtTrackBarY As New TextBox
        Public LblSensitivity As New Label
        Public LblHowSensitive As New Label
        Public LblMapMisfiring As New Label
        Public LblHowMapMisfiring As New Label
        Public IsFormClosing As Boolean = False
    
        Public ScreenLock_TotalFrames As Single
        Public Screenlock_BlackFrames As Single
        Public Screenlock_TurnedOff As Single
    
        Public TEST_LASTFIREDms As Single
        Public TEST_LastFiredCount As Single
    
    
    
    
        <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_MButton = &H4
        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
            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 Sub
    
        Private Sub Timer_tick(sender As Object, e As EventArgs)
            If TriggerbotActive = 1 Then
                RunAimbot()
            End If
    
            If CheckKeyMButton() = 1 And Screenlock_TurnedOff = 0 Then
                If ToggleOnOff = 0 Then
                    If TriggerbotActive = 0 Then
                        StartTriggerbox()
                        SystemSounds.Beep.Play()
                    Else
                        StopTriggerbox()
                        SystemSounds.Hand.Play()
                    End If
                    ToggleOnOff = 1
                End If
            Else
                ToggleOnOff = 0
            End If
        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 As Single = 0.6
                                ' MaxBritoSatRatio As Single = 0.35
    
    
                                '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 * ScanRangeMulti) And (CombinedLineFigure * CombinedLineFigureMulti) >= Amountfound Then
    
    
    
    
    
                FireTriggered = 1
                '  RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                '  RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & 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 4 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
    
            ScreenLockCheck(avgHUE, avgsaturation, avgBrightness) 'Check for pure black input
    
    
            'RichTextBox1.Text = ("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
    
            'debug and testing
            If LastFireTick = GetTickCount Then
                '  RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbNewLine)
                ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                ' avgHueFound = avgHueFound Mod 360
                'RichTextBox1.Text = ("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
    
                '  RichTextBox1.AppendText("MinBrightness=" & MinBrightness & vbTab & "MinSaturation=" & MinSaturation & vbNewLine)
                '   RichTextBox1.AppendText("avgHUEfound=" & avgHueFound & vbTab & "avgSATfound=" & avgsaturationFound & vbTab & "avgBGTfound=" & avgBrightnessFound & vbNewLine)
                ' RichTextBox1.AppendText("avgBGT=" & avgBrightness & vbTab & "avgSAT=" & avgsaturation & 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.Round((TargetX / TargetAmountFound) - ScanRange / 2) & " " & (Math.Round((TargetY / TargetAmountFound)) - ScanRange / 2) & vbNewLine)
    
    
                'RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)
    
    
    
                'moving mouse settings
                'aimbot target X = Math.Round((screenwidth / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight - not tested
                'aimbot target Y = Math.Round((screenheight / 2) + (TargetY / TargetAmountFound) - ScanRange / 2) + AdjustDown- not tested
                'Y axis might be reversed - (Y * -1) to fix
    
    
                'RichTextBox1.AppendText(Math.Round((screenheight / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight & vbNewLine)
    
    
            End If
            MinBrightness = avgBrightness + DynamicMinBrightness - (avgBrightness / 0.65 * DynamicMinBrightness)
            MinSaturation = avgsaturation + DynamicMinSaturation - (avgsaturation / 0.8 * DynamicMinSaturation)
    
            'MinBrightness = avgBrightness + 0.1
            'MinSaturation = avgsaturation + 0.15
    
            If MinBrightness < 0.25 Then MinBrightness = 0.25
            If MinSaturation < 0.25 Then MinSaturation = 0.25
    
            If MinBrightness > 0.65 Then MinBrightness = 0.65
            If MinSaturation > 0.8 Then MinSaturation = 0.8
    
            Array.Clear(ChartQuad, 0, ChartQuad.Length)
    
        End Sub
        Public Sub ScreenLockCheck(avghue As Single, avgsat As Single, avgbri As Single)
            ScreenLock_TotalFrames = ScreenLock_TotalFrames + 1
            If ScreenLock_TotalFrames > 20000 Then
                ScreenLock_TotalFrames = 0
                Screenlock_BlackFrames = 0
            End If
            If avghue = 0 And avgsat = 0 And avgbri = 0 Then
                Screenlock_BlackFrames = Screenlock_BlackFrames + 1
                Me.Text = "Pure Black Detected - Possible Screenlock"
                Me.BackColor = Color.IndianRed
            Else
                Me.Text = "Triggerbot"
                Me.BackColor = DefaultBackColor
            End If
            If Screenlock_BlackFrames > 1000 Then
                Screenlock_TurnedOff = 1
                ScreenLock_TotalFrames = 0
                Screenlock_BlackFrames = 0
                StopTriggerbox()
                SystemSounds.Hand.Play()
                MsgBox("Pure black color or possible screenlock detected.  Use with caution.  Don't use if you get this multiple times.  This can be triggered by pure black desktop wallpaper, respawning, or the black screen when entering a game.  To enable triggerbot again manually press START.")
            End If
    
        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 while the mouse is being manually clicked
                    SendKeys.Send("k") 'Using the mouse to click might result in screenlock
    
                    '  RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
    
                    ' If (LastFireTick + 1000) > GetTickCount And (LastFireTick - 1000) < GetTickCount Then 'testing
                    ' TEST_LASTFIREDms = TEST_LASTFIREDms + GetTickCount - LastFireTick
                    ' TEST_LastFiredCount = TEST_LastFiredCount + 1
                    ' RichTextBox1.Text = TEST_LASTFIREDms / TEST_LastFiredCount & "-" & TEST_LastFiredCount
                    ' End If
    
                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 CheckKeyMButton() As Long
            If GetAsyncKeyState(VK_MButton) <> 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) >= MinQuad3 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) >= MinQuad4 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(80, 30)
                .Location = New Point(20, 10)
                .Text = "START"
            End With
            AddHandler BtnEnable.Click, AddressOf BtnEnable_Click
            Controls.Add(BtnEnable)
    
            With Btnhelp
                .Size = New Point(50, 30)
                .Location = New Point(170, 10)
                .Text = "HELP"
            End With
            AddHandler Btnhelp.Click, AddressOf Btnhelp_Click
            Controls.Add(Btnhelp)
    
    
            'create the bluebox checkbox
            With ChkBluebox
                .Size = New Point(150, 40)
                .Location = New Point(20, 40)
                .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(80, 80)
                .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(80, 120)
                .Maximum = 100
                .Value = 24
            End With
            AddHandler TrackBarY.Scroll, AddressOf TrackBarY_Scroll
            Controls.Add(TrackBarY)
    
            'create the trackbar for Sensitivity
            With TrackBarSensitivity
                .Size = New Point(150, 40)
                .Location = New Point(60, 190)
                .Maximum = 10
                .Minimum = 1
                .Value = 5
            End With
            AddHandler TrackBarSensitivity.Scroll, AddressOf TrackBarSensitivity_Scroll
            Controls.Add(TrackBarSensitivity)
    
            'create the trackbar for Map Misfiring
            With TrackBarMapMisfiring
                .Size = New Point(150, 40)
                .Location = New Point(60, 260)
                .Maximum = 10
                .Minimum = 1
                .Value = 5
            End With
            AddHandler TrackBarMapMisfiring.Scroll, AddressOf TrackBarMapMisfiring_Scroll
            Controls.Add(TrackBarMapMisfiring)
    
            'create the X-Axis Label
            With LblTrackBarX
                .Size = New Point(20, 40)
                .Location = New Point(20, 82)
                .Text = "X="
            End With
            Controls.Add(LblTrackBarX)
    
            'create the Y-Axis Label
            With LblTrackBarY
                .Size = New Point(20, 40)
                .Location = New Point(20, 122)
                .Text = "Y="
            End With
            Controls.Add(LblTrackBarY)
    
    
            'create the Y-Axis Textbox
            With TxtTrackBarY
                .Size = New Point(40, 40)
                .Location = New Point(40, 120)
                .Text = "-1"
            End With
            Controls.Add(TxtTrackBarY)
            AddHandler TxtTrackBarY.TextChanged, AddressOf txttrackbary_textchanged
    
    
            'create the Y-Axis Textbox
            With TxtTrackBarX
                .Size = New Point(40, 40)
                .Location = New Point(40, 80)
                .Text = "-1"
            End With
            Controls.Add(TxtTrackBarX)
            AddHandler TxtTrackBarX.TextChanged, AddressOf txttrackbarx_textchanged
    
            'create the Sensitivity Label
            With LblSensitivity
                .Size = New Point(100, 40)
                .Location = New Point(30, 190)
                .Text = "5"
            End With
            Controls.Add(LblSensitivity)
    
            'create the MapMisfiring Label
            With LblMapMisfiring
                .Size = New Point(100, 40)
                .Location = New Point(30, 260)
                .Text = "5"
            End With
            Controls.Add(LblMapMisfiring)
    
            'create the Sensitivity Label
            With LblHowSensitive
                .Size = New Point(200, 40)
                .Location = New Point(50, 170)
                .Text = "Moderate Accuracy"
            End With
            Controls.Add(LblHowSensitive)
    
            'create the MapMisfiring Label
            With LblHowMapMisfiring
                .Size = New Point(200, 40)
                .Location = New Point(50, 240)
                .Text = "Moderate Map Misfiring"
            End With
            Controls.Add(LblHowMapMisfiring)
    
            'add timer
            AddHandler t.Tick, AddressOf Timer_tick
            t.Enabled = 1
    
            Me.Text = "Triggerbot"
    
            'mandate minimum form size
            If Me.Width < 260 Then Me.Width = 260
            If Me.Height < 350 Then Me.Height = 350
    
        End Sub
    
        Public Sub AdjustMapMisfiring(ByVal Sensitivity As Long)
            Sensitivity = TrackBarMapMisfiring.Maximum - Sensitivity + 1
            'DynamicMinSaturation = 0.25
            'DynamicMinBrightness = 0.05
            'CombinedLineFigureMulti = 1.45
    
            DynamicMinSaturation = Sensitivity * 0.05
            DynamicMinBrightness = (Sensitivity * 0.03) - 0.1
            CombinedLineFigureMulti = ((Sensitivity - 5) * -0.03) + 1.45
            ScanRangeMulti = ((Sensitivity - 5) * 0.03) + 0.2
    
            Select Case TrackBarMapMisfiring.Value
                Case < 5
                    LblHowMapMisfiring.Text = "Less Sensitive - Less Map Misfiring"
                Case 5
                    LblHowMapMisfiring.Text = "Moderate Map Misfiring"
                Case > 5
                    LblHowMapMisfiring.Text = "More Sensitive - More Map Misfiring"
            End Select
    
        End Sub
        Public Sub AdjustSensitivity(ByVal Sensitivity As Long)
            Select Case TrackBarSensitivity.Value
                Case 1
                    LblHowSensitive.Text = "Less Sensitive - More Accurate"
                    MinQuad3 = 5
                    MinQuad4 = 3
                    DistanceFromTargetBeforeFiringX = 4
                    DistanceFromTargetBeforeFiringY = 4
                Case 2
                    LblHowSensitive.Text = "Less Sensitive - More Accurate"
                    MinQuad3 = 5
                    MinQuad4 = 3
                    DistanceFromTargetBeforeFiringX = 5
                    DistanceFromTargetBeforeFiringY = 5
                Case 3
                    LblHowSensitive.Text = "Less Sensitive - More Accurate"
                    MinQuad3 = 3
                    MinQuad4 = 2
                    DistanceFromTargetBeforeFiringX = 5
                    DistanceFromTargetBeforeFiringY = 5
                Case 4
                    LblHowSensitive.Text = "Less Sensitive - More Accurate"
                    MinQuad3 = 3
                    MinQuad4 = 2
                    DistanceFromTargetBeforeFiringX = 6
                    DistanceFromTargetBeforeFiringY = 6
                Case 5
                    LblHowSensitive.Text = "Moderate Accuracy"
                    MinQuad3 = 3
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 6
                    DistanceFromTargetBeforeFiringY = 6
                Case 6
                    LblHowSensitive.Text = "More Sensitive - Less Accurate"
                    MinQuad3 = 2
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 6
                    DistanceFromTargetBeforeFiringY = 6
                Case 7
                    LblHowSensitive.Text = "More Sensitive - Less Accurate"
                    MinQuad3 = 2
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 7
                    DistanceFromTargetBeforeFiringY = 7
                Case 8
                    LblHowSensitive.Text = "More Sensitive - Less Accurate"
                    MinQuad3 = 2
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 9
                    DistanceFromTargetBeforeFiringY = 9
                Case 9
                    LblHowSensitive.Text = "More Sensitive - Less Accurate"
                    MinQuad3 = 1
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 10
                    DistanceFromTargetBeforeFiringY = 10
                Case 10
                    LblHowSensitive.Text = "More Sensitive - Less Accurate"
                    MinQuad3 = 1
                    MinQuad4 = 1
                    DistanceFromTargetBeforeFiringX = 12
                    DistanceFromTargetBeforeFiringY = 12
            End Select
    
        End Sub
        Private Sub TrackBarSensitivity_Scroll(sender As Object, e As EventArgs)
            LblSensitivity.Text = TrackBarSensitivity.Value
            AdjustSensitivity(TrackBarSensitivity.Value)
        End Sub
        Private Sub TrackBarMapMisfiring_Scroll(sender As Object, e As EventArgs)
            LblMapMisfiring.Text = TrackBarMapMisfiring.Value
            AdjustMapMisfiring(TrackBarMapMisfiring.Value)
        End Sub
        Private Sub txttrackbarx_textchanged(sender As Object, e As EventArgs)
            If Not IsNumeric(TxtTrackBarX.Text) Then Exit Sub
            AdjustRight = TxtTrackBarX.Text
            If ChkBluebox.CheckState = CheckState.Unchecked Then
                ChkBluebox.CheckState = CheckState.Checked
                Call Chkbluebox_Click(Nothing, EventArgs.Empty)
            End If
        End Sub
        Private Sub txttrackbary_textchanged(sender As Object, e As EventArgs)
            If Not IsNumeric(TxtTrackBarY.Text) Then Exit Sub
            AdjustDown = TxtTrackBarY.Text
            If ChkBluebox.CheckState = CheckState.Unchecked Then
                ChkBluebox.CheckState = CheckState.Checked
                Call Chkbluebox_Click(Nothing, EventArgs.Empty)
            End If
        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
            TxtTrackBarY.Text = 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
            TxtTrackBarX.Text = AdjustRight
        End Sub
    
        Private Sub BtnEnable_Click(sender As Object, e As EventArgs)
            Screenlock_TurnedOff = 0
            If TriggerbotActive = 0 Then
                StartTriggerbox()
            Else
                StopTriggerbox()
            End If
        End Sub
        Private Sub BtnHelp_Click(sender As Object, e As EventArgs)
            MsgBox("To start: Bind K as a second key to fire and Adjust X/Y sliders " & vbNewLine &
                   "or textboxes so that the blue box is center of crosshair." & vbNewLine & vbNewLine &
                   "Accuracy slider: Determines how close the crosshair is to the enemy before firing." & vbNewLine &
                   "If set too accurate triggerbot may sometimes not fire over enemy." & vbNewLine & vbNewLine &
                   "Map misfire slider: Determines how often triggerbot fires at red colors around map." & vbNewLine &
                   "Less map misfiring may cause the triggerbot to not fire at enemies in certain situations.")
        End Sub
        Public Sub StopTriggerbox()
            BtnEnable.Text = "START"
            TriggerbotActive = 0
        End Sub
        Public Sub StartTriggerbox()
            BtnEnable.Text = "STOP"
            TriggerbotActive = 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
    
        Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub ToolTip1_Popup(sender As Object, e As PopupEventArgs)
    
        End Sub
    End Class
    Last edited by CCaimbot; 04-24-2018 at 09:40 PM.

    Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy
  2. Thanks NoMetaOW, sKuhLight, dorpele11, ZephyOC, v3ng4nz3, kristianr, Obergruppenfuhrer J.S, emidio, rillae, Nanonoob, Pascal FEOS, thexviet, Choron-Cheats (13 members gave Thanks to CCaimbot for this useful post)
  3. #2
    jeff910906's Avatar Member
    Reputation
    1
    Join Date
    Jul 2017
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    This code is wrong
    i cant use

  4. #3
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by jeff910906 View Post
    This code is wrong
    i cant use
    The code is not wrong. You're just a nub.

    Anyways here's an updated version. It now checks for possible diagonal lines (still needs work to make sure pixels connect) and has color exclusion adjustments.


    Code:
    Imports System.Runtime.InteropServices
    
    Public Class Form1
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 1}
        Public ScanRange As Long = 17 'amount of pixels to scan
        Public Pixels(ScanRange * ScanRange + ScanRange) As Integer 'Pixels(ScanRange * ScanRange - 1) without CC
        Public LastFireTick As UInteger
        Public FireDelay As UInteger = 1400 'autofire delay
    
        <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
    
        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 10) As Long
    
    
            Dim lowestX As Long
            Dim lowestY As Long
            Dim highestX As Long
            Dim highestY As Long
    
            lowestX = 900
            lowestY = 900
    
    
    
    
            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 CombinedLineFigure As Long
    
    
            '////
    
            Dim screenwidth = CInt(Screen.PrimaryScreen.Bounds.Width) 'change primary screen to secondary etc for multiple monitors or combine
            Dim screenheight = CInt(Screen.PrimaryScreen.Bounds.Height)
            Dim AdjustDown As Integer 'optional - move scanning left/down depending on where window is - negative values allowed
            Dim AdjustRight As Integer 'optional - edit this or move your window to be over game
    
            '/////
    
    
    
    
            Dim g As Graphics
            Dim hdcDest As IntPtr = IntPtr.Zero
            Dim desktopHandleDC As IntPtr = IntPtr.Zero
            Dim desktopHandle As IntPtr
    
            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) 'only bitblt part we want
    
    
    
            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
            Dim myColorcompare As Color
    
            For X = 1 To ScanRange - 2
                YW = X * ScanRange
                For Y = 1 To ScanRange - 2
    
                    myColor = Color.FromArgb((Pixels(YW + Y)))
    
                    If myColor.GetHue < 13 Or myColor.GetHue > 340 Then ' Target by hue to bypass 1.12
    
                        If myColor.GetHue < 50 Or myColor.GetHue < 350 Then 'outside of red range
                            If myColor.GetBrightness < 0.45 Or myColor.GetSaturation < 0.45 Then 'canyon and brick textures - if not shooting enough loosen these values
                                GoTo NExtY
                            End If
                        End If
    
                        If myColor.GetBrightness > 0.35 And myColor.GetSaturation > 0.25 Then ' And myColor.R > 110 Then
    
                            Amountfound = Amountfound + 1
    
                            'DEBUG
                            '  RichTextBox1.AppendText("HUE=" & (myColor.GetHue()).ToString & "   SAT=" & myColor.GetSaturation().ToString & "   BGT=" & (myColor.GetBrightness()).ToString & "  " & myColor.R & vbNewLine)
    
                            If lowestX > X Then
                                lowestX = X
                            End If
                            If lowestY > Y Then
                                lowestY = Y
                            End If
                            If highestY <Y Then
                                highestY= Y
                            End If
                            If highestX < X Then
                                highestX = X
                            End If
    
                            'advanced comparison
    
                            For X2 = (X - 1) To (X + 1)
                                YW2 = X2 * ScanRange
                                For Y2 = (Y - 1) To (Y + 1)
    
                                    myColorcompare = Color.FromArgb((Pixels(YW2 + Y2)))
                                    If myColorcompare.GetBrightness > 0.35 And myColorcompare.GetSaturation > 0.25 And myColorcompare.R > 110 Then
    
                                        If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 340 Then
    
                                            AmountfoundCC1 = AmountfoundCC1 + 1
                                        End If
                                    End If
    
                                Next Y2
                            Next X2
    
    
                            CCAmount(AmountfoundCC1) = CCAmount(AmountfoundCC1) + 1
                            AmountfoundCC1 = 0
    
                        End If
    
    
    
    
    
                    End If
    NExtY:
            Next Y
            Next X
            'combine line figures together
            CombinedLineFigure = CCAmount(3) + CCAmount(4) + CCAmount(5) + CCAmount(6)
    
            If CombinedLineFigure >= (ScanRange * 0.3) And (CombinedLineFigure * 2) > Amountfound Then
    
                If (LastFireTick + FireDelay) <= GetTickCount Then
    
                    If (lowestX + (ScanRange * 0.3)) <= highestX And (lowestY + (ScanRange * 0.3)) <= highestY Then
                        LastFireTick = GetTickCount
    
                        Fire()
    
                    End If
                End If
            End If
    
    
        End Sub
        Public Sub Fire()
            SendKeys.Send("k")
        End Sub
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            Dim i As Long
            For i = 0 To 999 Step 1
                If Not CheckBox1.CheckState = CheckState.Checked Then Exit Sub
                Dim rect As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2), (Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2), ScanRange, ScanRange)
                rect.Inflate(2, 2)
                Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
                    Using lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.Blue, 90, True)
                        g.FillRectangle(lgb, rect)
                    End Using
                End Using
                Application.DoEvents()
    
            Next i
            CheckBox1.CheckState = CheckState.Unchecked
        End Sub
    End Class

    First version (old and not recommended):

    Code:
    Imports System.Runtime.InteropServices
    
    Public Class Form1
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 1}
        Public ScanRange As Long = 17 'amount of pixels to scan
        Public Pixels(ScanRange * ScanRange + ScanRange) As Integer 'Pixels(ScanRange * ScanRange - 1) without CC
        Public LastFireTick As UInteger
        Public FireDelay As UInteger = 1400 'autofire delay
    
        <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
    
        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 4) As Long
    
    
            Dim lowestX As Long
            Dim lowestY As Long
            Dim highestX As Long
            Dim highestY As Long
    
            lowestX = 900
            lowestY = 900
    
    
    
    
            Dim YW As Single
            Dim X As Single
            Dim Y As Single
    
            '////
    
            Dim screenwidth = CInt(Screen.PrimaryScreen.Bounds.Width) 'change primary screen to secondary etc for multiple monitors or combine
            Dim screenheight = CInt(Screen.PrimaryScreen.Bounds.Height)
            Dim AdjustDown As Integer 'optional - move scanning left/down depending on where window is - negative values allowed
            Dim AdjustRight As Integer 'optional - edit this or move your window to be over game
    
            '/////
    
    
    
    
            Dim g As Graphics
            Dim hdcDest As IntPtr = IntPtr.Zero
            Dim desktopHandleDC As IntPtr = IntPtr.Zero
            Dim desktopHandle As IntPtr
    
            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) 'only bitblt part we want
    
    
    
            Dim NewRectWidth As Integer
            Dim NewRectheight As Integer
            NewRectWidth = GH.Width - GH.Left
            NewRectheight = GH.Height - GH.Top + AdjustDown
    
    
            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
            Dim myColorcompare As Color
    
            For X = 1 To ScanRange - 2
                YW = X * ScanRange
                For Y = 1 To ScanRange - 2
    
                    myColor = Color.FromArgb((Pixels(YW + Y)))
    
                    If myColor.GetHue < 13 Or myColor.GetHue > 340 Then ' Target by hue to bypass 1.12
    
                        If myColor.GetHue > 3 And myColor.GetHue < 50 And myColor.GetBrightness < 0.4 And myColor.GetSaturation < 0.4 Then 'canyon textures
                            GoTo NExtY
                        End If
    
    
                        If myColor.GetBrightness > 0.35 And myColor.GetSaturation > 0.25 Then 'And myColor.R > 110 Then
    
                            Amountfound = Amountfound + 1
    
                            'DEBUG
                            ' RichTextBox1.AppendText("HUE=" & (myColor.GetHue()).ToString & "   SAT=" & myColor.GetSaturation().ToString & "   BGT=" & (myColor.GetBrightness()).ToString & "  " & myColor.R & vbNewLine)
    
                            If lowestX > X Then
                                lowestX = X
                            End If
                            If lowestY > Y Then
                                lowestY = Y
                            End If
                            If highestY < Y Then
                                highestY = Y
                            End If
                            If highestX < X Then
                                highestX = X
                            End If
    
                            'advanced comparison
    
    
                            myColorcompare = Color.FromArgb((Pixels(YW + Y + 1)))
                            If myColorcompare.GetBrightness > 0.35 And myColorcompare.GetSaturation > 0.25 And myColorcompare.R > 110 Then
    
                                If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 340 Then
    
                                    AmountfoundCC1 = AmountfoundCC1 + 1
                                End If
                            End If
    
                            myColorcompare = Color.FromArgb((Pixels(YW + Y - 1)))
                            If myColorcompare.GetBrightness > 0.35 And myColorcompare.GetSaturation > 0.25 And myColorcompare.R > 110 Then
    
                                If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 340 Then
    
                                    AmountfoundCC1 = AmountfoundCC1 + 1
                                End If
                            End If
    
                            myColorcompare = Color.FromArgb((Pixels((X + 1) * ScanRange) + Y))
                            If myColorcompare.GetBrightness > 0.35 And myColorcompare.GetSaturation > 0.25 And myColorcompare.R > 110 Then
    
                                If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 340 Then
    
                                    AmountfoundCC1 = AmountfoundCC1 + 1
                                End If
                            End If
    
                            myColorcompare = Color.FromArgb((Pixels((X - 1) * ScanRange) + Y))
                            If myColorcompare.GetBrightness > 0.35 And myColorcompare.GetSaturation > 0.25 And myColorcompare.R > 110 Then
    
                                If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 340 Then
    
                                    AmountfoundCC1 = AmountfoundCC1 + 1
                                End If
                            End If
    
    
                            CCAmount(AmountfoundCC1) = CCAmount(AmountfoundCC1) + 1
                            AmountfoundCC1 = 0
    
                        End If
    
    
    
    
    
                    End If
    NExtY:
            Next Y
            Next X
    
    
            If CCAmount(2) >= (ScanRange * 0.2) And CCAmount(2) > CCAmount(4) And CCAmount(2) > CCAmount(0) And CCAmount(2) > CCAmount(1) Then
    
                If (LastFireTick + FireDelay) <= GetTickCount Then
    
                    If (lowestX + (ScanRange * 0.3)) <= highestX And (lowestY + (ScanRange * 0.3)) <= highestY Then
                        LastFireTick = GetTickCount
    
                        Fire()
    
                    End If
                End If
            End If
    
    
        End Sub
        Public Sub Fire()
            SendKeys.Send("k")
        End Sub
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            Dim i As Long
            For i = 0 To 999 Step 1
                If Not CheckBox1.CheckState = CheckState.Checked Then Exit Sub
                Dim rect As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2) + AdjustRight, (Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2) + AdjustDown, ScanRange, ScanRange)
                rect.Inflate(2, 2)
                Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
                    Using lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.Blue, 90, True)
                        g.FillRectangle(lgb, rect)
                    End Using
                End Using
                Application.DoEvents()
    
            Next i
            CheckBox1.CheckState = CheckState.Unchecked
        End Sub
    End Class
    Last edited by CCaimbot; 03-14-2018 at 05:36 PM.

  5. Thanks NoMetaOW, ZephyOC (2 members gave Thanks to CCaimbot for this useful post)
  6. #4
    NoMetaOW's Avatar Member
    Reputation
    1
    Join Date
    Dec 2017
    Posts
    13
    Thanks G/R
    2/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    AdjustRight & Down, is not declared. It may be inaccessible due to its level of protection
    Any fix dude? ty

  7. #5
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by NoMetaOW View Post
    AdjustRight & Down, is not declared. It may be inaccessible due to its level of protection
    Any fix dude? ty

    Put the following code under Public Sub RunAimbot():

    Code:
     Dim AdjustDown As Integer
     Dim AdjustRight As Integer
    So it would be like this:

    Public Sub RunAimbot()
    Dim AdjustDown As Integer
    Dim AdjustRight As Integer
    This advice shouldn't apply to anyone who copied/pasted the code correctly.

  8. #6
    HydEen's Avatar Active Member

    Reputation
    37
    Join Date
    Mar 2012
    Posts
    70
    Thanks G/R
    20/7
    Trade Feedback
    2 (100%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Not to be that guy, but the way you're sending the keypress to fire (SendKeys) is generating LLKHF_INJECTED flag which is known to be detected already.
    This also wont do anything if your account already is black screen locked.

  9. Thanks katip0 (1 members gave Thanks to HydEen for this useful post)
  10. #7
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by HydEen View Post
    Not to be that guy, but the way you're sending the keypress to fire (SendKeys) is generating LLKHF_INJECTED flag which is known to be detected already.
    This also wont do anything if your account already is black screen locked.
    Removing the LLKHF_INJECTED flag might not do anything if they are looking at raw input since the input device handle is null. All they know is that some keypress is being sent virtually (without a corresponding key). As far as I know people don't get banned as long as it's one action per key. Many people have macros for their keyboard/mouse to rebind keys so they can't tell the difference. If this program were to send two virtual keypresses immediately one after the other that would be bannable. There's ways to bypass which I won't mention.

    I haven't been screen locked so idk if this would work or not.
    Last edited by CCaimbot; 03-13-2018 at 07:48 PM.

  11. #8
    Welkinds's Avatar Member
    Reputation
    1
    Join Date
    Feb 2018
    Posts
    4
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Explain how to use?

  12. #9
    hiyes's Avatar Member
    Reputation
    1
    Join Date
    Dec 2014
    Posts
    6
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    this works great! thank you for sharing with us.

    would it be possible to include a bind to toggle on/off? for the purpose of widow, it's kinda odd to have it trigger while not scoped.

  13. #10
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Welkinds View Post
    Explain how to use?
    No need to explain. Look at the code.

    As I've said before download the compiler visual studio from Microsoft, then make an Windows Forms App (.NET Framework).


    Originally Posted by hiyes View Post
    this works great! thank you for sharing with us.

    would it be possible to include a bind to toggle on/off? for the purpose of widow, it's kinda odd to have it trigger while not scoped.
    Of course. It's possible to do anything basically. There's lots of resources online. It would be best to have it triggered by having the aimbot check if the right mouse button is being held down.

    Search "detecting mouse clicks vbnet"

    I'm still trying to figure out what colors the aimbot should target and exclude. If you're zoomed out using any gun and the enemy is far away then the red outline will have a lower saturation value due to fog (more gray).
    Last edited by CCaimbot; 03-13-2018 at 07:52 PM.

  14. #11
    NoMetaOW's Avatar Member
    Reputation
    1
    Join Date
    Dec 2017
    Posts
    13
    Thanks G/R
    2/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I build the exe, everything perfect, I followed the instructions.
    I opened the program, press checkbox
    Start the overwatch client, enter in the practice range and press the button and the K
    Nothing happened, What did I do wrong?

  15. #12
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by NoMetaOW View Post
    I build the exe, everything perfect, I followed the instructions.
    I opened the program, press checkbox
    Start the overwatch client, enter in the practice range and press the button and the K
    Nothing happened, What did I do wrong?
    It could be a lot of things. Make sure your crosshair is minimal since the program will read pixels right where the crosshair is. So not too big. Next is make sure the blue box gets centered over the crosshair where you're aiming. Multiple monitors and possibly SLI might cause this (I don't have SLI so I don't know). The game needs to be ran in windowed mode. Bind "K" to attack in overwatch so you'll have both left mouse click and k to attack.

    You can check if it's reading any pixels at all by debugging it. Make a richtextbox and you can put this right below "myColor = Color.FromArgb((Pixels(YW + Y)))"

    Code:
    RichTextBox1.AppendText("HUE=" & (myColor.GetHue()).ToString & vbTab & "SAT=" & myColor.GetSaturation().ToString & vbTab & "BGT=" & (myColor.GetBrightness()).ToString & vbTab & myColor.R & vbNewLine)
    exit sub

    Anyways I've worked more on the code. Here's an updated version. Huge improvements from what I can tell. It uses different settings depending on whether or not right mouse button is pressed down.

    Code:
    Imports System.Runtime.InteropServices
    
    Public Class Form1
        'version 3
        Private Declare Function GetTickCount Lib "kernel32" () As UInt32
        Public t As New Timer With {.Interval = 1}
        Public ScanRange As Long = 17 'amount of pixels to scan
        Public Pixels(ScanRange * ScanRange + ScanRange) As Integer 'Pixels(ScanRange * ScanRange - 1) without CC
        Public LastFireTick As UInteger
        Public FireDelay As UInteger = 1400 'autofire delay
    
        <DllImport("user32.dll")>
        Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
        End Function
    
        Private Const VK_RBUTTON = &H2
        <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
    
        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 10) As Long
    
    
            Dim lowestX As Long
            Dim lowestY As Long
            Dim highestX As Long
            Dim highestY As Long
    
            lowestX = 900
            lowestY = 900
    
            Dim avgHUE As Single
            Dim avgBrightness As Single
            Dim avgsaturation 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 CombinedLineFigure As Long
    
    
            Dim screenwidth = CInt(Screen.PrimaryScreen.Bounds.Width) 'change primary screen to secondary etc for multiple monitors or combine
            Dim screenheight = CInt(Screen.PrimaryScreen.Bounds.Height)
            Dim AdjustDown As Integer 'optional - move scanning left/down depending on where window is - negative values allowed
            Dim AdjustRight As Integer 'optional - edit this or move your window to be over game
    
    
    
            Dim g As Graphics
            Dim hdcDest As IntPtr = IntPtr.Zero
            Dim desktopHandleDC As IntPtr = IntPtr.Zero
            Dim desktopHandle As IntPtr
    
            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) 'only bitblt part we want
    
    
    
            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
            Dim myColorcompare As Color
    
            AMountOfPixels = ScanRange * ScanRange
            For X = 1 To ScanRange - 2
                YW = X * ScanRange
                For Y = 1 To ScanRange - 2
    
                    myColor = Color.FromArgb((Pixels(YW + Y)))
    
    
                    avgHUE = avgHUE + myColor.GetHue
                    avgBrightness = avgBrightness + myColor.GetBrightness
                    avgsaturation = avgsaturation + myColor.GetSaturation
    
    
    
                    If myColor.GetHue < 13 Or myColor.GetHue > 346 Then
                        If myColor.GetBrightness > 0.25 And myColor.GetBrightness < 0.65 And myColor.GetSaturation > 0.25 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)
    
                            If lowestX > X Then
                                lowestX = X
                            End If
                            If lowestY > Y Then
                                lowestY = Y
                            End If
                            If highestY < Y Then
                                highestY = Y
                            End If
                            If highestX < X Then
                                highestX = X
                            End If
    
                            'advanced comparison
    
                            For X2 = (X - 1) To (X + 1)
                                YW2 = X2 * ScanRange
                                For Y2 = (Y - 1) To (Y + 1)
                                    'x2=0 and y2=0 produces additional triggered pixel
                                    myColorcompare = Color.FromArgb((Pixels(YW2 + Y2)))
                                    If myColorcompare.GetHue < 13 Or myColorcompare.GetHue > 346 Then
                                        If myColorcompare.GetBrightness > 0.25 And myColorcompare.GetBrightness < 0.65 And myColorcompare.GetSaturation > 0.25 Then ' Target by hue to bypass 1.12
                                            AmountfoundCC1 = AmountfoundCC1 + 1
                                        End If
                                    End If
    
                                Next Y2
                            Next X2
    
    
                            CCAmount(AmountfoundCC1) = CCAmount(AmountfoundCC1) + 1
                            AmountfoundCC1 = 0
    
    
    
    
    
    
    
                        End If
                    End If
    NExtY:
                Next Y
            Next X
            'combine line figures together
            If CheckRightMouse() = 0 Then
                CombinedLineFigure = CCAmount(2) + CCAmount(3) + CCAmount(4) 'settings for right mouse up
            Else
                CombinedLineFigure = CCAmount(5) + CCAmount(6) + CCAmount(7) 'settings for right mouse down
            End If
    
            ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
    
    
            If CombinedLineFigure >= (ScanRange * 0.3) And (CombinedLineFigure * 2) >= Amountfound Then
    
    
    
                If (lowestX + (ScanRange * 0.3)) <= highestX And (lowestY + (ScanRange * 0.3)) <= highestY Then
    
                    FireTriggered = 1
                    ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
                    ' RichTextBox1.AppendText("Fire" & vbNewLine)
    
                End If
    
            End If
    
    
            avgHUE = avgHUE / AMountOfPixels
            avgBrightness = avgBrightness / AMountOfPixels
            avgsaturation = avgsaturation / AMountOfPixels
    
            If avgHUE < 14 And avgBrightness < 0.3 And avgsaturation < 0.3 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.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbNewLine)
    
    
            ' Dim i2 As Long
            ' For i2 = 0 To 8
            ' RichTextBox1.AppendText(i2 & "=" & CCAmount(i2) & vbTab)
            ' Next
            ' RichTextBox1.AppendText(vbNewLine)
    
            ' End If
    
        End Sub
        Public Sub Fire()
            If (LastFireTick + FireDelay) <= GetTickCount Then
                SendKeys.Send("k")
                LastFireTick = GetTickCount
            End If
        End Sub
        Public Function CheckRightMouse() As Long
            If GetAsyncKeyState(VK_RBUTTON) <> 0 Then
                Return 1
            End If
        End Function
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
            Dim i As Long
            For i = 0 To 999 Step 1
                If Not CheckBox1.CheckState = CheckState.Checked Then Exit Sub
                Dim rect As Rectangle = New Rectangle((Screen.PrimaryScreen.Bounds.Width / 2) - (ScanRange / 2), (Screen.PrimaryScreen.Bounds.Height / 2) - (ScanRange / 2), ScanRange, ScanRange)
                rect.Inflate(2, 2)
                Using g As Graphics = Graphics.FromHwnd(IntPtr.Zero)
                    Using lgb As New Drawing2D.LinearGradientBrush(rect, Color.Blue, Color.Blue, 90, True)
                        g.FillRectangle(lgb, rect)
                    End Using
                End Using
                Application.DoEvents()
    
            Next i
            CheckBox1.CheckState = CheckState.Unchecked
        End Sub
    
    
    End Class
    Last edited by CCaimbot; 03-14-2018 at 02:53 AM.

  16. #13
    Amdrew's Avatar Member
    Reputation
    1
    Join Date
    Jun 2017
    Posts
    4
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Where does the code go?
    I've been trying to paste the code here- Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy-4qugzny-gif
    but when I go to build the program it comes up with a thousand errors and doesn't build.
    Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy-yz604ux-gif

  17. #14
    CCaimbot's Avatar Active Member
    Reputation
    30
    Join Date
    Mar 2018
    Posts
    45
    Thanks G/R
    2/26
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by Amdrew View Post
    Where does the code go?
    I've been trying to paste the code here-
    but when I go to build the program it comes up with a thousand errors and doesn't build.
    You didn't follow instructions. You selected Visual C# that's a windows form app.

    When opening a new project go to Visual Basic > Windows Classic Desktop > Windows Forms App (.NET Framework).

    If you don't have it then you didn't install it. I would go to the visual studio installer to install it.
    Last edited by CCaimbot; 03-14-2018 at 03:14 PM.

  18. #15
    zaza01's Avatar Member
    Reputation
    1
    Join Date
    Jan 2018
    Posts
    1
    Thanks G/R
    1/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    It works but he just shot one bullet then stop 4s etc etc..

Page 1 of 20 12345 ... LastLast

Similar Threads

  1. Anything working on MacOs? (no bootcamp or parallel)
    By EatenClown in forum WoW Bots Questions & Requests
    Replies: 37
    Last Post: 11-26-2018, 12:50 PM
  2. [Buying] Looking for no-HP working aimbot for Widowmaker/Hanzo.
    By xzistant in forum Overwatch Buy Sell Trade
    Replies: 5
    Last Post: 03-31-2017, 10:51 PM
  3. 4k HP @ lvl 12? how?
    By ballder in forum WoW PvP & Battlegrounds
    Replies: 9
    Last Post: 03-14-2014, 04:08 PM
  4. No HP anymore!!!
    By candymore in forum Community Chat
    Replies: 4
    Last Post: 09-02-2010, 09:43 PM
All times are GMT -5. The time now is 04:47 AM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search