如何禁止鼠标操作！！

Question

用SetWindowsHook的WH_MOUSE点击广告直接 Shell "iexplore.exe 网站"

Answer 1

网上抄的
你快点抄别人他人看到了^_^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 LongConst 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 SubPrivate Sub Command2_Click()
   Call EnableWindow(Me.hwnd, 0)
End SubPrivate Sub Command3_Click()
   Call EnableWindow(Me.hwnd, 1) '恢复
End Sub

Answer 2

移到鼠标Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As LongSetCursorPos x,y