script.mts

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

MTS
782 行
字号
12345
Option Explicit
'=================================================================
Dim  fso,file,filename,objTestLib,objmsgbox,oDesc,Edits,WebCheckBoxs
Dim  strMessage,strTemp,strValue,strEditValue,strEditName,NumberOfEdits
Dim  strInnertext,intFlag,Err_Flag,intNumber,intRowCount,intLoop
Dim  arrExpectValue,arrOriginalValue(5),arrTempValue(5),strOriginalValue
Dim  strAppNumber1,strAppNumber2,strAppNumber3,strAppNumberTotal
'fetch filename form the global sheet
'filename = "c:\log.txt"
Filename = DataTable.RawValue("filename",dtGlobalSheet)
'=================================================================
'create a new file system object to output information
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(filename,8,True)
Set objTestLib = createobject("TestLib.CLib")
'create a new sqamsgbox object
Set objmsgbox = CreateObject("SQAMsgbox.CMsgbox")
'=================================================================
'Retrieve the App no.
strAppNumber1 = Mid(DataTable.RawValue("Appno1",dtGlobalSheet),2)
strAppNumber2 = Mid(DataTable.RawValue("Appno2",dtGlobalSheet),2)
strAppNumber3 = Mid(DataTable.RawValue("Appno3",dtGlobalSheet),2)
strAppNumberTotal = strAppNumber1 & "-" & strAppNumber2 & "-" & strAppNumber3
'=================================================================
'On error Resume next

'###############################Section 1:  Application #####################
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====10. Addtl Info 
Call objTestLib.printfile(file,3,"   10. Addtl Info")
objmsgbox.SQAMsgbox "10. Addtl Info","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("App Summary").Click @@ script infofile_;_ZIP::App_Summary_ssf2.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("App Summary")_;_NFB_;_1081129_;_
Browser("Accela Automation:_2").Page("Accela Automation:").Image("tab_non_additioninfo").Click @@ script infofile_;_ZIP::tab_non_additioninfo_ssf3.inf_;_hightlight id_;_Browser("Accela Automation: 2").Page("Accela Automation:").Image("tab non additioninfo")_;_NFB_;_1081130_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("Adlvaluation").Set "500000" @@ script infofile_;_ZIP::Adlvaluation_ssf4.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("Adlvaluation")_;_NFB_;_1081131_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AdlHOUSE_COUNT").Set "2" @@ script infofile_;_ZIP::AdlHOUSE_COUNT_ssf5.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("AdlHOUSE COUNT")_;_NFB_;_1081131_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AdlBUILDING_COUNT").Set "2" @@ script infofile_;_ZIP::AdlBUILDING_COUNT_ssf6.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("AdlBUILDING COUNT")_;_NFB_;_1081131_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebList("AdlConst_Type_Code").Select "102 - Single Family Houses Attached" @@ script infofile_;_ZIP::AdlConst_Type_Code_ssf7.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebList("AdlConst Type Code")_;_NFB_;_1081131_;_
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Save").Click 23,8 @@ script infofile_;_ZIP::Save_ssf8.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Save")_;_NFB_;_1081131_;_
If Browser("Accela Automation:_2").Page("Accela Automation:").Link("Detail").Exist(5) Then
    strInnerText = Browser("Accela Automation:_2").Page("Accela Automation:").WebTable("Parcel No.:").GetROProperty("innertext")
	If instr(strInnerText,"$500,000.00") <> 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"updated additional info failed")
	End If
Elseif Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Exist Then
   	strMessage = Browser("Accela Automation:_3").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
    Call objTestLib.printfile(file,5,"cannot update the spec info, the error message is " & strMessage)
	Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf184.inf_;_hightlight id_;_2_;_
Else
	Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
	Browser("Accela Automation:").back
End If

'Browser("Accela Automation:_2").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf10.inf_;_hightlight id_;_Browser("Accela Automation: 2").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1081133_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::Accela_Automation__ssf11.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1081134_;_

