[原创] ActiveX DLL 实现控制鼠标行为(MouseControl.dll)

dahual

'=================================
'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坐标
'----------------------------------
'==================================

'例：
Dim m
Set m=CreateObject("MouseControl.Mouse")
With m
	Dim r
	r=.SetPos(10,.GetScreenH-10)
	'MsgBox r
	.DoEvent(EVENTF_LEFT)
	
	.Enable False
	r=.IsEnabled()
	'MsgBox r
	
	Dim tmr
	tmr=Timer()
	While Timer-tmr<=10
		
	Wend
End With
Set m=Nothing
WScript.Quit
复制代码

[attach]2428[/attach]

zmh886

要是有那个dll的源码就好了。。

bdqn1110

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