如果intX、intY、FX、jE四条件大于0成立，那么鼠标左键就单击，点击次数为：JE。
假设JE=9那么鼠标左键就要点击9次，点击完9次后退出点击事件，去做别的事情。
Dim a As Integer
If intX > 0 And intY > 0 And FX >1  And jE > 1  Then
a =JE
For i = 1 To a Step 1
a = a + 1
If i <= a Then
dm_ret = dm.LeftClick  '鼠标左键单击JE次（如果JE=9，就是点击9次。）
End If
Sleep 50
Exit For
Next i
dm.MoveTo 520, 653 '移动鼠标到位置：920, 653
End If

鼠标左键一直疯狂单击，根本没有停止，也没有走到位置：920, 653
请教前辈我的问题出在什么地方。尝试无数次修改，一直无法停止鼠标的点击。
可否把四个条件之一放入循环里，鼠标点击JE次数后，给四个条件之一赋值为0，让它退出循环。
鼠标疯狂单击，我也快疯狂了。谢谢解答！