'=====11. App Spec Info 
Call objTestLib.printfile(file,3,"   11. App Spec Info")
objmsgbox.SQAMsgbox "11. App Spec Info","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("App Summary").Click @@ script infofile_;_ZIP::App_Summary_ssf12.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("App Summary")_;_NFB_;_1081135_;_
Browser("Accela Automation:_2").Page("Accela Automation:").Image("App Specific").Click @@ script infofile_;_ZIP::App_Specific_ssf13.inf_;_hightlight id_;_Browser("Accela Automation: 2").Page("Accela Automation:").Image("App Specific")_;_NFB_;_1081136_;_
'Browser("Accela Automation:_4").Page("Accela Automation:").WebEdit("txtChkBoxComment8").Set "1" @@ script infofile_;_ZIP::txtChkBoxComment8_ssf14.inf_;_hightlight id_;_Browser("Accela Automation: 4").Page("Accela Automation:").WebEdit("txtChkBoxComment8")_;_NFB_;_1081137_;_
Browser("Accela Automation:_4").Page("Accela Automation:").WebEdit("txtChkBoxComment9").Set "1" @@ script infofile_;_ZIP::txtChkBoxComment9_ssf15.inf_;_hightlight id_;_Browser("Accela Automation: 4").Page("Accela Automation:").WebEdit("txtChkBoxComment9")_;_NFB_;_1081137_;_
Browser("Accela Automation:_4").Page("Accela Automation:").WebEdit("txtChkBoxComment10").Set "1" @@ script infofile_;_ZIP::txtChkBoxComment10_ssf16.inf_;_hightlight id_;_Browser("Accela Automation: 4").Page("Accela Automation:").WebEdit("txtChkBoxComment10")_;_NFB_;_1081137_;_
Browser("Accela Automation:_4").Page("Accela Automation:").Image("Save").Click 27,6 @@ script infofile_;_ZIP::Save_ssf19.inf_;_hightlight id_;_Browser("Accela Automation: 4").Page("Accela Automation:").Image("Save")_;_NFB_;_1081139_;_
If Browser("Accela Automation:_4").Dialog("Microsoft Internet").WinButton("OK").Exist(5) Then
    Browser("Accela Automation:_4").Dialog("Microsoft Internet").WinButton("OK").Click
	wait(5)
End If
If Browser("Accela Automation:_2").Page("Accela Automation:").Link("Detail").Exist Then
   Call objTestLib.printfile(file,4)
Elseif Browser("Accela Automation:_4").Dialog("Microsoft Internet").WinButton("OK").Exist Then
   	strMessage = Browser("Accela Automation:_4").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
    Call objTestLib.printfile(file,5,"cannot update the spec info, the error message is " & strMessage)
    Browser("Accela Automation:_4").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf185.inf_;_hightlight id_;_1_;_
Else
	Call objTestLib.printfile(file,5,"there occurs an unexpected error!")
	Browser("Accela Automation:").back
End If

'Browser("Accela Automation:_2").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf21.inf_;_hightlight id_;_Browser("Accela Automation: 2").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1081140_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::Accela_Automation__ssf22.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1081141_;_

'=====12. Hearing
Call objTestLib.printfile(file,3,"   12. Hearing")
objmsgbox.SQAMsgbox "12. Hearing","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("Hearing Summary").Click @@ script infofile_;_ZIP::Hearing_Summary_ssf37.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Hearing Summary")_;_NFB_;_1101149_;_
Call AddHearing()
If Err_Flag=False Then
   Call CancelHearing()
End If

Function AddHearing ()
	Err_Flag = True
	'a. add a hearing 
	Call objTestLib.printfile(file,3,"        a. add a hearing")
	Browser("Accela Automation:_5").Page("Accela Automation:").Image("Schedule").Click @@ script infofile_;_ZIP::Schedule_ssf38.inf_;_hightlight id_;_Browser("Accela Automation: 5").Page("Accela Automation:").Image("Schedule")_;_NFB_;_1101150_;_
	Wait(5)
	strInnerText = Browser("Accela Automation:_6").Page("Accela Automation:").WebTable("2. Select Available").GetROProperty("innertext")
	If instr(strInnerText,"No Records")=0 Then
	   '----
	   Err_Flag = False
	   
	Else
	   Call objTestLib.printfile(file,3,"         ---None, cannot find any available hearing!")
	   Browser("Accela Automation:_6").Page("Accela Automation:").Image("Cancel").Click @@ script infofile_;_ZIP::Cancel_ssf40.inf_;_hightlight id_;_Browser("Accela Automation: 6").Page("Accela Automation:").Image("Cancel")_;_NFB_;_1121152_;_
	End If
