Aimbot Source Code

[GERMANY132816]

Hey,
I have a aimbot source code found.
It is a Visual Basic source-Code.
I do not know if it works and myself have no time to test it.

Enjoy!!

[Thanks]




Credits: GERMANY132816 / / You

' MODULE...
' =========
Option Explicit

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Declare Function GetCursorPos Lib "user32" (lpPoint As Point) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Public Const MOUSEEVENTF_LEFTDOWN = &H2

Public Type Point
X As Long
Y As Long
End Type:


' FORM...
' =======

Option Explicit

Dim ProcessHandle As Long, ProcessDC As Long

Private Sub Form_Activate()
ProcessHandle = FindWindow(vbNullString, "Window Name Here")
ProcessDC = GetDC(0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call ReleaseDC(0, ProcessDC)
End Sub

Private Sub Timer1_Timer()
On Error Resume Next

Dim X As Long, Y As Long, PixelColor As Long
Dim CursorPosition As Point

If (ProcessHandle <> GetForegroundWindow()) Then
Exit Sub
End If

Call GetCursorPos(CursorPosition)

For X = CursorPosition.X - 20 To CursorPosition.X + 20
For Y = CursorPosition.Y - 20 To CursorPosition.Y + 20
PixelColor = GetPixel(ProcessDC, X, Y)

'Replace RGB value for your specified color
If (PixelColor = RGB(255, 255, 255)) Then
Call mouse_event(MOUSEEVENTF_LEFTDOWN, CursorPosition.X, CursorPosition.Y, 0, 0)
Exit Sub
End If
Next Y
Next X
End Sub

Or Download

[GERMANY132816]

writes comments!

[mamo007]

u should put 2 virus scans .. And how it work on VB !!

[GERMANY132816]

u should put 2 virus scans .. And how it work on VB !!

this is just a text file.
Copy the code in Form1

[mamo007]

its the rules but idk im not the mentions ...

[6ixth]

Credits?

[CrazyFrost]

noobs attack

[Biesi]

Bet it's stupid/fake code and .txt files don't need vs

[288930]

I don't think this will work :L

[remzkee0903]

can u give me some source codes for CFPH?

LOL.. Can you pls explain your post?> "https://www.mpgh.net/forum/619-crossf...ml#post8021803"

BTW, Begging for sourcecode are prohibited!

[GERMANY132816]

Bet it's stupid/fake code and .txt files don't need vs

The code is in the text file!!! xD

[Legendary Coder]

The code is in the text file!!! xD

What is this code that you wrote in the thread?
lollllllllllllll VB codes what we will do with this

---------- Post added at 01:45 PM ---------- Previous post was at 01:44 PM ----------

I know that you need thanks for this you want put code in attachment... Old way

[GERMANY132816]

What is this code that you wrote in the thread?
lollllllllllllll VB codes what we will do with this

---------- Post added at 01:45 PM ---------- Previous post was at 01:44 PM ----------

I know that you need thanks for this you want put code in attachment... Old way

1. source code found.

2. you can download the code without thanks

[Legendary Coder]

1. source code found.

2. you can download the code without thanks

No noob,you know alot members in mpgh don't care about reading and only click on download and thanks button.
If you don't care about thanks delete the fcking attachments and post the codes here :@ :@ :@
Fuck noobs

[GERMANY132816]

https://www.mpgh.net/forum/242-crossf...urce-code.html

are you blind?