【软件自动化测试-QTP实战技能 10】== Reporter.ReportEvent micDone

Variable = DataTable.AddSheet("MyShee2").AddParameter("Time","Flight")
Dialog("Login").WinEdit("Agent Name:").Set "mercury"
'pwd = "4be8f7806c7051a412e452d5e82f4b29cffb9ed7"
'e_pwd = Crypt.Encrypt(pwd)
Dialog("Login").WinEdit("Password:").SetSecure "4be8f7806c7051a412e452d5e82f4b29cffb9ed7"
'Dialog("Login").WinEdit("Password:").SetSecure e_pwd
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").CaptureBitmap("c:/test/pig.bmp")
Window("Flight Reservation").Close

Reporter.ReportEvent micDone,"Filght","This is true","c:/test/pig.bmp"