07-25-2010, 02:10 PM
Hi,
Check with the below code:
Check with the below code:
Code:
Dim qtp_app
Set qtp_app = CreateObject("quicktest.application")
If qtp_app.launch = False Then
qtp_app.quit
qtp_app.launch
qtp_app.new
qtp_app.visible=True
End if
WScript.sleep 3000
If qtp_app.visible = True Then
qtp_app.quit
Set qtp_app=nothing
End if