如何禁止鼠标操作！！

Private Sub Form_Load()
   Shell "C:\Program Files\Internet Explorer\iexplore.exe http://www.163.com/", vbMaximizedFocus
   DoEvents
   Sleep 5000
   DoEvents
   Call SetCursorPos(230, 170)
   DoEvents
   Sleep 1000
   DoEvents
   mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, 0, 0, 0&, 0&
   Unload Me
End Sub

如果软件运行后，禁止鼠标移动或者点击，直到模拟点击了广告（位置坐标为230, 170）后，鼠标才可以操作，如何加代码呢？

--------------------编程问答-------------------- 没有人会？？ --------------------编程问答-------------------- 在98里面做过
不知2000里行不行，没试过 --------------------编程问答-------------------- 反对这种"流氓" 行为！ --------------------编程问答-------------------- 还没有人回答呀 --------------------编程问答-------------------- 用SetWindowsHook的WH_MOUSE

点击广告直接 Shell "iexplore.exe 网站" --------------------编程问答-------------------- 可以提供详细的代码吗？
我不懂VB的 --------------------编程问答-------------------- 55555555555555 --------------------编程问答-------------------- 55555555555555 --------------------编程问答-------------------- 网上抄的
你快点抄别人他人看到了^_^

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Const MOUSEEVENTF_MOVE = &H1        ' 移动鼠标
Const MOUSEEVENTF_LEFTDOWN = &H2    ' 模拟鼠标左键按下
Const MOUSEEVENTF_LEFTUP = &H4      ' 模拟鼠标左键抬起
Const MOUSEEVENTF_RIGHTDOWN = &H8   ' 模拟鼠标右键按下
Const MOUSEEVENTF_RIGHTUP = &H10    ' 模拟鼠标右键抬起
Const MOUSEEVENTF_MIDDLEDOWN = &H20 ' 模拟鼠标中键按下
Const MOUSEEVENTF_MIDDLEUP = &H40   ' 模拟鼠标中键抬起
Const MOUSEEVENTF_ABSOLUTE = &H8000 ' 表示是否采用绝对坐标

Private Sub Command1_Click()
   ShellExecute Me.hwnd, "", "http://www.126.com/exitmail.htm", "", "", 3 '打开网页


   mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '点击鼠标
End Sub

Private Sub Command2_Click()
   Call EnableWindow(Me.hwnd, 0)
End Sub

Private Sub Command3_Click()
   Call EnableWindow(Me.hwnd, 1) '恢复
End Sub
--------------------编程问答-------------------- 移到鼠标

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

SetCursorPos x,y

补充：VB ,  基础类