Thursday, March 12, 2009

Automation Object Model

This is the Post for Automation Object Model....

'Sample code for automate Quick Test


Dim qtp

'Creating QTP instance using CreateObject for QuickTest Professional Application

set qtp=createobject("QuickTest.application")

'Launching the QTP Application

qtp.launch

'View the QTP on Desktop by using Visible property by default it is false

qtp.visible=true

'Maximize the QTP window ' By default it is small window.

qtp.windowstate="maximized"

qtp.open "F:\baba 3+,2+\tests\trail"

qtp.test.run

qtp.open "F:\baba 3+,2+\tests\temperature conversion"

qtp.test.run

qtp.open "F:\baba 3+,2+\tests\inbuilt functions"

qtp.test.run

'wait(2)

qtp.quit

set qtp=nothing

Thanks & regards

Baba Fakruddin.D

No comments:

There was an error in this gadget