QTP录制的脚本不稳定

zhangxinnow

我用QTP9.5录制了脚本，测试时还没有问题，但是当正式运行时就有很多地方运行不过去。（注：我在之间装了LoadRunner8.1和8.1汉化还有FP4补丁，会不会有影响？）实在不知道为什么，又不敢乱动破坏已经录好的脚本。请各位走过路过的大侠留下一些连珠妙语帮我渡过难关吧，先行谢过了。 （注：脚本是java编写的CS程序）

zhangxinnow

谢谢大家，我知道了。

10clock

坐标本身就不稳定，你可尝试一下wait以确保那个键显示完整了

dreamever

我晕，楼主还真是实在，代码和图都贴的这么详细，要是能把出错的代码行再贴一下就更好了。因为别人的机器上没有你的脚本和环境，更没有相对应的测试对象地图，没有办法进行调试的。
有很多脚本录制后生成的都是坐标，这种脚本本身就很容易出错，估计这是造成你脚本运行不稳定的原因之一吧。

zhangxinnow

再顶一下。

zhangxinnow

问题图

zhangxinnow

SystemUtil.Run "D:\QTPTEST\plugin\run.bat", "","D:\QTPTEST\plugin","open"
Window("Window").Click 506,324
Window("Window").Type "515301"
Window("Window").Click 506,340
Window("Window").Click 504,347
Window("Window").Type "0"
Window("Window").Click 507,418
wait(2)
Window("消息").Click 137,70
Window("物流作业").WinObject("SunAwtCanvas").Click 148,107
Window("物流作业").WinObject("SunAwtCanvas").Click 90,7
Window("物流作业").WinObject("SunAwtCanvas").Click 141,332
Window("收货分拣").Activate
Window("收货分拣").WinObject("SunAwtCanvas").Click 279,56
Window("收货分拣").WinObject("SunAwtCanvas").Type "9787100012324"
Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn
Window("收货分拣").Window("设置分库对应箱子").Click 249,24
Window("收货分拣").Window("设置分库对应箱子").Type "901081"
Window("收货分拣").Window("设置分库对应箱子").Type  micReturn
Window("收货分拣").Window("设置分库对应箱子").Type "901083"
Window("收货分拣").Window("设置分库对应箱子").Type  micReturn



Window("收货分拣").WinObject("SunAwtCanvas").Click 839,49
Window("收货分拣").WinObject("SunAwtCanvas").Type  micBack
Window("收货分拣").WinObject("SunAwtCanvas").Type  micBack
Window("收货分拣").WinObject("SunAwtCanvas").Type  micBack
Window("收货分拣").WinObject("SunAwtCanvas").Type "58"


Window("收货分拣").WinObject("SunAwtCanvas").Click 841,49
Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn
Window("收货分拣").Window("系统警告").Click 127,65
Window("收货分拣").WinObject("SunAwtCanvas").Click 828,52
Window("收货分拣").WinObject("SunAwtCanvas").Click 827,51
Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn
Window("收货分拣").Window("Warning").Click 198,71
Window("收货分拣").WinObject("SunAwtCanvas").Click 332,51
Window("收货分拣").WinObject("SunAwtCanvas").Type "9787811231724"
Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn
Window("收货分拣").Window("设置分库对应箱子").Click 283,38
Window("收货分拣").Window("设置分库对应箱子").Type "901083"
Window("收货分拣").Window("设置分库对应箱子").Type  micReturn
Window("收货分拣").Window("设置分库对应箱子").Type "901082"
Window("收货分拣").Window("设置分库对应箱子").Type  micReturn


Window("收货分拣").WinObject("SunAwtCanvas").Click 827,52


Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn

wait(4)



Window("收货分拣").WinObject("SunAwtCanvas").Click 830,50'过不去,以前是这里过不去，现在其他地方也出错。

Window("收货分拣").WinObject("SunAwtCanvas").Type  micReturn

Window("收货分拣").Window("Warning").Click 198,72

Window("收货分拣").WinObject("SunAwtCanvas").Click 821,52

Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,0,0
Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,6,0
Window("收货分拣").Window("换箱操作").Click 132,36
Window("收货分拣").Window("换箱操作").Type "901081"
Window("收货分拣").Window("换箱操作").Type  micReturn

Window("收货分拣").WinObject("SunAwtCanvas").Click 842,50
Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,0,0
Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,6,0


Window("收货分拣").Window("换箱操作").Click 397,35
Window("收货分拣").Window("换箱操作").Click 107,36

Window("收货分拣").Window("换箱操作").Type "901082"
Window("收货分拣").Window("换箱操作").Type  micReturn
Window("收货分拣").Window("换箱操作").Type  micReturn

Window("收货分拣").WinObject("SunAwtCanvas").Click 835,47
Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,0,0
Extern.Declare micVoid,"keybd_event","user32","keybd_event",micByte,micByte,micLong,micLong
Extern.keybd_event 111,0,6,0
Window("收货分拣").Window("换箱操作").Click 178,31
Window("收货分拣").Window("换箱操作").Type "901083"
Window("收货分拣").Window("换箱操作").Type  micReturn
Window("收货分拣").Window("换箱操作").Type  micReturn
Window("收货分拣").Close

henry_yan

是啊，贴个图看看，很多情况都会出错的。

dreamever

还是把出错的图或代码贴一下吧，辛苦楼主了，呵呵

zhangxinnow

自己顶一下，期待回复中。