把按键精灵几十个命令做成模块直接在vb里使用,这样可以把按键精灵的脚本文件直接复制到VB里运行,并制作成vb的.exe文件。同样vb命令也可以做成插件在按键精灵运行,这样按键精灵和vb互相共用是不是很方便哦。 例子:移动鼠标到 100,100,左键点击3下 按键精灵命令是: MoveTo 100,100 LeftClick 3 在vb里建一个模块: Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long '移动鼠标 Public Function MoveTo(ByVal x As Long, ByVal y As Long) Call SetCursorPos(x, y) End Function '鼠标左键点击x次 Public Function LeftClick(ByVal x As Long) Dim i As Long For i = 1 To x mouse_event &H2 Or &H4, 0, 0, 0, 0 Next End Function 测试:在vb建一个命令按键,把按键精灵命令复制到vb里 Private Sub Command1_Click() MoveTo 100,100 LeftClick 3 End Sub 怎么样,方便把,把vb命令做成插键,论坛上很多,自己找吧就不多说了。 这样命令在按键精灵和vb里怎么用都可以不会搞错用的地方了。 |
|