Need Script for the below scenario which will solve my actual issue

[RameshKrishnan]

hi frds ...i have figured to solve my issue...If we goto Tools-->Object Identification-->Environment--->Standard Windows-->Window Object (in Test Object classes)-->Mandatory Propertied--->Add/Remove--->Check Visible Property..If I record in QTP after doing this am able to identify the window and able to complete my script.

Still I have 2 issues in my script pls help me in this.I have attached my code below.

Issue 1 : If it goes into the below If condtion (on right click of a image in webtable),a window opens ,but its not moving to next line of the code until i click on some blank space in the apllication.If I click on any blank space of the application everthing is fine its moving to next loop and goes on until i face same situation again.

Need solution for this.

Code:

If Window("Window_2").WinMenu("ContextMenu").Exist Then
  Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebElement("html id:=mainprogramContainer").Click
    index_count = index_count + 5
    else

Code:

Dim index_count
Dim b
DataTable.AddSheet "Updated_By"
Datatable.GetSheet ("Updated_By").AddParameter "Sno"," "
Datatable.GetSheet ("Updated_By").AddParameter "Last_Name"," "
Datatable.GetSheet ("Updated_By").AddParameter "First_Name"," "
Datatable.GetSheet ("Updated_By").AddParameter "ID"," "
Datatable.GetSheet ("Updated_By").AddParameter "App_Name"," "


rws =Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebTable("name:=Previous Week").GetROProperty("rows")
cols =Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebTable("name:=Previous Week").GetROProperty("cols")
index_count = 4
b = 1
rCount=Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebTable("name:=Previous Week").GetROProperty("rows")
For r=2 to rCount
    cCount=Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebTable("name:=Previous Week").ColumnCount(r)
    For c=2 to cCount
        index_count = index_count
        b = b

Set obj=Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebTable("name:=Previous Week").Image("image type:=Plain Image","index:="& index_count)
obj.Highlight

Setting.WebPackage("ReplayType") = 2

obj.RightClick

Setting.WebPackage("ReplayType") = 1

[b]If Window("Window_2").WinMenu("ContextMenu").Exist Then
    index_count = index_count + 5
    else [/b]

Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").Link("name:=View app metadata").Click
updated_By = cstr (Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebElement("html id:=popUpViewMetaData").GetROProperty("innertext"))
sarray = Split (updated_By," ")
last_name = sarray(7)
first_name = sarray(8)
id                 = sarray(9)

Datatable.GetSheet("Updated_By").SetCurrentRow b
Datatable.value("Last_Name","Updated_By") = last_name
Datatable.value("First_Name","Updated_By") = first_Name
Datatable.value ("ID","Updated_By") = id
Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebElement("innertext:=View app metadataclose").Link("name:=close").Click

index_count  = index_count + 5
b = b+1
End If
Next
Next

---

Issue 2 : If it goes into the below else If condtion (on right click of a image in webtable),a window opens ,but i have to for some 15 or 20 sec for qtp to execute next line.
Can any one tell me how reduce this time or any other solution.

Code:

If Window("Window_2").WinMenu("ContextMenu").Exist Then
Browser("name:=Scheduling Week Calendar.*").Page("title:=Scheduling Week Calendar*").WebElement("html id:=mainprogramContainer").Click
index_count = index_count + 5
else