script.mts

QTP实例源码（完整）

'f.Test the search button in owner section
Call objTestLib.printfile(file,3,"      f.Test the search button in owner section")
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Search for Owner").Click @@ script infofile_;_ZIP::Search_for_Owner_ssf21.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Search for Owner")_;_NFB_;_612220_;_
Browser("Accela Automation:_8").Page("Accela Automation:").Image("Submit").Click 20,3 @@ script infofile_;_ZIP::Submit_ssf22.inf_;_hightlight id_;_Browser("Accela Automation: 8").Page("Accela Automation:").Image("Submit")_;_NFB_;_622222_;_
strTemp = Browser("Accela Automation:_9").Page("Accela Automation:").WebTable("Owner Name").GetCellData(3,1)
Browser("Accela Automation:_9").Page("Accela Automation:").Image("Selbtn").Click @@ script infofile_;_ZIP::Selbtn_ssf23.inf_;_hightlight id_;_Browser("Accela Automation: 9").Page("Accela Automation:").Image("Selbtn")_;_NFB_;_622223_;_
wait(4)
strOwner = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("OwnB1_OWNER_FULL_NAME").GetROProperty("value")
If instr(strTemp,strOwner) > 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"Get owner inforamtion failed!")
End If

Browser("Accela Automation:_3").Page("Accela Automation:").Image("Get Parcel and").Click @@ script infofile_;_ZIP::Get_Parcel_and_ssf26.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Get Parcel and")_;_NFB_;_652227_;_
wait(5)

'g.Test the search button in Licensed Professional Information section
Call objTestLib.printfile(file,3,"      g.Test the search button in Licensed Professional Information section")
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Search for Licensed").Click @@ script infofile_;_ZIP::Search_for_Licensed_ssf27.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Search for Licensed")_;_NFB_;_662229_;_
Browser("Accela Automation:_11").Page("Accela Automation:").Image("Search").Click 25,15 @@ script infofile_;_ZIP::Search_ssf28.inf_;_hightlight id_;_Browser("Accela Automation: 11").Page("Accela Automation:").Image("Search")_;_NFB_;_672230_;_
strTemp = Browser("Accela Automation:_12").Page("Accela Automation:").WebTable("License #").GetCellData(3,1)
Browser("Accela Automation:_12").Page("Accela Automation:").Image("Select Licensed").Click @@ script infofile_;_ZIP::Select_Licensed_ssf29.inf_;_hightlight id_;_Browser("Accela Automation: 12").Page("Accela Automation:").Image("Select Licensed")_;_NFB_;_672231_;_
wait(4)
If Browser("Accela Automation:_13").Page("Accela Automation:").Image("Close window").Exist Then
   Browser("Accela Automation:_13").Page("Accela Automation:").Image("Close window").Click @@ script infofile_;_ZIP::Close_window_ssf30.inf_;_hightlight id_;_Browser("Accela Automation: 13").Page("Accela Automation:").Image("Close window")_;_NFB_;_682233_;_
End If
strLicensed = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("CAEB1_LICENSE_NBR").GetROProperty("value")
If instr(strTemp,strLicensed) > 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"Get licensed professional inforamtion failed!")
End If

'h.Test the search button in Applicant Information section
Call objTestLib.printfile(file,3,"      h.Test the search button in Applicant Information section")
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Copy Contact").Click @@ script infofile_;_ZIP::Copy_Contact_ssf31.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Copy Contact")_;_NFB_;_692234_;_
Browser("Accela Automation:_14").Page("Accela Automation:").Image("Submit").Click 26,10 @@ script infofile_;_ZIP::Submit_ssf32.inf_;_hightlight id_;_Browser("Accela Automation: 14").Page("Accela Automation:").Image("Submit")_;_NFB_;_702235_;_
strTemp = Browser("Accela Automation:_15").Page("Accela Automation:").WebTable("Contact Type").GetCellData(3,2)
Browser("Accela Automation:_15").Page("Accela Automation:").Image("Select Contact").Click @@ script infofile_;_ZIP::Select_Contact_ssf33.inf_;_hightlight id_;_Browser("Accela Automation: 15").Page("Accela Automation:").Image("Select Contact")_;_NFB_;_702236_;_
wait(4)
strBusiness = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AppB1_BUSINESS_NAME").GetROProperty("value")
If instr(strTemp,strBusiness) > 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"Get Applicant Information failed!")
End If

