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. 	

  10. 	.Enable False

  11. 	r=.IsEnabled()

  12. 	'MsgBox r

  13. 	

  14. 	Dim tmr

  15. 	tmr=Timer()

  16. 	While Timer-tmr<=10

  17. 		

  18. 	Wend

  19. End With

  20. Set m=Nothing

  21. WScript.Quit
复制代码
[attach]2428[/attach]
作者: zmh886    时间: 2010-4-29 16:12

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

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



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