如何屏蔽鼠标操作 VB代码？跪求！！谢谢！

Question

本帖最后由 ni871 于 2009-08-27 11:41:28 编辑

Answer 1

msgbox "拔掉鼠标！"

Answer 2

恩，这个应该跟屏蔽鼠标效果一样，放在左上角他动也动不了。可以用AIP函数来实现
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
 Private Type RECT
     Left As Long
     Top As Long
     Right As Long
     Bottom As Long
  end type
让left=0 top=0 right=0 bottom=0 就行啦

Answer 3

我玩了一下,要用键盘控制才行(Alt+F4)

Answer 4

能把黑屏程序发一个给我吗？先谢谢了。邮箱是：[email protected]

Answer 5

很简单，使用Hook函数屏蔽掉鼠标消息即可。

Answer 6

增加一个:http://www.m5home.com/blog/article.asp?id=245在鼠标事件里吃掉点击消息,就更完美了,哈哈.