script.mts

来自「QTP实例源码（完整）」· MTS 代码 · 共 782 行 · 第 1/5 页

MTS
782 行
字号
12345
Function DeleteContact ()
	'b. delete the new added contact
	Call objTestLib.printfile(file,3,"        b. delete the new added contact")
	Browser("Accela Automation:_27").Page("Accela Automation:_2").Image("Delete Applicant").Click @@ script infofile_;_ZIP::Delete_Applicant_ssf135.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation: 2").Image("Delete Applicant")_;_NFB_;_1321232_;_
	Browser("Accela Automation:_27").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf136.inf_;_hightlight id_;_2_;_
	If Browser("Accela Automation:_27").Page("Accela Automation:").Image("Add new Contact").Exist(5) Then
		If Browser("Accela Automation:_27").Page("Accela Automation:_2").Link("Kiki Zhao").Exist=False Then
    	    Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"the new Contact still exists")
		End If
	Elseif Browser("Accela Automation:_27").Dialog("Microsoft Internet").WinButton("OK").Exist Then
		strMessage = Browser("Accela Automation:_27").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
		Browser("Accela Automation:_27").Dialog("Microsoft Internet").WinButton("OK").Click
		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

'Browser("Accela Automation:_27").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf137.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1321233_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click


'###############################Section 2:  Set #####################
Call objTestLib.printfile(file,3,"Section 2:  Set ")

'###############################Section 3:  SMART MANAGER #####################
Call objTestLib.printfile(file,3,"Section 3:  SMART MANAGER ")
objmsgbox.SQAMsgbox "Section 2:  SMART MANAGER ","AA Auto Test",3,0
'=====1. New Tickler
Call objTestLib.printfile(file,3,"   1. New Tickler") @@ script infofile_;_ZIP::Accela_Automation__ssf138.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1321234_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler Collection").Click @@ script infofile_;_ZIP::Tickler_Collection_ssf139.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler Collection")_;_NFB_;_1321235_;_
Call AddTickler()
If Err_Flag=False Then
   '=====2. Update the new tickler
   Call objTestLib.printfile(file,3,"   2. Update the new tickler")
   Call UpdateTickler()
   'Browser("Accela Automation:_35").Page("Accela Automation:").Image("tab_menu").Click
    Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click
   '=====3. set the new tickler as default tickler, and click tickler
   Call objTestLib.printfile(file,3,"   3. set the new tickler as default tickler, and click tickler")
   Call SetTicklerDefault() @@ script infofile_;_ZIP::tab_menu_ssf160.inf_;_hightlight id_;_Browser("Accela Automation: 35").Page("Accela Automation: 2").Image("tab menu")_;_NFB_;_1341248_;_
   'Browser("Accela Automation:_35").Page("Accela Automation:_2").Image("tab_menu").Click
   Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click
   '=====4. Delete the new tickler
   Call objTestLib.printfile(file,3,"   4. Delete the new tickler")
   Call DeleteTickler()
   
