Micro Focus QTP (UFT) Forums

I want to invoke the recording of QTP using AOM(automation object model) of QTP.
Requirement Explanation : I want to invoke QTP record through AOM using VBS.As we can create object of QTP application and using that object can control and use all the feature of QTP.
Following are the example which loads test and run using AOM of QTP.

Code:
Set gobjQtpApp = CreateObject("QuickTest.Application")

gobjQtpApp.Launch

gobjQtpApp.Visible = True

gobjQtpApp.Open "test path", True

gobjQtpApp.Test.Run

In the same way I want to invoke qtp application and then start recording using AOM.I have tried following code did not work.

gobjQtpApp.Test.Record

Please help me out

you can use the shell object and use the send keys to simulate the recording.

Code:
Set WShell =CreateObject("WScript.Shell")

WShell.SendKeys "{F3}"

WShell.SendKeys "{ENTER}"

I tried with the following code:

Code:
Dim shl

set shl = createobject("wscript.shell")

shl.sendkeys "{ENTER}"

wscript.Sleep (5000)

I am facing the below runtime error:

Object required: 'wscript'

Function file: C:\modal_window.vbs

Code:
Line (4): "wscript.Sleep (5000)".

I replaced 4th line of code as below:

Code:
Dim shl

set shl = createobject("wscript.shell")

shl.sendkeys "{ENTER}"

shl.Sleep (5000)

I am facing the below error:
Object doesn't support this property or method: 'Sleep'

Function file: C:\modal_window.vbs

Code:
Line (4): "shl.Sleep (5000)".

shailesh.gcettb@gmail.com

supputuri

Shriram