看来得弄懂那网页源代码，是怎么将数据隐藏起来的。只要找到隐藏的数据就好了。希望懂得网页源代码的高手能解决。

我试了下,只要将网页内容另存为TXT格式,就能显示数据内容了。

在浏览器中也可以查看源码的。菜单：查看——源文件。

CURL=[http://data.]
CSTR=STREXTRACT(HTTP2TXT(CURL),[期号开奖号码后2后3],[时时彩今日],1)
*STRTOFILE(CSTR,[TEST1.TXT])
*MODIFY FILE TEST1.TXT
CSTR=STRTRAN(CSTR,[期号开奖号码后2后3],[])
RQ=CHRTRAN(GETWORDNUM(CURL,5,[/]),[-],[])
CREATE CURSOR SSC (期号 C(11),奖号 C(5))
FOR I=1 TO OCCURS(CHR(13)+CHR(10),CSTR)
    IF !EMPTY(MLINE(CSTR,I))
       INSERT INTO SSC VALUES (RQ+LEFT(MLINE(CSTR,I),3),SUBSTR(MLINE(CSTR,I),4,5))
    ENDIF
ENDFOR
BROWSE

*--------------------------------------------

FUNCTION HTTP2TXT
PARAMETERS CURL_
IF PCOUNT()<>1 OR EMPTY(CURL_)
   RETURN
ENDIF
OIE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
OIE.NAVIGATE(CURL_)
N=0
DO WHILE OIE.READYSTATE<>4 AND N<20
   INKEY(0.1)
ENDDO
CTEXT=OIE.DOCUMENT.BODY.INNERTEXT
RELEASE OIE
RETURN CTEXT

CURL=[http://data.]+TRANSFORM(DATE()-1)+[/]
CSTR=STREXTRACT(HTTP2TXT(CURL),[期号开奖号码后2后3],[时时彩今日],1)
CSTR=STRTRAN(CSTR,[期号开奖号码后2后3],[])
RQ=CHRTRAN(GETWORDNUM(CURL,5,[/]),[-],[])
CREATE CURSOR SSC (期号 C(11),奖号 C(5))
FOR I=1 TO OCCURS(CHR(13)+CHR(10),CSTR)
    IF !EMPTY(MLINE(CSTR,I))
       INSERT INTO SSC VALUES (RQ+LEFT(MLINE(CSTR,I),3),SUBSTR(MLINE(CSTR,I),4,5))
    ENDIF
ENDFOR
BROWSE

*--------------------------------------------

FUNCTION HTTP2TXT
PARAMETERS CURL_
IF PCOUNT()<>1 OR EMPTY(CURL_)
   RETURN
ENDIF
OIE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
OIE.NAVIGATE(CURL_)
N=0
DO WHILE OIE.READYSTATE<>4 AND N<20
   INKEY(0.1)
ENDDO
CTEXT=OIE.DOCUMENT.BODY.INNERTEXT
RELEASE OIE
RETURN CTEXT

接

比较佩服月版主  分都给我吧

唉，这几天忙，没上来。sdta版主的代码，我总是运行不成功，不过给我们一个很好的思路，可以用INTERNETEXPLORER.APPLICATION对象。
时间太长了，提醒结贴，先结了贴再讨论。

不知道是何原因，有时候提取不到数据。