script.mts

QTP实例源码（完整）

Option Explicit 
'===========================================
Dim fso,file, filename, objTestLib, objmsgbox,TrueOrFlase
'===========================================
'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")
'===========================================

call objTestLib.printfile(file,3,"The end of all the scripts!")
call objTestLib.printfile(file,7)

Browser("Accela Automation:").Close

Do while("True")
	TrueOrFlase = Browser("index:=0").Exist
	If(TrueOrFlase = "False") then
	    Exit do
	Else
		Browser("index:=0").close 
	End if
Loop

objmsgbox.SQAMsgbox "The end of all the scripts! We will open the log file...", "AA Auto Test", 3, 0

SystemUtil.Run "notepad.exe",filename

set objmsgbox=nothing
set objTestLib=nothing
Set fso=nothing
Set file =nothing