Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: hunter18 en 23 Agosto 2010, 00:22 am

Título: Colocar puntero en una zona especifica
Publicado por: hunter18 en 23 Agosto 2010, 00:22 am

Tengo un codigo en la cual le coloco las coordenas x e y pero toma toda la pantalla para posicionar el puntero, como podria hacer para que tome las coordenadas pero del formulario y no de toda la pantalla.

Código:

Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
SetCursorPos 100, 150
End Sub

Título: Re: Colocar puntero en una zona especifica
Publicado por: _katze_ en 23 Agosto 2010, 04:24 am

Código:

 
Option Explicit
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetCursorPos 100, 150

End Sub

en este evento del mouse proba t lo coloca en esas cordenadas ! creo q entendi bien :-X

Título: Re: Colocar puntero en una zona especifica
Publicado por: hunter18 en 23 Agosto 2010, 04:42 am

Si hago lo que dices no voy a poder mover el mouse siempre quedata ahi.

Título: Re: Colocar puntero en una zona especifica
Publicado por: xkiz ™ en 23 Agosto 2010, 04:49 am

Código

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
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 Sub Command1_Click()
Dim rc As RECT
GetWindowRect Me.hwnd, rc
SetCursorPos rc.Left + 100, rc.Top + 100
End Sub

Título: Re: Colocar puntero en una zona especifica
Publicado por: hunter18 en 23 Agosto 2010, 06:21 am

gracias por los minutos, saludos