script.mts

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

'Dim nowdate1
'nowdate1= nowDate()
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord")_;_script infofile_;_ZIP::ssf25.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord").SetSecure "4871e6ebb2c5ea5953285e05" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebEdit("userPassWord")_;_script infofile_;_ZIP::ssf26.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebButton("登 录").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)").WebButton("登 录")_;_script infofile_;_ZIP::ssf27.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("WebTable").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").WebElement("WebTable")_;_script infofile_;_ZIP::ssf28.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("WebElement").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").WebElement("WebElement")_;_script infofile_;_ZIP::ssf29.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("menu1_bg").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").WebElement("menu1 bg")_;_script infofile_;_ZIP::ssf30.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").WebElement("menu2_ex").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").WebElement("menu2 ex")_;_script infofile_;_ZIP::ssf31.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("txtEquipmentName_Text").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebElement("txtEquipmentName Text")_;_script infofile_;_ZIP::ssf32.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("test(1)").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("test(1)")_;_script infofile_;_ZIP::ssf33.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("新分类名称(2)").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("新分类名称(2)")_;_script infofile_;_ZIP::ssf34.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("1J1-3 1#短路开关控制箱电源").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebElement("1J1-3 1#短路开关控制箱电源")_;_script infofile_;_ZIP::ssf35.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebButton("确定").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("设备选择-单选").Page("设备选择-单选").WebButton("确定")_;_script infofile_;_ZIP::ssf36.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("drpTreeSpecialityType_Text").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebElement("drpTreeSpecialityType Text")_;_script infofile_;_ZIP::ssf38.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("光电专业").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebElement("光电专业")_;_script infofile_;_ZIP::ssf39.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("光电专业").FireEvent "ondblclick",,, 1 @@ hightlight id_;_Browser("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢?").Page("閺佹澘鐡ч崠鏍暩閸?閺呴缚鍏橀悽鐔堕獓缁狅紕鎮婄化鑽ょ埠(閸欘垳鏁ら幀褍鐣崰鍕箚婢? 2").Frame("Frame FrameDiv3").WebElement("閸忓鏁告稉鎾茬瑹")_;_script infofile_;_ZIP::ssf39.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("ddlIssueType_Text").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebElement("ddlIssueType Text")_;_script infofile_;_ZIP::ssf40.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebElement("WebTable").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebElement("WebTable")_;_script infofile_;_ZIP::ssf41.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebEdit("ddlIssueStatus_Text").FireEvent "ondblclick" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebEdit("ddlIssueStatus Text")_;_script infofile_;_ZIP::ssf42.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebEdit("txtDescription").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebEdit("txtDescription")_;_script infofile_;_ZIP::ssf43.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebEdit("txtDescription").Set "123" @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebEdit("txtDescription")_;_script infofile_;_ZIP::ssf44.xml_;_
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境)_2").Frame("Frame_FrameDiv3").WebButton("提交").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Page("数字化电厂-智能生产管理系统(可用性完善环境) 2").Frame("Frame FrameDiv3").WebButton("提交")_;_script infofile_;_ZIP::ssf45.xml_;_
'Dim nowdate1
Environment.Value("MyVariable")=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
'nowdate1= nowDate()
'MsgBox  nowdate1
Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebButton("确认").Click @@ hightlight id_;_Browser("数字化电厂-智能生产管理系统(可用性完善环境)").Window("工作流提交对话框 -- 网页对话框").Page("工作流提交对话框").WebButton("确认")_;_script infofile_;_ZIP::ssf46.xml_;_