回复 10楼 qiuxingce
试试在 NewWindow3 事件中处理新建窗口问题,如:of = CREATEOBJECT("webForm")
of.show
READ EVENTS
CLEAR ALL
RETURN
DEFINE CLASS webForm AS Form
ShowWindow = 2
WindowState = 2
bLogin = .T.
ADD OBJECT WB AS Olecontrol WITH Width=this.width,Height=this.height,Anchor=15,OleClass="Shell.Explorer.2",Visible=.T.
PROCEDURE UnLoad
CLEAR EVENTS
ENDPROC
PROCEDURE Init
this.WB.Silent = .T.
this.WB.Navigate("https://tjebook.)
ENDPROC
PROCEDURE WB.NewWindow3(ppdisp, cancel, dwflags, bstrurlcontext, bstrurl)
cancel = .T. && 禁止新窗口
ppdisp = this && 在当前窗口打开
**IF (dwFlags == 6)
this.Navigate(bstrurl)
this.SetFocus
**ENDIF
ENDPROC
ENDDEFINE