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

[Zenser]

No a trigger bot it just always shoots

[req10]

fullscreen windowed useable too ?

[paradoxe1978]

Version 10
Is a triggerbot
Windowded And bind key K To primaire fire

 
Imports System.Runtime.InteropServices


Public Class Form1
    'version 10
    'recommended to use with Mccree

    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

    '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 = 13 ' adjust down to decrease targeting orange
    Public RedVioletRange As Single = 345 ' adjust up to decrease targeting violet
    Public MinBrightness As Single = 0.35 'minimum brightness of pixel range (0-1.00)
    Public MaxBrightness As Single = 0.8 '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
    'x/y might be inverted
    Public DistanceFromTargetBeforeFiringX As Long = 7 ' maximum distance from target in x to fire
    Public DistanceFromTargetBeforeFiringY As Long = 7 ' maximum distance from target in y to fire
    Public MinQuadrantRequired As Long = 2 ' minimum amount of pixels required in each quadrant

    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.


    <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 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 Then ' Target by hue to bypass 1.12
                                        AmountfoundCC1 = AmountfoundCC1 + 1
                                    End If
                                End If

                            Next Y2
                        Next X2




                        '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



                                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 'beta test
                                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 * 10
        ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)


        If CombinedLineFigure >= (ScanRange * 0.15) And (CombinedLineFigure * 1.33) >= 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 + 5000 '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 QuadrantCheck() = 0 Then
            FireTriggered = 0 ' don't fire 
        End If


        If FireTriggered = 1 Then
            Fire()
        End If




        'debug and testing
        '  If LastFireTick = GetTickCount Then

        ' RichTextBox1.AppendText("CombinedLineFigure=" & CombinedLineFigure & vbTab & "Amountfound=" & Amountfound & vbNewLine)
        ' RichTextBox1.Text = ("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness)
        '  avgHueFound = avgHueFound Mod 360
        '   RichTextBox1.AppendText("avgHUE=" & avgHUE & vbTab & "avgSAT=" & avgsaturation & vbTab & "avgBGT=" & avgBrightness & vbTab & "avgHUEfound=" & avgHueFound & vbTab & "avgSATfound=" & avgsaturationFound & vbTab & "avgBGTfound=" & avgBrightnessFound & vbNewLine)

        '   Dim i2 As Long
        '  For i2 = 0 To 30
        '  RichTextBox1.AppendText(CCAmount(i2) & vbTab)
        '  Next
        'RichTextBox1.AppendText(vbNewLine)
        'RichTextBox1.AppendText(Math****und((TargetX / TargetAmountFound) - ScanRange / 2) & " " & (Math****und((TargetY / TargetAmountFound)) - ScanRange / 2) & vbNewLine)


        '  RichTextBox1.AppendText(ChartQuad(1) & " " & ChartQuad(2) & " " & ChartQuad(3) & " " & ChartQuad(4) & vbNewLine)



        'moving mouse settings
        'aimbot target X = Math****und((screenwidth / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight - not tested
        'aimbot target Y = Math****und((screenheight / 2) + (TargetY / TargetAmountFound) - ScanRange / 2) + AdjustDown- not tested
        'Y axis might be reversed - (Y * -1) to fix


        'RichTextBox1.AppendText(Math****und((screenheight / 2) + (TargetX / TargetAmountFound) - ScanRange / 2) + AdjustRight & vbNewLine)


        'End If
        Array.Clear(ChartQuad, 0, ChartQuad.Length) 'move to QuadrantCheck function later
    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 QuadrantCheck() As Long
        Dim i As Long
        Dim QuadNumber As Long

        For i = 1 To 4
            If ChartQuad(i) >= MinQuadrantRequired Then
                QuadNumber = QuadNumber + 1
            End If
        Next i
        ' Array.Clear(ChartQuad, 0, ChartQuad.Length)
        If QuadNumber < 3 Then
            Return 0
        End If
        Return 1
    End Function
    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs)

    End Sub
End Class

[Usernaemmm]

Is this completely undetectable so far?
How obvious does this look to others?

[doctoraaron]

I found a better hack and updated it has Aimbot/AimAssist + AnaBOT (Auto Ana Heal + Aim Assist) + WidowBOT and more things, just need to configure it and it works flawless
Link: bit(.)ly/2AIqNMb

suspicious

[revivedynera]

can you make video on how to do it please?

[req10]

Can u answer my question can i use fullscreen windowed too ?

- - - Updated - - -

I mean bordorless fullscreen

[Usernaemmm]

It works for me @req10, I had problems when I had a larger crosshair so be sure you shrink yours down (I Use a 2 size dot).

[Usernaemmm]

Everything has worked surprisingly well so far. I have found some unmentioned uses so far such as
Sleep Dart
Hook
Pharah's Primary
Soldier's Rockets
Dva Missiles
Genji's Shurikens
Mei's Icicles (Very Cool)
Torb's Primary is alright
Brigitte's Whip Shot

If it could be added, waiting until optimal range before using Hook and Whip shot, and adding compatibility with automatic projectile/ beam characters (Orisa, Soldier, Sym, Zarya) in a future update. Looking forward to more.

[Faytalic]

is this DETECTED? i know u can be banned if caught but im asking if you are NOT caught can they detect uit?

[_Stephen]

What am I supposed to do? I cant seem to move blue box.

[paradoxe1978]

Is safe

If you want the triggerbot to be more precise but less likely to fire try lowering these settings:

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

How the triggerbot works is by taking all the coordinates of pixels it detects and then averages them out to make a point. If this point is within 6 pixels x/y of your crosshair then it'll fire. So by making it smaller it'll shoot only when it's closer to this point.

And increasing this setting:

Public MinQuadrantRequired As Long = 3 ' minimum amount of pixels required in each quadrant

Why it delays could be due to a number of things. First try swinging your cursor a little bit on the enemy instead of standing still. That way it gets different values and is more likely to fire. Then you can try adjusting the settings. You can:

1. Decrease MinQuadrantRequired
2. Change "CombinedLineFigure * 1.33" to "CombinedLineFigure * 1.5" (or higher number)
3. Change "CombinedLineFigure >= (ScanRange * 0.15)" to "CombinedLineFigure >= (ScanRange * 0.10)" (or lower number)
4. Increase DistanceFromTargetBeforeFiringX and DistanceFromTargetBeforeFiringY (this will cause it to shoot away from enemy more often though)
5. Adjust hue it targets by changing RedOrangeRange and RedVioletRange
6. Decrease MinBrightness, MinSaturation, and MinRed. (for darker areas)
7. Increase MaxBrightness
8. Make crosshair more minimal.
9. Try to target one enemy by itself at a time. If there's two or more enemies then the triggerbot might only fire at the midpoint between them.
10. Avoid aiming at certain areas as such Junkertown dirt road and canyons.

[_Stephen]

How am i supposed to move the bluebox over trigger? I can seem to move the blue box.

[helvild]

thx a lot for release! Trying it out right now, keep up the updates <3

[jackinthecox]

I can't get this to work at all, it doesn't react to any enemies