Autor
|
Tema: MouseClick en VB ?¿?¿?¿? (Leído 1,418 veces)
|
Hendrix
|
Weno, mi intencion es programar un programa que al iniciarse haga un Click de raton en el centro de la pantalla....
No pido el kode (puesto que lo quiero programar yo) solo pido ayuda, que apis uso????
Salu2 y gracias
Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
mira esta es la API para posicionar el mouse: Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long esta para hacer clicks: Private 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) y estas son las constantes de los clicks: Const MOUSEEVENTF_MOVE = &H1 ' movimiento del mouse Const MOUSEEVENTF_LEFTDOWN = &H2 ' botón izquierdo presionado Const MOUSEEVENTF_LEFTUP = &H4 ' botón izquierdo soltado Const MOUSEEVENTF_RIGHTDOWN = &H8 ' botón derecho presionado Const MOUSEEVENTF_RIGHTUP = &H10 ' botón derecho soltado Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' botón central presionado Const MOUSEEVENTF_MIDDLEUP = &H40 ' botón central soltado Const MOUSEEVENTF_ABSOLUTE = &H8000 ' movimiento absoluto esta es una pequeña ayuda ya q es muy dificil: mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X, Y, 0, 0 mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X, Y, 0, 0 eso te haria q haga los clicks donde este el mouse, la primera linea es para hacer el click y la segunda es para soltar el click xq o si no te lo mantiene apretado y en X va la coordenada X o en Y va la coordenada Y o vbnullstring, y si queres q la makian lo ponga y hjaga click ahi hace usa la primer API q te di. PD: espero q te sirva avisame! Salu2
|
|
|
En línea
|
|
|
|
Hendrix
|
Muchas gracias Sancho!!!! pero esto haria el clik en la koordenada 0,0???? La coordenade de enmedio komo se hace???? Weno, Muchas gracias.... Salu2 Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
|
Hendrix
|
Slasher, esto me da las koordenadas del centro de la pantalla no??? Ahora komo lo "implanto" al kode de Sancho??? Asi: mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, MidScreenX , MidScreenY mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, MidScreenX , MidScreenY Sta bien asi???? Weno, Gracias por kontestar... Salu2 Hendrix
|
|
|
En línea
|
"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
|
|
|
.Slasher-K.
Desconectado
Mensajes: 79
|
Otra opción. Sub MidScreenClick() Call SendMessage(WindowFromPoint(MidScreenX, MidScreenY), WM_LBUTTONDOWN, ByVal 0&, ByVal 0&) Call SendMessage(WindowFromPoint(MidScreenX, MidScreenY), WM_LBUTTONUP, ByVal 0&, ByVal 0&) End Sub
|
|
|
En línea
|
|
|
|
|
|