Proxenon Posted April 24, 2008 Report Posted April 24, 2008 Vom avea nevoie de 3 API-uri :Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As LongPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As LongPrivate Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As LongCu functia SetCursorPos vom seta pozitia cursorului . Functia are 2 argumente : x si y , adica locatia in care sa setam curorul .Freeze mouse : setam pozitia cursorului in acelasi loc , cu ajutorul unui timer ( interval 1 ) :Private Sub Timer1_Timer()x = SetCursorPos(300, 500) ' La intamplare 300 , 500End SubCrazy Mouse : Setam pozitia mouse-ului aleator pe ecran cu ajutorul unui timer ( interval 10 de ex ) :Private Sub Timer1_Timer()x = SetCursorPos(Rnd * 1000, Rnd * 1000) ' Setam pozitia cursorului ca un nr aleator intre 0 si 1000 .End SubPentru a opri Freeze mouse si crazy mouse , oprim timerul .Hide Mouse - Vom folosi al doilea API : ShowCursor , care are nevoie decat de un argument : bShow . Daca bShow e 1 , cursorul va fi vizibil , daca e 0 va fi ascuns .Private Sub Command1_Click()ShowCursor 0 ' Ascundem cursorulEnd SubPentru a afisa din nou cursorul : ShowCursor 1Pentru Swap Mouse Button vom foloi al 3-lea API : SwapMouseButton , care la fel ca ShowCursor , are un singur argument : bSwap , care daca va fi 1 , butoanele mouseului vor fi inversate si daca va fi 0 se va reveni la normal .Private Sub Command1_Click()SwapMouseButton 1 ' Pentru inversareEnd SubPrivate Sub Command2_Click()SwapMouseButton 0 ' Pentru revenire la normalEnd Sub Quote