VB 6.0 - completely freeze mouse in xp/vista

[gaby90boy]

ok well first of add a module

and in the module add this code

Public Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

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

then go to the main form and add a timer interval 1

double click it and add this code

Dim ClipCur As RECT

ClipCur.Top = 200

ClipCur.Left = 200

ClipCur.Bottom = 200

ClipCur.Right = 200

Call ClipCursor(ClipCur)

now this code will freeze your mouse in any windows o/s i have tried includeing xp and vista so have fun

-DeadRabit-

[Tot_zeu]

Mult mai bun Apiul Blockinput...si mai scurt decat sa declari toate variabilele de tipul Rect

[Nytro]

ca sa opresti asta inchizi procesu si apesi click dreapta ( parca ) ... functioneaza...