怎样控制鼠标和键盘，模拟人工操作

[yyxx0406]

公司的一个软件，在某个界面可以输入号码进行查询，然后将查询到的结果导出保存，但只可以一个个查询，不能批量查询。现在要查询的号码有很多，列在一个EXCEL表格中。怎样才能让电脑自动完成这一系列动作？
我是这样想的，能不能通过一个程序控制鼠标的移动，移动到相应的位置后，然后单击或双击，或进行键盘录入...即模拟人的手工操作。这样可行吗？要怎样做？我还是初学VB，不懂哦，求教。
我还想，有没有类似于VBA录制宏的软件，可以在WINDOWS平台上录制有规律的操作？

[vrgame]

只能提供想法: For Each In Excel.Cells SendMessage Target, Number … …… Next 没实测, 怎麽以FindWindowEx取得目标edit或是其他控制项, 送什麽Msg与怎麽取得对方产生的结果做处理… 这都得靠你自己探索, 在这里谈兵是谈不出结果的。

[yyxx0406]

谢谢1楼。 已经基本解决了，我用了一个最笨的方法：只使用了SetCursorPos、mouse_event和TIMERER控件 看到鼠标在屏幕上不断动作，觉得挺有趣的，问题也解决了，挺有成就感的，呵呵...

[酷心]

呵呵，能解决就好，也可以使用FindWindow-SendMassage之类的Api，或者简单点就使用按键精灵之类的模拟软件

[yyxx0406]

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long Private Sub Command1_Click()'将鼠标移动到屏幕上（500，500）的点 SetCursorPos 500, 500 end sub Private 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) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 Private Sub Command1_Click()'在鼠标所在的地方左键单击一次 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub 结帖。