QTP hangs on handling error window

[dtamilarasan]

My Requirement: When i click on a button in a dialog box, a window should come where as i need to click on OK button. Below is the code
**********************************

Code:

JavaWindow("My Teamcenter - Teamcenter").JavaWindow("My Teamcenter_Newdesign").JavaDialog("Remote Export Options").JavaTab("JTabbedPane").Select "Advanced"
JavaWindow("My Teamcenter - Teamcenter").JavaWindow("My Teamcenter_Newdesign").JavaDialog("Remote Export Options").Activate              
JavaWindow("My Teamcenter - Teamcenter").JavaWindow("My Teamcenter_Newdesign").JavaDialog("Remote Export Options").JavaButton("<<").click
' For loop to handle the window which occurs multiple times
Set objUnableWdw = JavaWindow("My Teamcenter - Teamcenter").JavaWindow("Shell").JavaWindow("Unable To Include Relation")
For i=0 to 10

If objUnableWdw.Exist(2) Then
    objUnableWdw.Activate
    objUnableWdw.JavaButton("OK").Click
else
    Exit For
End If

'**********************

In the above code, when I click on "<<" button, QTP gets hanged. If I handle that error window manually, the issue not happening.
Please advise how to handle this

[basanth27]

Do not use the For Loop. Instead use the below code per the instructions i have written below,

Code:

Set fso = CreateObject("WScript.Shell")
While fso.AppActivate("Your Window Name") = FALSE
wscript.sleep 1000
Wend
fso.SendKeys "a", True

fso.SendKeys "N", True

wscript.sleep 7000

While fso.AppActivate ("Your Window Name") = FALSE
wscript.sleep 1000
Wend

fso.SendKeys "N", True

How to use:
1. Save the above code as dialoghandler.vbs on your c:\ drive.
2. Be sure to modify the code to replace the window title or name.
3. Replace the appropriate keystrokes you need to send for the dialog. [ for eg :you may need to press "Enter" which inturn actually clicks on "OK" or "cancel" button.
4. Just before the line on QTP where the code executes and freezes QTP, enter this code,
SystemUtil.Run "C:\Windows\System32\Wscript.exe", "C:\dialoghandler.vbs"