'i.Test the As Owner button in Applicant Information section
Call objTestLib.printfile(file,3,"      i.Test the As Owner button in Applicant Information section")
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Copy Owner info").Click @@ script infofile_;_ZIP::Copy_Owner_info_ssf34.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Copy Owner info")_;_NFB_;_712237_;_
wait(4)
strBusiness = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AppB1_BUSINESS_NAME").GetROProperty("value")
If len(strLicensed) > 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"Get Applicant Information failed!")
End If

'j.Test the As Lif. Prof button in Applicant Information section
Call objTestLib.printfile(file,3,"      j.Test the As As Lif. Prof button in Applicant Information section")
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Copy Licensed").Click @@ script infofile_;_ZIP::Copy_Licensed_ssf35.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Copy Licensed")_;_NFB_;_712237_;_
wait(4)
strBusiness = Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AppB1_BUSINESS_NAME").GetROProperty("value")
If len(strLicensed) > 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"Get Applicant Information failed!")
End If

'k. fill in other additional information and submit
Call objTestLib.printfile(file,3,"      k. fill in other additional information and submit")
Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("Adlvaluation").Set "250000" @@ script infofile_;_ZIP::Adlvaluation_ssf36.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("Adlvaluation")_;_NFB_;_712237_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebEdit("AdlHOUSE_COUNT").Set "1" @@ script infofile_;_ZIP::AdlHOUSE_COUNT_ssf37.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebEdit("AdlHOUSE COUNT")_;_NFB_;_712237_;_
Browser("Accela Automation:_3").Page("Accela Automation:").WebList("AdlConst_Type_Code").Select "101 - Single Family Houses Detached (QA1)" @@ script infofile_;_ZIP::AdlConst_Type_Code_ssf38.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").WebList("AdlConst Type Code")_;_NFB_;_712237_;_
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Select Date").Click @@ script infofile_;_ZIP::Select_Date_ssf39.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Select Date")_;_NFB_;_712237_;_
Browser("Select Date").Page("Select Date").Link("19").SetTOProperty "text",day(Date)
Browser("Select Date").Page("Select Date").Link("19").Click @@ script infofile_;_ZIP::19_ssf40.inf_;_hightlight id_;_Browser("Select Date").Page("Select Date").Link("19")_;_NFB_;_722237_;_
Browser("Accela Automation:_3").Page("Accela Automation:").Image("Submit").Click 28,5 @@ script infofile_;_ZIP::Submit_ssf50.inf_;_hightlight id_;_Browser("Accela Automation: 3").Page("Accela Automation:").Image("Submit")_;_NFB_;_782246_;_
If Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Exist=False Then
    Call objTestLib.printfile(file,4)
Else
	strMessage = Browser("Accela Automation:_3").Dialog("Microsoft Internet").Static("Warnning").GetROProperty("text")
	Call objTestLib.printfile(file,5,"cannot submit this form, the error message is " & strMessage)
	Browser("Accela Automation:_3").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf51.inf_;_hightlight id_;_2_;_
End If

'l.Verify new application details info
Call objTestLib.printfile(file,3,"      i.Verify new application details info")
'(1)fetch new application number
Call objTestLib.printfile(file,3,"      (1).fetch new application number")
strAppNumber1 = Browser("Accela Automation:_16").Page("Accela Automation:").WebEdit("PerID1").GetROProperty("value")
strAppNumber2 = Browser("Accela Automation:_16").Page("Accela Automation:").WebEdit("PerID2").GetROProperty("value")
strAppNumber3 = Browser("Accela Automation:_16").Page("Accela Automation:").WebEdit("PerID3").GetROProperty("value")
If len(strAppNumber1) > 0 And len(strAppNumber2) > 0 And len(strAppNumber3) > 0 Then
    Call objTestLib.printfile(file,4)
	strAppNumberTotal = strAppNumber1 & "-" & strAppNumber2 & "-" & strAppNumber3
	DataTable("Appno1",dtGlobalSheet) = "*" & strAppNumber1
	DataTable("Appno2",dtGlobalSheet) = "*" & strAppNumber2
	DataTable("Appno3",dtGlobalSheet) = "*" & strAppNumber3
	objmsgbox.SQAMsgbox "A new application created successfully!! The number is: " & strAppNumberTotal,"AA Auto Test",3,0
