????????????????QTP???????????IM???????????????????EXPLOR???????QTP?????WinObject: Internet Explorer_Server????????????ò??????????????￡???????????????Explorer????棬??????Page?????????????????????????????winObject????Browser???????????????????????????????????
hwnd = Window("Popup").GetROProperty("hwnd")
Msgbox Browser("hwnd:=" & hwnd).Exist(0)
Msgbox Browser("hwnd:=" & hwnd).Page("micclass:=page").Exist(0)
Browser("hwnd:=" & hwnd).Page("micclass:=page").WebButton("name:=Approve").Click
??????? ??????????false??????????????????????￡???????????????н?????QTP?汾?????????????????tools->Register New Browser Control??????????????￡?????????÷?????
?????????????????????綣??????????????????????????壨???????????壩????QTP????????????Page??WebElement???????????е???????????????????壬???????????????????????????????????????????????????????????????????????????????????Σ??????Register???????й??????????????????????????????????.??????????
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebElement"
oDesc("html tag").Value = "DIV"
oDesc("class").Value = "MsgHistory"
Set EleConlection = Window("test(???:29855207)").Page("MsgHistory").ChildObjects(oDesc)
for i = 0 To EleConlection.Count - 1
print EleConlection(i).GetROProperty("innertext"??1000)
Next