关于解除鼠标限制的问题

有个程序他在运行的时候是限制鼠标范围的,只运行鼠标运行在他所规定的范围呢.
我想写一个程序,实现解除这种限制的功能.
我的思路如下,在运行他的程序前,先运行这个解除限制的程序,然后这个程序能长驻内存,并且对以后运行的每个窗口进行检查判断,看是不是那个程序,如果是,就解除限制,并将自己从内存中释放掉.
由于是刚学习编程,知识还不多.内存长驻我是用,死循环实现的,但是太慢,死循环==死机了!
程序如下,
'省略掉一些API的声名,用到的API有GetActiveWindow,GetWindowText,ClipCursor
'省略掉对RECT结构的构造
dim MyHwnd as long,strText *40
dim rectangle as RECT
rectangle.left=0
rectangle.top=0
rectangle.right=screen.with
rectangle.bottom=screen.height
do
  MyHwnd=GetActiveWindow
  GetWindowText MyHwnd,strText,40
  if strText="那个程序的名" then
     ClipCursor rectangle
     msgbox "成功解除"
     end  
  endif
loop
这个写发,没成功,没次检测到的strText中的内容都是当前我运行的这个程序的名字,我就是点别的窗口,激活别的窗口,也是不行!
请高手们详细耐心的帮忙解答一下,小弟先谢谢了.
如果涉及一些钩子或是其他一些API的函数的时候请帮忙详细解释他的参数和一些用法,我只会一些简单的API呵呵.