mouse_event失败问题，请教！HELP！

[lovefool]

想控制鼠标对另一个外部应用程序进行操作，实现鼠标自动点击菜单，确定了菜单项的坐标，直接用mouse_event来控制点击（因为该应用程序的菜单在工具栏里，我得不到菜单的句柄）
下面的程序段里运行后第一次单击是点中菜单项，弹出一个下拉菜单，第二次单击是点击下拉菜单的其中一项。
奇怪的是在运行时有时候可以顺利完成，但有时候第2次点击不执行，这是什么原因呢？是和WINDOWS的消息机制有关么？怎么解决呢？谢谢了！

程序段如下：

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MOVE = &H1

Dim i As Integer
Dim j As Boolean

i = Shell("C:\Program Files\RSIS\RPLS.exe", vbHide) '启动应用程序
j = SetCursorPos(30, 33)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()’第一次单击
mouse_event MOOSE_EVENTF_ABSOLOTE Or MOUSEEVENTF_MOVE, 50 * 65535 / 1024, 55 * 65535 / 768, 0, GetMessageExtraInfo()
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, GetMessageExtraInfo()‘第二次单击

[oyljerry]

分析一下点击的顺序是否有影响，是否模拟正确

[MmMVP]

加上延时试试呢？

[lovefool]

呵呵，加上延时已经解决，多谢！