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

User Tag List

Page 5 of 20 FirstFirst 123456789 ... LastLast
Results 61 to 75 of 288
  1. #61
    Arcan1's Avatar Member
    Reputation
    1
    Join Date
    Mar 2018
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Works only in practice mode for me, can someone tell me why ?

    Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy
  2. #62
    ExoticNx's Avatar Member CoreCoins Purchaser
    Reputation
    1
    Join Date
    Mar 2018
    Posts
    7
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    You are screenlocked

  3. #63
    dawaffle21's Avatar Member
    Reputation
    1
    Join Date
    Aug 2017
    Posts
    20
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    F for respects

  4. #64
    davis9829's Avatar Member
    Reputation
    5
    Join Date
    Jul 2016
    Posts
    16
    Thanks G/R
    2/2
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    nvmd got it working
    Attached Thumbnails Attached Thumbnails Working CC Triggerbot - no HP - 1.12 bypass - 50%+ accuracy-capture-gif  
    Last edited by davis9829; 04-01-2018 at 12:37 AM.

  5. #65
    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)
    I've been busy the past week so I didn't get time to update this some more until today.

    Build 11 release:

    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.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
            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

  6. Thanks panguinaldo (1 members gave Thanks to CCaimbot for this useful post)
  7. #66
    panguinaldo's Avatar Member
    Reputation
    1
    Join Date
    Aug 2016
    Posts
    1
    Thanks G/R
    1/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by CCaimbot View Post
    I've been busy the past week so I didn't get time to update this some more until today.

    Build 11 release:

    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.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
            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
    Thanks for the update.
    It has been working, even though I have the screen lock. I realize that things still do not work as well as the trigger that sometimes does not fire, even though I move the mouse over the target. What reticle do you recommend for overwatch?

  8. #67
    firepatriot's Avatar Member
    Reputation
    1
    Join Date
    Apr 2018
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Works okay but I had MinQuadrantRequired set to 3 on the old version but I cannot find MinQuadrantRequired on the new version. Is there any other settings I can change to make it more responsive?

  9. #68
    dawaffle21's Avatar Member
    Reputation
    1
    Join Date
    Aug 2017
    Posts
    20
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Originally Posted by CCaimbot View Post
    I've been busy the past week so I didn't get time to update this some more until today.

    Build 11 release:

    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.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
            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
    What are the changes from v10?

  10. #69
    magisti's Avatar Member
    Reputation
    1
    Join Date
    Nov 2013
    Posts
    6
    Thanks G/R
    2/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    how to increase shooting speed, for example for a soldier?

  11. #70
    hb311's Avatar Member
    Reputation
    1
    Join Date
    Apr 2018
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    edit: nvm i got it.

    looking forward to see how good you make this. seems to only really be of benefit on some maps.
    Last edited by hb311; 04-03-2018 at 01:52 PM.

  12. #71
    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 panguinaldo View Post
    What reticle do you recommend for overwatch?
    Something minimal. I use DOT type, thickness 2, opacity 100, outline opacity 100, dot size 2, color white, and dot opacity 100.

    Originally Posted by firepatriot View Post
    Works okay but I had MinQuadrantRequired set to 3 on the old version but I cannot find MinQuadrantRequired on the new version. Is there any other settings I can change to make it more responsive?
    To change the variable now you'll need to go to Public Function QuadrantCheck3() and change the "3" in "ChartQuad(i) >= 3" to the number you want.

    Originally Posted by magisti View Post
    how to increase shooting speed, for example for a soldier?
    Change "Public FireDelayRightMouseUp As UInteger = 510" to "Public FireDelayRightMouseUp As UInteger = 100".

    Originally Posted by dawaffle21 View Post
    What are the changes from v10?
    More accuracy, faster firing, and slightly more likely to fire at random stuff in map.


    Build 12 Release:

    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.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
            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
    Last edited by CCaimbot; 04-03-2018 at 08:53 PM.

  13. #72
    surfmatic's Avatar Member
    Reputation
    1
    Join Date
    Apr 2018
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Hey CC awesome work, I really appreciate you effort. Couple questions...

    - Do you have this on a git repo?

    - Are you familiar with what function to use in order to move the mouse pointer? I'm not familiar with C# and I'm failing to find a method of moving the mouse pointer via any C# means, for example:

    Cursor.Position = new Point(Cursor.Position.X - 50, Cursor.Position.Y - 50);

  14. #73
    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 surfmatic View Post
    Hey CC awesome work, I really appreciate you effort. Couple questions...

    - Do you have this on a git repo?
    No.

    Originally Posted by surfmatic View Post
    - Are you familiar with what function to use in order to move the mouse pointer? I'm not familiar with C# and I'm failing to find a method of moving the mouse pointer via any C# means, for example:

    Cursor.Position = new Point(Cursor.Position.X - 50, Cursor.Position.Y - 50);
    I'm very familiar. You should be glad that you've failed. Overwatch gets mouse info from raw input (through something like WM_INPUT) which is directly from the device. So moving the mouse virtually will be detected and will get you screenlocked. When you send a virtual mouse movement the device handle in WM_INPUT/RawInputHeader is null instead of it being the device handle of the mouse.
    Last edited by CCaimbot; 04-04-2018 at 03:49 AM.

  15. Thanks SULFURWOW (1 members gave Thanks to CCaimbot for this useful post)
  16. #74
    surfmatic's Avatar Member
    Reputation
    1
    Join Date
    Apr 2018
    Posts
    2
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    If you get around to making a repo, I’m sure people like myself would love to contribute.

    Are you implying that doing some quick math to transform this into a “flick bot”, and moving the mouse cursor are impossible without detection?

    If so, by what means do other private flick bots work?

  17. #75
    mickae's Avatar Member
    Reputation
    1
    Join Date
    Apr 2018
    Posts
    1
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    I cant get this to work every time i copy and paste the code in it says there is 2000 errors can i get some help?

Page 5 of 20 FirstFirst 123456789 ... 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 02:05 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