我的老天，您是怎么学的，这也太厉害了，不是恭维，真的是佩服。我只会在窗口中添加一个web的控件，然后打开某一个网页......还是研究了好久才成功的......

设置一个网页为：所有指数， 关闭网页后，再打开网页，所有网页都为 所有指数

页面载入完后自动选择“所有指数”

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as form
    width = 1024
    height = 500
    ADD OBJECT WB as Olecontrol WITH left=0,top=0,width=1024,height=500,oleclass="Shell.Explorer.2",visible=.T.
    PROCEDURE Init
        this.WB.Silent = .T.
        this.WB.Navigate("http://score./1x2/2020255.htm")
    ENDPROC
    PROCEDURE WB.documentComplete(pdisp, url)
        IF (SYS(3095,pdisp) == SYS(3095,this))
            this.document.getElementById("sel_showType").value = 1
            this.document.parentWindow.execScript("changeShowType(1);", "JavaScript")
        ENDIF
    ENDPROC
ENDDEFINE

真的非常感谢老师的指点
来到这个网站我真的非常很震撼！第一是因为看到这么厉害的高手，第二是因为看到这么厉害的高手竟然愿意为我们这些小学水平的人解惑！
非常感谢！我也多努力学习，虽然不能赶上老师的水平，最起码自己能提高一些。

也是来论坛学到的
取之于论坛，用之于论坛而已

结帖感谢！第一次来这个论坛求助发帖，遇到了非常厉害的老师解答我的问题，心里非常感激/高兴/激动/，感谢老师费心解答我的问题！这几天一直仔细研究老师的程序代码，说实话，不好意思的讲，老师这么精炼的代码我得再仔细研究研究，不过不要紧，老师给了我启发，我慢慢研究慢慢学习，相信过过段时间我会慢慢进步的，再次感谢！！！

结帖感谢！第一次来这个论坛求助发帖，遇到了非常厉害的老师解答我的问题，心里非常感激/高兴/激动/，感谢老师费心解答我的问题！这几天一直仔细研究老师的程序代码，说实话，不好意思的讲，老师这么精炼的代码我得再仔细研究研究，不过不要紧，老师给了我启发，我慢慢研究慢慢学习，相信过过段时间我会慢慢进步的，再次感谢！！！