[VB.NET]Code source Color Aimbot.

[Nayres]

Hello !
Voici un code source pour des jeux fps tel qu'S4 League ou CS et d'autre, qui fonctionne en PixelSearch, soit en recherchant des couleurs.
Creez un nouveau project Application windows form et mettez 2 boutton et 2 timer.

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
            MsgBox("Aucune cible avec cette couleur.", , "Aimbot")
        End Try
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
            MsgBox("Aucune cible avec cette couleur.", , "Aimbot")
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
        Timer2.Start()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Stop()
        Timer2.Stop()
        Timer1.Interval = 1
        Timer2.Interval = 1
        Timer1.Enabled = False
        Timer2.Enabled = False
        Button1.Text = "on"
        Button2.Text = "off"
    End Sub

End Class

Si vous souhaitez ne pas avoir de Msgbox qui vous avertis qu'il n'y a pas un pixel avec la couleur voulue supprimez :

 MsgBox("Aucune cible avec cette couleur.", , "Aimbot")

Bon voilà c'est tout ;)

 

[sonic51200]

Merci ;)

 

[Jaws031]

Merci, pourrais-tu expliquer un peu ton code ?

 

[Evaelis]

J'ai la flemme de commenter le code mais donne les passages qui te posent problème

 

[MarkoX]

Merci pour ton code, ça peut grandement aider :)

 

[Sny[P]eur]

Simpa Merci du partage :)

 

[Nayres]

Merci, pourrais-tu expliquer un peu ton code ?

Le fonctions sont assez basics, j'en voyais pas l'utilité.

 

[MarkoX]

Ton aimbot color fonctionne à toutes les mises à jour de counter strike ? Même pas besoin de mettre à jour des offsets donc ?

EDIT: Je l'ai testé sur Counter-strike: source, il trouve aucun pixel de la bonne couleur, enfin bref ça fonctionne pas.

 

[Nayres]

Tu dois trouver la valeur exact de la couleur que tu veux chercher ...

 

[MarkoX]

Et tu peux nous aider pour ça ? Car je sais pas du tout comment faire.

 

[Nayres]

Utilise autoit.

 

[narutos4]

Quel est la couleur pour S4 League ?

 

[¤Super¤]

merci Akius !

 

[Djockers]

Merci Akius <3