Function fnWEB_objBrowserPage()
	On error resume next
		Set oBrowser = nothing

		Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString
		Hwnd = extern.FindWindow("IEFrame",vbNullString) ' returns value of hwnd

		Set oBrowser = Description.Create
		oBrowser ("hwnd").value = Hwnd

		nativeHWND = Browser("hwnd:=" & Hwnd).Object.hWnd
		Window("HWND:="& nativeHWND).Activate

		Set oBrowser1 = Browser(oBrowser)
		Set oBrowser = Browser(oBrowser).Page("micClass:=Page")

		'msgbox oBrowser.getROProperty("title")
	On error GoTo 0
End Function

I am trying to fetch hwnd value of a browser using following code.

Function fnWEB_objBrowserPage()
On error resume next
Set oBrowser = nothing
Extern.Declare micHwnd, “FindWindow”, “user32.dll”, “FindWindowA”, micString, micString
Hwnd = extern.FindWindow(“IEFrame”,vbNullString) ‘ returns value of hwnd
Set oBrowser = Description.Create
oBrowser (“hwnd”).value = Hwnd
‘Window(“HWND:=”&Hwnd).Activate
Set oBrowser1 = Browser(oBrowser)
Set oBrowser = Browser(oBrowser).Page(“micClass:=Page”)
‘msgbox oBrowser.getROProperty(“title”)
On error GoTo 0
End Function
‘End of code

extern.FindWindow(“IEFrame”,vbNullString) returns ‘native’ value of an open browser
however when i use this property, QTP is not able to identify the browser using hwnd property since it checks for the identification hwnd property.
it is working fine with IE6 but not working for IE7 and above.
using object spy, i have observed that the native HWND property value and identification HWND property value is different
Is there any solution for this ??

Regards,
Maulik

I want to Connect IBM DB2 database. I used the following lines to connect. when i run the below code i get a Error message “[[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
Line (6): “cnMidas.Open”. ”
Set cn = CreateObject(“ADODB.Connection”)
connectionstr =”Driver={IBM DB2 ODBC DRIVER};Database=myDatabase;Hostname=myserver Address;Port=1234;Protocol=TCPIP;Uid=myuserID;Pwd=mypassword;”
cn.connectionstring = connectionstr
cn.Open
If cn.state=1 then
msgbox “Pass”
Else
msgbox “Fail”
End If

Can you please help me regarding this issue?

Function BrowserActivate(Object)
	Dim hWnd

	hWnd = Object.GetROProperty("hwnd")

	On Error Resume Next
		Window("hwnd:=" & hWnd).Activate

		If Err.Number <> 0 Then
			Window("hwnd:=" & Browser("hwnd:=" & hWnd).Object.hWnd).Activate
			Err.Clear
		End If
	On Error Goto 0
End Function

RegisterUserFunc "Browser", "Activate", "BrowserActivate"

Function BrowserMinimize(Object)
	Dim hWnd

	hWnd = Object.GetROProperty("hwnd")

	On Error Resume Next
		Window("hwnd:=" & hWnd).Activate

		If Err.Number <> 0 Then
			hWnd = Browser("hwnd:=" & hWnd).Object.hWnd
			Window("hwnd:=" & hWnd).Activate
			Err.Clear
		End If

		Window("hwnd:=" & hWnd).Minimize
	On Error Goto 0
End Function

RegisterUserFunc "Browser", "Minimize", "BrowserMinimize"

'code
SystemUtil.Run "iexplore.exe", "http://google.com", , , 3

With Browser("title:=Google")
	If .Exist(15) Then
		.Activate
		.Minimize
	End If
End With

OS = Window XP , QTP Version 10.0 , IE7

Hi Anshoo,

I am not able to execute successfully

I am using this code ,

Function BrowserActivate(Object)
Dim hWnd

hWnd = Browser(“hwnd:=” & hWnd).Object.hWnd

On Error Resume Next
Window(“hwnd:=” & hWnd).Activate

If Err.Number 0 Then
Window(“hwnd:=” & Browser(“hwnd:=” & hWnd).Object.hWnd).Activate
Err.Clear
End If
On Error Goto 0
End Function

RegisterUserFunc “Browser”, “Activate”, “BrowserActivate”

Function BrowserMinimize(Object)
Dim hWnd

hWnd = Browser(“hwnd:=” & hWnd).Object.hWnd

On Error Resume Next
Window(“hwnd:=” & hWnd).Activate

If Err.Number 0 Then
hWnd = Browser(“hwnd:=” & hWnd).Object.hWnd
Window(“hwnd:=” & hWnd).Activate
Err.Clear
End If

Window(“hwnd:=” & hWnd).Minimize
On Error Goto 0
End Function

RegisterUserFunc “Browser”, “Minimize”, “BrowserMinimize”

Set obj = Description.create()

obj(“micclass”).value = “Browser”

obj(“name”).value = “QTP Browser Methods.*” ‘ : .Activate .Maximize .Minimize — Relevant Codes (by Anshoo Arora)”

obj(“title”).value = “QTP Browser Methods.*” ‘: .Activate .Maximize .Minimize — Relevant Codes (by Anshoo Arora) – Windows Internet Explorer”

Call BrowserMinimize(obj)

I am getting this error

“Cannot identify the object “[ Browser ]” (of class Browser). Verify that this object’s properties match an object currently displayed in your application.

Line (26): “hWnd = Browser(“hwnd:=” & hWnd).Object.hWnd”. “

Im Automating putty using QTP. here i need to run some jobs using Unix commands for 2 different environment and compare the 2 resulting records. is this possible with QTP??