hola estoy tratando de mover el cursor de un pc de forma remota por medio de winsock, lo hago de la siguiente manera..
de esta forma envio las coordenadas al servidor por winsock
'************************************************* ***
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim Pt As POINTAPI
'************************************************* ***
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'obtiene la posicion actual de mouse
GetCursorPos Pt
Me.CurrentX = 0
Me.CurrentY = 0
SetCapture Me.hwnd
Dim data As String
data = Str$(Pt.X) + Str$(Pt.Y)
'X = Mid(data, 2, 3)
'Y = Mid(data, 6, 6)
Me.Cls
Me.Print data
On Local Error Resume Next
Form1.rata_rec.SendData data
End Sub
aqui recibo las coordenadas de cliente..
y muevo el cursor.
Private Sub rata_rec_DataArrival(ByVal bytesTotal As Long)
'recibo las coordenadas del mouse
Dim coor As String
Dim Rec As RECT
rata_rec.GetData coor
Dim data As String
'data = Str$(Pt.X) + Str$(Pt.Y)
'X = Mid(coor, 2, 3)
'Y = Mid(coor, 6, 6)
X = Left$(coor, 4)
Y = Right$(coor, 4)
' al parecer el eje y es el que esta estatico
Me.Cls
Me.Print X
Me.Print Y
On Local Error Resume Next
SetCursorPos Rec.Right - X, Rec.Top + Y
End Sub
el problema es que no puedo mover el cursor por ambos ejes.. osea por ele eje x e y, para producirt un movimiento mas fluido y constante, lo que sucede es que se keda en un solo eje y se mueve en una sola direccion...
salu2
