Autor
|
Tema: GetPixel! (Leído 3,348 veces)
|
andresxdddd
Desconectado
Mensajes: 7
|
GetPixel! hola que tal despues de años de leer algunas cosas he decido registrarme
pues tengo un par de dudas que si no es mucha molestia me gustaria que me aclararan . Estoy creando un proyecto en VB 6 . que tenga la capacidad de encontrar un pixel (color) que yo le indique. por ejemplo supongamos que yo edite una imagen y le ponga un pequeño punto rosado. quiero que mi programa sea capas de buscarlo ( con el mouse) y hacer lo que yo le programe que haga por ejemplo que le de click que pulse teclas etc.
el gran problema es que soy nuevo y pues yo he leido aqui muchos tutoriales y videos en youtube libros pero no logro unir esos conocimientos a mi proyecto , he googleado y nada me sale eso de getpixel pero todo en ingles lo he leido hasta para autoit trantado de pasarlo a vb pero nada bueno si alguien me da una idea seria de mucha importancia para mi Gracias
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
videos en youtube libros pero no logro unir esos conocimientos a mi proyecto , he googleado
us ael API GetPixel un ejemplo: Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long Const FLOODFILLBORDER = 0 ' Fill until crColor& color encountered. Const FLOODFILLSURFACE = 1 ' Fill surface until crColor& color not encountered. Const crNewColor = &HFFFF80 Dim mBrush As Long Private Sub Form_Load() 'KPD-Team 1999 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Create a solid brush mBrush = CreateSolidBrush(crNewColor) 'Select the brush into the PictureBox' device context SelectObject Picture1.hdc, mBrush 'API uses pixels Picture1.ScaleMode = vbPixels End Sub Private Sub Form_Unload(Cancel As Integer) 'Delete our new brush DeleteObject mBrush End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 'Floodfill... ExtFloodFill Picture1.hdc, x, y, GetPixel(Picture1.hdc, x, y), FLOODFILLSURFACE End Sub
Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Speeding
Desconectado
Mensajes: 16
|
Aca te dejo un Color Aimbot Esta basado en el codigo de Max Power de Unknown Cheats y modificado para lo que yo necesitaba. Espero te sirva DescargarEso si, es un desastre en cuanto a los recursos que consume.
|
|
« Última modificación: 16 Enero 2011, 21:07 pm por Speeding »
|
En línea
|
a
|
|
|
andresxdddd
Desconectado
Mensajes: 7
|
Aca te dejo un Color Aimbot Esta basado en el codigo de Max Power de Unknown Cheats y modificado para lo que yo necesitaba. Espero te sirva DescargarEso si, es un desastre en cuanto a los recursos que consume. Amigo revisa el pm que te envie porfavor Gracias amigo Backzerox me sirvio mucho
|
|
|
En línea
|
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Aca te dejo un Color Aimbot Esta basado en el codigo de Max Power de Unknown Cheats y modificado para lo que yo necesitaba. Eso si, es un desastre en cuanto a los recursos que consume.
Nesesitas hacer un buffer del hDC y supongo que solo pinta, bueno antes de hacer un SetPixel debes pintar en un hDC en memoria y despues copia o pegar este hDC de nueva cuenta en el Dc de la ventana, con eso se baja el consumo de recursos un poco por no decir mucho o todo. Dulces Lunas!¡.
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Mejor que esto que me dio Lea no conozco, es el metodo mas rapido que vi... http://foro.elhacker.net/empty-t312603.0.htmlGRACIAS POR LEER!!!
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!" "La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
BlackZeroX
Wiki
Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Eso no funciona con el Descriptor del escritorio... es decir si ves bien al final se usa BitBlt para copiar el DC sobre el escritorio que se refresca a cada instante por X cosa, es decir, es lo mismo. Dulces Lunas!¡.
|
|
« Última modificación: 18 Enero 2011, 20:37 pm por BlackZeroX▓▓▒▒░░ »
|
En línea
|
The Dark Shadow is my passion.
|
|
|
|
|