Not able to record qtp from vb.NET

[_IllusiveMan_]

Hi,

I am creating an application using vb.net which will launch and start recording qtp.

code snippet is below

Code:

qtpApp = CreateObject("QuickTest.Application") qtpApp.Launch() qtpApp.Visible = False 'qtpApp.WindowState = "Minimized" qtpApp.ActivateView("ExpertView") qtpApp.Visible = False ' qtpApp.New() WScript.Sleep(1000) qtpApp.ActivateView("ExpertView") 'qtApp.Visible = True WshShell = CreateObject("Wscript.Shell") WScript.Sleep(10000) qtpApp.Visible = True qtpApp.WindowState = "Maximized" WScript.Sleep(500) WshShell.SendKeys("{F3}") WScript.Sleep(100) WshShell.SendKeys("{enter}") qtpApp.WindowState = "Minimized" qtpApp.Visible = False WScript.Sleep(800) _blQTPLaunched = True

It is launching qtp, but sendkey is not working. What am i doing wrong here?

[parminderdhiman84]

Try using this:

Code:

Set qtpApp = CreateObject("QuickTest.Application") qtpApp.Launch() qtpApp.Visible = False 'qtpApp.WindowState = "Minimized" qtpApp.ActivateView("ExpertView") qtpApp.Visible = False ' qtpApp.New() WScript.Sleep(1000) qtpApp.ActivateView("ExpertView") 'qtApp.Visible = True Set WshShell = CreateObject("Wscript.Shell") WScript.Sleep(10000) qtpApp.Visible = True qtpApp.WindowState = "Maximized" WScript.Sleep(500) WshShell.SendKeys("{F3}") WScript.Sleep(100) WshShell.SendKeys("{enter}") qtpApp.WindowState = "Minimized" qtpApp.Visible = False WScript.Sleep(800)

[Acharya_silu@yahoo.com]

Ans:

Hi,

You have missed Set Keyword i,e

Code:

Set WshShell = CreateObject("Wscript.Shell")

should be used.

Thanks

[_IllusiveMan_]

Thanks for the reply

It says Let and Set are no longer supported. I am developing WPF application in Visual studio 2010.