Else
	objmsgbox.SQAMsgbox "Creating application failed!","AA Auto Test",3,0
	Call objTestLib.printfile(file,5,"Creating application failed!")
End If
'(2).verify the detail and comments links
Call objTestLib.printfile(file,3,"      (2).verify the detail and comments links")
Browser("Accela Automation:_16").Page("Accela Automation:").Link("Detail").Click @@ script infofile_;_ZIP::Detail_ssf42.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").Link("Detail")_;_NFB_;_732239_;_
Browser("Accela Automation:_17").Page("Accela Automation:").Sync @@ script infofile_;_ZIP::Accela_Automation__ssf43.inf_;_hightlight id_;_Browser("Accela Automation:_17").Page("Accela Automation:")_;_NFB_;_732240_;_
strInnerText = Browser("Accela Automation:_17").Page("Accela Automation:").WebTable("Job Value:").GetROProperty("innertext")
If instr(strInnerText,"Job Value:") <> 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"the detail link is bad!")
End If
Browser("Accela Automation:_17").Back
Browser("Accela Automation:_16").Page("Accela Automation:").Link("Comments").Click @@ script infofile_;_ZIP::Comments_ssf44.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").Link("Comments")_;_NFB_;_732241_;_
If Browser("Accela Automation:_18").Page("Accela Automation:").Link("New Comment").Exist Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"the detail link is bad!")
End If
Browser("Accela Automation:_18").Page("Accela Automation:").Image("Close").Click @@ script infofile_;_ZIP::Close_ssf47.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("Close")_;_NFB_;_762244_;_

'Browser("Accela Automation:_16").Page("Accela Automation:").Link("Menu").Click @@ script infofile_;_ZIP::Menu_ssf48.inf_;_hightlight id_;_Browser("Accela Automation: 16").Page("Accela Automation:").Link("Menu")_;_NFB_;_772244_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Menu").Click
'=====2. Find Application 
Call objTestLib.printfile(file,3,"   2. Find Application ")
objmsgbox.SQAMsgbox "2. Find Application","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf49.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_772245_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Find App").Click @@ script infofile_;_ZIP::Find_App_ssf52.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Find App")_;_NFB_;_782247_;_
Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("PerID1_TXT").Set strAppNumber1 @@ script infofile_;_ZIP::PerID1_TXT_ssf53.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebEdit("PerID1 TXT")_;_NFB_;_782248_;_
Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("PerID2_TXT").Set strAppNumber2 @@ script infofile_;_ZIP::PerID2_TXT_ssf54.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebEdit("PerID2 TXT")_;_NFB_;_782248_;_
Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("PerID3_TXT").Set strAppNumber3 @@ script infofile_;_ZIP::PerID3_TXT_ssf55.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebEdit("PerID3 TXT")_;_NFB_;_782248_;_
Browser("Accela Automation:_19").Page("Accela Automation:").Image("Submit").Click 25,13 @@ script infofile_;_ZIP::Submit_ssf56.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").Image("Submit")_;_NFB_;_782248_;_
strTemp = Browser("Accela Automation:_20").Page("Accela Automation:").WebTable("Application").GetCellData(2,2)
If Ucase(strTemp)=strAppNumberTotal Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"cannot find the new created application")
End If
Browser("Accela Automation:_20").Page("Accela Automation:").Image("Select").Click @@ script infofile_;_ZIP::Select_ssf57.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Select")_;_NFB_;_782249_;_