Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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.

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

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 (vb) [Seleccionar]

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