Question

请教VB 如何实现按键精灵的功能?

想自己编个小程序.用按键精灵的工作方式操作.

总的来说问题可以归为以下几个.

1.如何在VB中移动鼠标,点击鼠标?
2.如何在VB中让程序自动键入一串字符?
3.如何在VB中检测某一点坐标位置的当前颜色值?(查色,方便等待下一步操作)

请高手赐教..
..补充一下。.如果用VB,对网页或者其他窗体的的输入筐里传递字符串.怎么做??
例如.我想对当前激活的QQ窗口.输入一个号码后.按TAB.再输入密码.然后回车.

Answer 1

鼠标可以使用mouse_event 的API函数完成(声明如下)
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)

键盘操作用Sendkeys "{(功能键)}"、Sendkeys "文字" 完成，转移焦点可以用AppActivate完成。

例如：按下Command1,打开记事本，在记事本中输入一段字符：

Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
AppActivate "无标题 - 记事本"
SendKeys "这是一个示例。"
End Sub

Answer 2

什么意思？按键？
DoEvents:SendKeys "{enter}", True
'它将发送一个回车键到当前窗口，相当于用户按了“确认”按钮。
这样么？
【VB声明】
Private Declare Sub keybd_event Lib "user32" Alias "keybd_event" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

【说明】

这个函数模拟了键盘行动

【返回值】

【备注】

这个函数支持屏幕捕获（截图）。在win95和nt4.0下这个函数的行为不同

【参数表】
bVk ------------ Byte，欲模拟的虚拟键码

bScan ---------- Byte，键的OEM扫描码

dwFlags -------- Long，零；或设为下述两个标志之一
KEYEVENTF_EXTENDEDKEY
指出是一个扩展键，而且在前面冠以0xE0代码
KEYEVENTF_KEYUP
模拟松开一个键

dwExtraInfo ---- Long，通常不用的一个值。api函数GetMessageExtraInfo可取得这个值。允许使用的值取决于特定的驱动程序

Answer 3

移动鼠标用API GOOGLE搜索“VB 控制鼠标”
2.SendKeys"{A}"
3.直接用API获取颜色（Google搜索“VB 获取屏幕上一点的RGB”） 然后分离RGB