script.mts

QTP动态生成对象(时间)识别. 利用了VBS函数功能


Dim Row_Count, radomlink,radomframe,MyValue
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("WebTable_2").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").WebElement("WebTable 2")_;_script infofile_;_ZIP::ssf3.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Link("退出").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Link("退出")_;_script infofile_;_ZIP::ssf4.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userName").Set "yu_ymh" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userName")_;_script infofile_;_ZIP::ssf5.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord").SetSecure "4871f341dfff91329f51b0b7" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord")_;_script infofile_;_ZIP::ssf6.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebButton("登 录").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebButton("登 录")_;_script infofile_;_ZIP::ssf7.xml_;_

MyValue=Environment.Value("MyVariable")
MsgBox "喻敏华发现“6543”，请确认。【"&MyValue&"】"
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1").Link("text:=喻敏华发现“123” ，请确认。【"&MyValue&"】").Click
wait 3
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1").Link("陈靖发现“123” ，请确认。【2008-07-07").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv1").Link("陈靖发现“123” ，请确认。【2008-07-07")_;_script infofile_;_ZIP::ssf8.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv2").WebButton("提交").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv2").WebButton("提交")_;_script infofile_;_ZIP::ssf9.xml_;_
nowdate1= nowDate() 
Public Function  nowDate()
       Dim Date1,time1,year1,month1,day1,hour1,minute1
	 date1=year(date)&"-"
	 If  month(date)>10Then
		 month1=month(date)
		 else
		 month1="0"&month(date)
	End If
	If day(date) >10Then
		day1=day(date)
		else
		day1="0"&day(date)
    End If
               Date1=year(date)&"-"&month1&"-"&day1&chr(32)
		If  hour(time)>10Then
		hour1=hour(time) 
		 else
		 hour1="0"&hour(time)
	End If	   
	 If  minute(time)>10Then
		minute1=minute(time) 
		 else
		 minute1="0"&minute(time)
	End If	   
			   time1=hour1&":"&minute1
			   nowdate=date1&time1
			   MsgBox  nowdate
End Function
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark")_;_script infofile_;_ZIP::ssf10.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Activate @@ hightlight id_;_853158_;_script infofile_;_ZIP::ssf11.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark")_;_script infofile_;_ZIP::ssf12.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark").Set "同意处理" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebEdit("txtAuditRemark")_;_script infofile_;_ZIP::ssf13.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebButton("确认").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebButton("确认")_;_script infofile_;_ZIP::ssf14.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("WebTable_2").Click @@ hightlight id_;_Browser("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢?").Page("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢? 2").WebElement("WebTable 2")_;_script infofile_;_ZIP::ssf3.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Link("退出").Click @@ hightlight id_;_Browser("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢?").Page("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢? 2").Link("闁偓閸?)_;_script infofile_;_ZIP::ssf4.xml_;_


'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord").SetSecure "477c46da56a812df203f9de3"
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userName").Set "yu_ymh"
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebButton("登 陆").Click   '喻敏华发现“6543”的缺陷，请处理。【2008-01-03 11:04】
''Set LinkDesc = Description.Create()
'''LinkDesc("index").Value = "0"
'''LinkDesc("html tag").Value = "Font"
''LinkDesc("innertext").Value="喻敏华发现“6543”"
''wait 10
''' Row_Count =  Browser("3ATesting loadrunner|qtp|weblo").Page("QTP - 3ATesting loadrunner|qtp").WebTable(LinkDesc).RowCount
'' Row_Count = Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1")
'' radomlink = RandomNumber (1,Row_Count - 1)
'' Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1").ChildItem(radomlink,3,"Link",0).click
''Browser("3ATesting loadrunner|qtp|weblo").Page("QTP - 3ATesting loadrunner|qtp").WebTable(LinkDesc).ChildItem(radomlink,3,"Link",0).click
'''Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1").Link("喻敏华发现“6543” ，请确认。").SetTOProperty("text","喻敏华发现“6543” ，请确认。【"&nowda&"】")
'MyValue=Environment.Value("MyVariable")
'MsgBox "喻敏华发现“6543”，请确认。【"&MyValue&"】"
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv1").Link("text:=陈靖发现“6543” ，请确认。【"&MyValue&"】").Click
'wait 3
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv2").WebButton("提交").Click
'nowdate1= nowDate()
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").Link("增加").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Window("人员选择-多选").Page("人员选择-多选").WebElement("陈靖").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Window("人员选择-多选").Page("人员选择-多选").Image("arrow_right_blue1").FireEvent "onmouseover"
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Window("人员选择-多选").Page("人员选择-多选").Image("arrow_right_blue1").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Window("人员选择-多选").Page("人员选择-多选").WebButton("确定").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebButton("确认").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv2_2").WebButton("提交").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("数字化电厂-智能生产管理系统(可用性完善环境)").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("数字化电厂-智能生产管理系统(可用性完善环境)_2").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Link("退出").Click
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord").SetSecure "477c47440962bb9fc575718b"
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Page("数字化电厂-智能生产管理系统(可用性完善环境)").Sync
'Browser("数字化电厂-智能生产管理系统(可用性完善环境)_3").Close
'