|
自动义一个环境变更量payType,每次运行程序都读自动义时的初始值,晕:
请看下面程序,
Call editADReservation
Function editADReservation
'编辑广告预定为另一类型
Browser("销售管理信息系统").Page("销售管理信息系统").Link("客户管理").Click
Browser("销售管理信息系统").Page("销售管理信息系统_2").Link("(新)广告资源").Click
Browser("销售管理信息系统").Page("销售管理信息系统_3").WebButton("查 询").Click
Set oDesc = Description.Create
oDesc("micclass").Value = "Link"
oDesc("name").Value = "详细"
oDesc("index").Value = 0
myvalue=Environment.Value("payType")
msgbox myvalue
Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click
Browser("销售管理信息系统").Page("销售管理信息系统_5").WebButton("编 辑(E)").Click
payType = Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").getroproperty("value")
If payType = "购买" Then
Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "赠送"
expectedValue="赠送"
else
Browser("销售管理信息系统").Page("销售管理信息系统_6").WebList("pay_type").Select "购买"
expectedValue="购买"
End If
Environment.Value("payType") = expectedValue
myvalue=Environment.Value("payType")
msgbox myvalue
Browser("销售管理信息系统").Page("销售管理信息系统_6").WebButton("确 定").Click
Browser("销售管理信息系统").Window("消息 -- 网页对话框").Close
Browser("销售管理信息系统").Page("销售管理信息系统_4").Link(oDesc).Click
End Function |
|