Visual Basic 6 - controllo mouse da remoto

dipende dalle dimensioni
ricevere un file?
una cazzata.
apri il file e lo "lineinputti" o lo "getti" in una stringa (meglio se piccoli pezzi)
e la invii all'altra parte

Altre funz

dove si trova il mouse

in un modulo

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
Type POINTAPI
    x As Long
    y As Long
End Type
Sub PosizioneMouse()
    Dim Posizione As POINTAPI
    Dim PuntoX As Integer
    Dim PuntoY As Integer
        GetCursorPos Posizione
        PuntoX = Posizione.x
        PuntoY = Posizione.y
Label1.Caption = PuntoX & "," & PuntoY
End Sub

Crei una label e nel form load

Call PosizioneMouse

Scambiare le funzioni dei tasti

Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Function InvertiPulsanti(bSwap As Boolean)
      SwapMouseButton bSwap
End Function

Richiamare la funzione InvertiPulsanti, utilizzando l’appropriato argomento:
InvertiPulsanti(True) : per invertire le funzioni dei pulsanti.
InvertiPulsanti(False) : per ripristinarle la configurazione originale.

Limitare lo spostamento del mouse

Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long 

Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Sub BloccaMouse()
Dim Perimetro As RECT 
     GetWindowRect Form1.hwnd, 
     ClipCursor Perimetro
End Sub

 Nel form load

BloccaMouse

...Quindi?

Lo scopo originale del post era quello di sapere funzioni per il mouse e glielò postateNiente in contrario