Write the following code in ole_1 clicked event:

String ls_tagName ls_id, ls_href

Ls_tagName=ole_1. Object. The document. ActiveElement. TagName
Messagebox (" ", ls_tagName)
If upper (trim (ls_tagName))="A" then
Ls_id=ole_1. Object. The document. ActiveElement. Id
Ls_href=https://bbs.csdn.net/topics/ole_1.object.Document.activeElement.href

Messagebox (' ', ls_tagName + '/' + + ls_href ls_id + '/')

Ole_1. Object. Navigate (ls_href)
End the if

Problem description:
The mouse to click the normal for the first time, namely the pop-up dialog click on the link: BODY; Click on the links to the pop-up dialog A
Mouse click is not normal for the first time, that is, click on the link to the pop-up dialog box: A; Click on the link to the same pop-up dialog A
Unless to refresh the web page is back to normal, asked him how to solve, thank you!!!!!!

CodePudding user response:

Step it and see where is the error code