Freeze,Crazy,Hide,Swap Mouse VB6

[Nytro]

Vom avea nevoie de 3 API-uri :

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long

Cu 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 , 500

End Sub

Crazy 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 Sub

Pentru 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 cursorul

End Sub

Pentru a afisa din nou cursorul : ShowCursor 1

Pentru 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 inversare

End Sub

Private Sub Command2_Click()

SwapMouseButton 0 ' Pentru revenire la normal

End Sub

Sper sa va ajute cu ceva

[ÐÒ&]

ar fi mai de efect grafic daca ai retine pozitia curenta a mouseului cu getcursorpos si sa o retii intr un POINTAPI.ar fi mai frumos.parerea mea.

Declare Function GetCursorPos Lib "user32" ( _
                 lpPoint As POINTAPI) As Long
Private Type POINTAPI
    X As Long
    Y As Long
End Type

e o structura cu urmatoarele valori inrregi x si y.

Dim mouse as pointapi

print mouse.x

print mouse.y