End If
Function AddTickler ()
	Err_Flag = True
	Browser("Accela Automation:_31").Page("Accela Automation:").Image("Add New Tickler").Click @@ script infofile_;_ZIP::Add_New_Tickler_ssf140.inf_;_hightlight id_;_Browser("Accela Automation: 31").Page("Accela Automation:").Image("Add New Tickler")_;_NFB_;_1321236_;_
	Browser("Accela Automation:_32").Page("Accela Automation:").WebEdit("SCREEN_NAME").Set "Agency Testing" @@ script infofile_;_ZIP::SCREEN_NAME_ssf141.inf_;_hightlight id_;_Browser("Accela Automation: 32").Page("Accela Automation:").WebEdit("SCREEN NAME")_;_NFB_;_1321237_;_
	Browser("Accela Automation:_32").Page("Accela Automation:").Image("Search for Departmen").Click @@ script infofile_;_ZIP::Search_for_Departmen_ssf142.inf_;_hightlight id_;_Browser("Accela Automation: 32").Page("Accela Automation:").Image("Search for Departmen")_;_NFB_;_1321237_;_
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("Organization.").Click
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("Organization.").Click
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("BUILDING").Click
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("CONTRACT").Click @@ script infofile_;_ZIP::CONTRACT_ssf143.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc").Link("CONTRACT")_;_NFB_;_1331239_;_
	'Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("MEP").Click @@ script infofile_;_ZIP::MEP_ssf144.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc").Link("MEP")_;_NFB_;_1331239_;_
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("NA").Click @@ script infofile_;_ZIP::NA_ssf145.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc").Link("NA")_;_NFB_;_1331239_;_
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("NA_2").Click @@ script infofile_;_ZIP::NA_2_ssf146.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc").Link("NA 2")_;_NFB_;_1331239_;_
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc").Link("NA_3").Click @@ script infofile_;_ZIP::NA_3_ssf147.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc").Link("NA 3")_;_NFB_;_1331239_;_
	Browser("Accela Automation:_33").Page("Accela Automation:").Frame("toc2").Image("Submit").Click 25,6 @@ script infofile_;_ZIP::Submit_ssf148.inf_;_hightlight id_;_Browser("Accela Automation: 33").Page("Accela Automation:").Frame("toc2").Image("Submit")_;_NFB_;_1331239_;_
	Browser("Accela Automation:_32").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf149.inf_;_hightlight id_;_Browser("Accela Automation: 32").Page("Accela Automation:").Image("Submit")_;_NFB_;_1341239_;_
	If Browser("Accela Automation:_31").Page("Accela Automation:").Image("Add New Tickler").Exist(5) Then
		strInnerText = Browser("Accela Automation:_31").Page("Accela Automation:_2").WebTable("Name").GetROProperty("innertext")
		If Instr(strInnerText,"Agency Testing") <> 0 Then
		    Err_Flag = False
			Call objTestLib.printfile(file,4)
		Else
			Call objTestLib.printfile(file,5,"cannot find the [agency testing] tickler")
		End If
'	Elseif Browser("Accela Automation:_32").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_32").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_32").Dialog("Microsoft Internet").WinButton("OK").Click
'		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
	Else
		Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
		Browser("Accela Automation:").back
	End If
End Function

Function UpdateTickler ()
	Dim  strInnerText @@ script infofile_;_ZIP::Edit_Tickler_ssf150.inf_;_hightlight id_;_Browser("Accela Automation: 31").Page("Accela Automation: 2").Image("Edit Tickler")_;_NFB_;_1341240_;_
	Browser("Accela Automation:_31").Page("Accela Automation:_2").Image("Edit Tickler").Click
	Browser("Accela Automation:_34").Page("Accela Automation:").WebEdit("SRCH_SD_BEFORE").Set "300" @@ script infofile_;_ZIP::SRCH_SD_BEFORE_ssf151.inf_;_hightlight id_;_Browser("Accela Automation: 34").Page("Accela Automation:").WebEdit("SRCH SD BEFORE")_;_NFB_;_1341241_;_
	Browser("Accela Automation:_34").Page("Accela Automation:").WebEdit("SRCH_SD_BEFORE_STAT").Set "300" @@ script infofile_;_ZIP::SRCH_SD_BEFORE_STAT_ssf152.inf_;_hightlight id_;_Browser("Accela Automation: 34").Page("Accela Automation:").WebEdit("SRCH SD BEFORE STAT")_;_NFB_;_1341241_;_
	Browser("Accela Automation:_34").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf153.inf_;_hightlight id_;_Browser("Accela Automation: 34").Page("Accela Automation:").Image("Submit")_;_NFB_;_1341241_;_
	wait(5)
    strInnerText = Browser("Accela Automation:_35").Page("Accela Automation:").WebTable("Name:").GetROProperty("innertext")
	If instr(strInnerText,date-300) <> 0 And instr(strInnerText,date-300+60) <> 0 Then
		Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"update the date range failed!")
	End If
'	Elseif Browser("Accela Automation:_34").Dialog("Microsoft Internet").WinButton("OK").Exist Then
'		strMessage= Browser("Accela Automation:_34").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
'		Browser("Accela Automation:_34").Dialog("Microsoft Internet").WinButton("OK").Click
'		Call objTestLib.printfile(file,5,"updated the Contact failed, the error message is " & strMessage)
End Function