End Function

Function CancelHearing ()
	'b. cancel the new hearing 
	Call objTestLib.printfile(file,3,"        b. cancel the new hearing ")
	
End Function
	
'Browser("Accela Automation:_5").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf41.inf_;_hightlight id_;_Browser("Accela Automation: 5").Page("Accela Automation:").Image("tab menu")_;_NFB_;_1131154_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click

'=====13. Condition
Call objTestLib.printfile(file,3,"   13. Condition")
objmsgbox.SQAMsgbox "13. Condition","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("Condition Summary").Click @@ script infofile_;_ZIP::Condition_Summary_ssf45.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Condition Summary")_;_NFB_;_1131159_;_
Call AddCond()
If Err_Flag=False Then
   	'b. delete the new added condition
	Call objTestLib.printfile(file,3,"        b. delete the new added condition")
   	Call DeleteCond()
End If
Call AddStdCond()
If Err_Flag=False Then
   'd. delete the new added std condition
   Call objTestLib.printfile(file,3,"        d. delete the new added std condition")
   Call DeleteCond()
End If
 
Function AddCond ()
	Err_Flag = True
	'a. Add a new condition
	Call objTestLib.printfile(file,3,"        a. Add a new condition")
	Browser("Accela Automation:_7").Page("Accela Automation:").Image("Add #LCASE(session.C").Click @@ script infofile_;_ZIP::Add__LCASE(session.C_ssf46.inf_;_hightlight id_;_Browser("Accela Automation: 7").Page("Accela Automation:").Image("Add #LCASE(session.C")_;_NFB_;_1131160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").WebList("Sel_Type").Select "Condition" @@ script infofile_;_ZIP::Sel_Type_ssf47.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").WebList("Sel Type")_;_NFB_;_1141160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").WebEdit("Condition").Set "Agency Testing" @@ script infofile_;_ZIP::Condition_ssf48.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").WebEdit("Condition")_;_NFB_;_1141160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").WebEdit("Comment").Set "Agency Testing" @@ script infofile_;_ZIP::Comment_ssf49.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").WebEdit("Comment")_;_NFB_;_1141160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").WebList("Sel_Severity").Select "Required" @@ script infofile_;_ZIP::Sel_Severity_ssf50.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").WebList("Sel Severity")_;_NFB_;_1141160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").Image("Select Date").Click @@ script infofile_;_ZIP::Select_Date_ssf51.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Select Date")_;_NFB_;_1141160_;_
	Browser("Select Date").Page("Select Date").Link("29").SetTOProperty "text",day(date)
	Browser("Select Date").Page("Select Date").Link("29").Click @@ script infofile_;_ZIP::29_ssf52.inf_;_hightlight id_;_Browser("Select Date").Page("Select Date").Link("29")_;_NFB_;_1151160_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").Image("Select Date_2").Click @@ script infofile_;_ZIP::Select_Date_2_ssf53.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Select Date 2")_;_NFB_;_1141160_;_
	Browser("Select Date").Page("Select Date").Link("30").SetTOProperty "text",Trim(day(date+1))
	Browser("Select Date").Page("Select Date").Link("30").Click @@ script infofile_;_ZIP::30_ssf54.inf_;_hightlight id_;_Browser("Select Date").Page("Select Date").Link("30")_;_NFB_;_1161161_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").Image("Select Date_3").Click @@ script infofile_;_ZIP::Select_Date_3_ssf55.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Select Date 3")_;_NFB_;_1141161_;_
	Browser("Select Date").Page("Select Date").Link("31").SetTOProperty "text",Trim(day(date+3))
	Browser("Select Date").Page("Select Date").Link("31").Click @@ script infofile_;_ZIP::31_ssf56.inf_;_hightlight id_;_Browser("Select Date").Page("Select Date").Link("31")_;_NFB_;_1171162_;_
	Browser("Accela Automation:_8").Page("Accela Automation:").Image("Submit").Click 36,9 @@ script infofile_;_ZIP::Submit_ssf57.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Submit")_;_NFB_;_1141162_;_
	wait(10)
12345

script.mts - 源码说明

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

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

⌨️ 快捷键说明

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