试试在 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

经实际运行测试，吹版的办法实现了预期，。
点击课本链接，打开课本内容没有出现新的窗口，显示在了咱们的表单中，只是这个网站有新版和旧版之分，咱们这个办法会迫使网站自动切换到旧版模式运行，此时刚刚登录的账号和密码验证就失效了，又出现了旧版网站的用户验证界面，需要重新输入用户名密码
有没有一个办法，点击课本链接时允许打开新的IE窗口（不在咱们的表单中），但是让新的IE窗口自动位于最上方，目前我把咱们的表单设置为ALWAYSONTOP=.T.，目的是挡住下方的任务栏，就是防止学生通过任务栏和开始按钮去打开别的东西，但这样就把新出现的IE窗口挡住了。