|
5#
楼主 |
发表于 2005-4-19 12:11:10
|
只看该作者
declare sub newapp(biaodmc as string,biaodbh as string,jianzmj as string,zhaobr as string,danwgc01 as string,danwgc02 as string,danwgc03 as string)
Sub newapp(biaodmc as string,biaodbh as string,jianzmj as string,zhaobr as string,danwgc01 as string,danwgc02 as string,danwgc03 as string)
Dim Result As Integer
'Initially Recorded: 2005-4-18 16:07:08
'Script Name: 新建招标文件
Window SetContext, "Caption=(工具版);Class=TMainForm_T", ""
GenericObject Click, "Text=tsTender", "Coords=435,175"
Window SetTestContext, "Caption=确认", ""
Result = LabelVP (CompareImage, "Text=标段已经新建,如果您再次新建,则原先的将被删除,是否继续?", "VP=重复新建提示;Wait=2,10")
Window ResetTestContext, "", ""
if result =1 then
Window SetContext, "Caption=确认", ""
PushButton Click, "Text=是(Y)"
end if
'=============================================================================================
'新建第一步
Window SetContext, "Caption=新建招标文件", ""
EditBox Left_Drag, "ObjectIndex=4", "Coords=71,6,-62,8"
InputKeys biaodmc
' ========================================================================
EditBox Left_Drag, "ObjectIndex=3", "Coords=58,6,-85,9"
InputKeys biaodbh
' ========================================================================
ComboBox Click, "ObjectIndex=1", "Coords=173,9"
ComboListBox Click, "ObjectIndex=1", "Text=公共建筑"
' =========================================================================
EditBox Left_Drag, "ObjectIndex=2", "Coords=73,10,-66,11"
InputKeys jianzmj
' ==========================================================================
EditBox Click, "ObjectIndex=1", "Coords=41,5"
InputKeys zhaobr
PushButton Click, "Text=下一步(N)"
'===============================================================================
Window SetTestContext, "Caption=新建招标文件", ""
Result = GenericObjectVP (CompareImage, "Text=TBXToolbar1", "VP=新建第二步;Wait=2,10")
Window ResetTestContext, "", ""
Window SetContext, "Caption=新建招标文件", ""
GenericObject Click, "Text=TBXToolbar1", "Coords=49,14"
InputKeys danwgc01
inputkeys "{ENTER}"
CheckBox Click, "Text=甲供材料表"
GenericObject Click, "Text=TBXToolbar1", "Coords=41,12"
InputKeys danwgc02
inputkeys "{ENTER}"
CheckBox Click, "Text=甲供材料表"
GenericObject Click, "Text=TBXToolbar1", "Coords=40,14"
InputKeys danwgc03
inputkeys "{ENTER}"
CheckBox Click, "Text=甲供材料表"
' ============================================================================
Window SetContext, "Caption=新建招标文件", ""
PushButton Click, "Text=下一步(N)"
Window SetTestContext, "Caption=新建招标文件", ""
Result = GroupBoxVP (CompareImage, "ObjectIndex=3", "VP=新建第三步;Wait=2,10")
Window ResetTestContext, "", ""
Window SetContext, "Caption=新建招标文件", ""
PushButton Click, "Text=完成"
End Su
中间有些步骤inputkeys后跟的是传递过来的参数,单独编译这个文件的时候就报错,不知道为什么 |
|