براي اين کار بايد در ويژوال بيسيک مراحل زير را انجام دهيد.
1- يک Timer با intevral 1 درست کنيد.
2-بعد از اين کار، کد SetCursorPos 0, 0 را بصورت زير به روال Timer آن اضافه کنيد:
Private Sub Timer1_Timer()
SetCursorPos 0, 0
End Sub
3- حالا يک ماژول درست کنيد و کد زير را درونش کپي کنيد:
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
حالا برنامه آماد است. البته به جاي پارامترهاي تابع SetCursorPos که دو مقدار 0,0 است، مي توانيد مکان دلخواهي که مي خواهيد کرسر موس به آنجا بره را بنويسيد. بايد گفت که به اين کار، "قفل کردن موس" هم مي گويند.
منبع خبر: iranianvirus.blogfa.com
