[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 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]

要是有那个dll的源码就好了。。
http://www.2164.top/

TOP

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

TOP

返回列表