|
3#
楼主 |
发表于 2006-3-3 10:38:38
|
只看该作者
脚本如下,请各位帮忙看看
Sub Main
Dim Result As Integer
'Initially Recorded: 2006-3-2 20:58:55
'Script Name: 县市信息维护开头
Window SetContext, "Caption=移动业务运营支撑系统;Class=TfrmMain", ""
GroupBox Click, "ObjectIndex=2", "Coords=331,42"
PopupMenuIDSelect 301
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=1"
Window SetContext, "Caption=查找条件", ""
RadioButton Click, "Text=按ID标识查找"
GenericObject Click, "Class=TLabeledEdit;ClassIndex=1", "Coords=32,5"
InputKeys "9996{ENTER}"
Window SetContext, "Caption=提示", ""
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=查找条件", ""
PushButton Click, "ObjectIndex=1"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=8"
GenericObject Click, "Class=TLabeledEdit;ClassIndex=1", "Coords=37,13"
InputKeys "9996"
GenericObject Click, "Class=TLabeledEdit;ClassIndex=2", "Coords=57,11"
InputKeys "testtest"
ComboBox Click, "ObjectIndex=1", "Coords=99,9"
ComboListBox Click, "ObjectIndex=1", "Text=[000]无锡 "
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=提示", ""
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=1"
Window SetContext, "Caption=查找条件", ""
RadioButton Click, "Text=按ID标识查找"
GenericObject Click, "Class=TLabeledEdit;ClassIndex=1", "Coords=46,7"
InputKeys "9996"
PushButton Click, "ObjectIndex=2"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=7"
GenericObject Click, "Text=testtest", "Coords=62,6"
InputKeys "modify"
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=提示", ""
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=3"
PushButton Click, "ObjectIndex=1"
Window SetContext, "Caption=查找条件", ""
RadioButton Click, "Text=按ID标识查找"
GenericObject Click, "Class=TLabeledEdit;ClassIndex=1", "Coords=48,9"
InputKeys "9996"
PushButton Click, "ObjectIndex=2"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=6"
Window SetContext, "Caption=确认", ""
PushButton Click, "ObjectIndex=2"
PushButton Click, "ObjectIndex=4"
Window SetContext, "Caption=移动业务运营支撑系统 - [县市信息维护]", ""
Window SetContext, "Caption=县市信息维护;ChildWindow", ""
PushButton Click, "ObjectIndex=2"
Window SetContext, "Caption=提示", ""
PushButton Click, "ObjectIndex=2"
Window SetContext, "Class=Shell_TrayWnd", ""
TabControl Click, "ObjectIndex=1;\;ItemIndex=5", ""
End Sub
这个脚本是我新录的,可以跑起来,但是我将 该脚本的内容完全拷贝到相同功能的老脚本中,只是脚本的名字不同罢了,在跑老脚本依然无法跑起来,二者的脚本内容是一字不差的,搞不清具体原因了。麻烦各位帮忙看看,谢谢
[ 本帖最后由 ly3679 于 2006-3-3 10:41 编辑 ] |
|