|
看来我也没有太好的办法了。
我一般解决这种问题的思路就是先看有没有warning的,尽量的消除warning。然后找到问题语句后,从顶层Browser一直确认到最底层的对象,挨个寻找问题原因。
也许问题就在这个Image的Click方法上。额,有一个比较麻烦的办法,你可以尝试一下,就是这里的点击不用Image().Click,用我给你的方法试试看。如果你能获取Image的绝对坐标(当然要能在屏幕上看到),然后用下面的语句,X要用对象的abs_x,可以适当把x和y都加一点,以便鼠标点击到图片中间而不是顶点。
Extern.Declare micLong, "SetCursorPos", "user32.dll", "SetCursorPos", micLong, micLong
Extern.SetCursorPos X,Y '鼠标移动到坐标(X,Y)
Extern.Declare micVoid, "mouse_event", "user32.dll", "mouse_event", micLong, micLong, micLong, micLong, micLong
Extern.mouse_event 2,X,Y,0,0 '鼠标按下
Extern.mouse_event 4,X,Y,0,0 '鼠标抬起
如果这个办法也解决不了,俺也束手无策了。呵呵。 |
|