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

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

复制代码

zmh886

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

bdqn1110

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