Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: c0rrupt_gamer en 12 Diciembre 2005, 22:54 pm



Título: screensaver
Publicado por: c0rrupt_gamer en 12 Diciembre 2005, 22:54 pm
hola a todos, hacia mucho k no me pasaba por aki!
weno, al grano, hace mucho k no cojo el visual y hoy me he planteado volver a cogerlo, y he pensado en como hacer un screensaver, no uno k lo pongas con el de windows sino uno indepensiente, y la duda k se me plantea es la siguiente:

Lo k he hecho es coger las coordenadas delo raton con GetCursorPos, eso me da la posicion del raton en las coordenadas X e Y, pero ¿solo dentro de la pantalla de mi programa o sirve en general?, es k kreo k el problema esta ahi

Komo podría hacerlo para coger la posicion fuera del formulario?


Título: Re: screensaver
Publicado por: sch3m4 en 12 Diciembre 2005, 23:58 pm
eso te da las coordenadas del cursor en toda la pantalla, mira la ayuda de la MSDN  ;)


Título: Re: screensaver
Publicado por: Sancho.Mazorka en 13 Diciembre 2005, 05:55 am
Código:
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Type POINTAPI
        X As Long
        Y As Long
End Type

Private Sub Timer1_Timer()
Dim MousePoint As POINTAPI
GetCursorPos MousePoint
Text1.Text = MousePoint.X
Text2.Text = MousePoint.Y
End Sub

eso es para que te de las coordenadas de toda la pantalla y no solo del form vos debes tener algo qeu lo delimita al form o is queres eso y yo te lo estoy dando mal decimelo que te lo pongo bien a codigo. Salu2


Sancho Mazorka     :P


Título: Re: screensaver
Publicado por: c0rrupt_gamer en 13 Diciembre 2005, 17:24 pm
muchas gracias a ambos, al final resulta k el problema estaba en uno de los timers k utilizo, se me habia olvidado vaciar el valor de una variable, pero ya esta arreglado.


Muchas gracias!

Saludos;D