[Source] Clicks

Iniciado por 3k1n0x, 22 Julio 2007, 06:38 AM

0 Miembros y 1 Visitante están viendo este tema.

3k1n0x

hola, con este ejemplo se clickea usando un boton y un checkbox

Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Private Declare Function PostMessageBynum Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Private Sub Command2_Click()
l = PostMessageBynum(Check1.hwnd, WM_LBUTTONDOWN, 0&, PosXY)
l = PostMessageBynum(Check1.hwnd, WM_LBUTTONUP, 0&, PosXY)
End Sub


pero pareciera q clickear fuera de la aplicacion de vb es facil pero no se como, alguna idea para clickear fuera de la aplicacion? osea en cualquier lugar salu2s
T3fL0n -> 3k1n0x

R41N-W4R3



  No entiendo la pregunta.... puedes explicarte algo mas???
  Saludos

3k1n0x

clikear en cualquier lugar q no tenga q ver con la aplicacion es decir no en un boton ni checkbox sino en cualquier lugar de la pc en dond este el puntero
T3fL0n -> 3k1n0x

R41N-W4R3



  Lo único que se me ocurre para interactuar con el resto del sistema hasta ese punto son los hook (ganchos). Busca info sobre hook en visual basic que algo hay, aunque no puedo darte mucha mas informacion pq no los manejo. Mira en la pagina de guille que es muy completa, o pregunta por hook directamente aki en el foro.

  Saludos.

~~

Usa las apis SetCursorPos y mouse_event  :P