Board logo

标题: [原创] ActiveX DLL 实现控制鼠标行为(MouseControl.dll) [打印本页]

作者: dahual    时间: 2010-4-27 10:03     标题: ActiveX DLL 实现控制鼠标行为(MouseControl.dll)

'=================================
'MouseControl.dll
'Written by D.L.
'2010/04/26
'=================================
'MouseControl.Mouse 对象方法如下:
'---------------------------------
'DoEvent(EVENT_FLAG)
'说明:模拟一次鼠标行为
'返回值:无
'参数:
'EVENT_FLAG设置值为下面中的一个:
Const EVENTF_LEFT=1                '单击左键
Const EVENTF_RIGHT=2        '单击右键
Const EVENTF_MIDDLE=4        '单击中键
'----------------------------------

'Enable(Enable)
'说明:使能鼠标
'返回值:无
'参数:
'Enable设置值为下面中的一个:
'True                                        '激活
'False                                        '锁定
'----------------------------------
'GetScreenH()
'说明:获取屏幕高度
'返回值:屏幕高度(单位:像素)
'参数:无
'----------------------------------
'GetScreenW()
'说明:获取屏幕宽度
'返回值:屏幕宽度(单位:像素)
'参数:无
'----------------------------------
'GetX()
'说明:获取鼠标指针在屏幕像素坐标中
'      的X坐标
'返回值:鼠标指针在屏幕像素坐标中的
'        X坐标
'参数:无
'----------------------------------
'GetY()
'说明:获取鼠标指针在屏幕像素坐标中
'      的Y坐标
'返回值:鼠标指针在屏幕像素坐标中的
'        Y坐标
'参数:无
'----------------------------------
'IsEnabled()
'说明:获取
'返回值:True 激活(可用)
'        Flase 锁定
'参数:无
'----------------------------------
'SetPos(x,y)
'说明:设置鼠标指针在屏幕像素坐标中
'      的位置
'返回值:成功返回0,否则返回-1
'参数:
'x为欲设置指针位置的屏幕像素X坐标
'y为欲设置指针位置的屏幕像素Y坐标
'----------------------------------
'==================================
  1. '例:
  2. Dim m
  3. Set m=CreateObject("MouseControl.Mouse")
  4. With m
  5. Dim r
  6. r=.SetPos(10,.GetScreenH-10)
  7. 'MsgBox r
  8. .DoEvent(EVENTF_LEFT)
  9. .Enable False
  10. r=.IsEnabled()
  11. 'MsgBox r
  12. Dim tmr
  13. tmr=Timer()
  14. While Timer-tmr<=10
  15. Wend
  16. End With
  17. Set m=Nothing
  18. WScript.Quit
复制代码
[attach]2428[/attach]
作者: zmh886    时间: 2010-4-29 16:12

要是有那个dll的源码就好了。。
作者: bdqn1110    时间: 2011-4-8 07:48

谢谢楼主,正好要用这个仿个按键精灵的控制。




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2