herkese merhabalar. benim bir sorum olcaktı
ben Mouse ile masaustundeki herhangi birşeyi başka bir yere taşımak istiyorum. yani mesela Mouse ta bir programa sol tıklayıp başka yere surukleyip bırakmayı program yapsın istiyorum
bulduğum kodlar bunlar lutfen yardım edin


PrivateDeclareFunction GetAsyncKeyState Lib"user32" (ByVal vkey AsInteger) AsInteger

PublicDeclareSub mouse_event Lib"User32" (ByVal dwflags AsInteger, ByVal dx AsInteger, ByVal dy AsInteger, ByVal cbuttons AsInteger, ByVal dwextrainfo AsInteger)

PrivateConst mouseclickup = 4

PrivateConst mouseclickdown = 2



If GetAsyncKeyState(vkey:=32) Then

Me.Cursor = NewCursor(Cursor.Current.Handle)


Cursor.Position = NewPoint(144, 179)

mouse_event(mouseclickdown, 0, 0, 0, 0)

Cursor.Position = NewPoint(888, 288)

mouse_event(mouseclickup, 0, 0, 0, 0)

End If
__________________