请教一个关于PostMessage的问题。

Question

我想用PostMessage模拟发送10次按键或鼠标的10次单击事件，能否直接发送？像Sendkeys那样SendKeys "{t 10}",而不是一次次的调用，
Public Sub LeftClick()
    '左键按下
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    '左键放开
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
像上面的，要双击的话必须这样
LeftClick
LeftClick
次数少的话还可以接受，但是如果要按100次，1000次的话，岂不是很麻烦？
LeftClick
LeftClick
.........
.........
用PostMessage发送按键也是。有什么好方法吗？不要告诉我用TIMER哦，而且发送按键必须用PostMessage

Answer 1

你难道不可以用循环吗？
Public Sub LeftClick(ByVal times As Long)
    Do While times > 0
    '左键按下
        mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
        '左键放开
        mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
        times = times - 1
    Loop
End Sub
点1000次就：
LeftClick 1000

Answer 2

for i = 1 to 100
    LeftClick
next

Answer 3

了解，谢谢，竟然忘记FOR了，哈哈