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

来源:百度知道 编辑:UC知道 时间:2024/05/22 01:36:47
想自己编个小程序.用按键精灵的工作方式操作.

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

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

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

鼠标可以使用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

什么意思?按键?
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下这个函数的行为不同

【参数表】