Function SetTicklerDefault ()
	Browser("Accela Automation:").Page("Accela Automation:").Link("Preference").Click @@ script infofile_;_ZIP::Preference_ssf156.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Preference")_;_NFB_;_1341244_;_
	Browser("Accela Automation:_36").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf157.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation:").Image("Submit")_;_NFB_;_1341245_;_
	Browser("Accela Automation:_36").Page("Accela Automation:_2").WebList("DefaultTickler").Select "Agency Testing"
	Browser("Accela Automation:_36").Page("Accela Automation:_2").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf158.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation: 2").Image("tab menu")_;_NFB_;_1341246_;_
	Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler").Click @@ script infofile_;_ZIP::Tickler_ssf159.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler")_;_NFB_;_1341247_;_
	wait(5)
	strInnerText = Browser("Accela Automation:_35").Page("Accela Automation:").WebTable("Name:").GetROProperty("innertext")
	If instr(strInnerText,"Agency Testing") <> 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"set the new tickler as default tickler failed!")
	End If
End Function

Function DeleteTickler ()
	Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler Collection").Click @@ script infofile_;_ZIP::Tickler_Collection_ssf162.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Tickler Collection")_;_NFB_;_1341250_;_
	Browser("Accela Automation:_31").Page("Accela Automation:").Image("Delete Tickler").Click @@ script infofile_;_ZIP::Delete_Tickler_ssf163.inf_;_hightlight id_;_Browser("Accela Automation: 31").Page("Accela Automation:").Image("Delete Tickler")_;_NFB_;_1341251_;_
	Browser("Accela Automation:_31").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf164.inf_;_hightlight id_;_2_;_
	wait(5)
	strInnerText = Browser("Accela Automation:_31").Page("Accela Automation:_2").WebTable("Name").GetROProperty("innertext")
	If Instr(strInnerText,"Agency Testing")=0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"the [agency testing] tickler still exists!")
	End If
End Function

'Browser("Accela Automation:_31").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf165.inf_;_hightlight id_;_Browser("Accela Automation: 31").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1341252_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'###############################Section 3:  PREFERENCE #####################
Call objTestLib.printfile(file,3,"Section 3: PREFERENCE")
objmsgbox.SQAMsgbox "Section 3: PREFERENCE","AA Auto Test",3,0
'=====1. Perference 
Call objTestLib.printfile(file,3,"   1. Perference")
'a. modify the perference
Call objTestLib.printfile(file,3,"        a. modify the perference")
Browser("Accela Automation:").Page("Accela Automation:").Link("Preference").Click @@ script infofile_;_ZIP::Preference_ssf170.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Preference")_;_NFB_;_1341254_;_
Browser("Accela Automation:_36").Page("Accela Automation:").WebList("DefaultPage").Select(1) @@ script infofile_;_ZIP::DefaultPage_ssf171.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation:").WebList("DefaultPage")_;_NFB_;_1341255_;_
Browser("Accela Automation:_36").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf172.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation:").Image("Submit")_;_NFB_;_1341255_;_
wait(5)
If Browser("Accela Automation:_36").Page("Accela Automation:").WebList("DefaultPage").GetROProperty("value") <> "Accela home" Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"modify the perfernce failed")
End If
'b. modify the perference with original data
Call objTestLib.printfile(file,3,"        b. modify the perference with original data")
Browser("Accela Automation:_36").Page("Accela Automation:_2").WebList("DefaultPage").Select "Accela home" @@ script infofile_;_ZIP::DefaultPage_ssf173.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation: 2").WebList("DefaultPage")_;_NFB_;_1341256_;_
Browser("Accela Automation:_36").Page("Accela Automation:_2").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf174.inf_;_hightlight id_;_Browser("Accela Automation: 36").Page("Accela Automation: 2").Image("Su
12345

script.mts - 源码说明

本页面展示了「QTP实例源码（完整）」中的 script.mts 源码文件，采用 MTS 编程语言编写，共 782 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与QTP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?