Clear
Wait Window "请稍等片刻......" Nowait
oIE = Createobject("internetexplorer.application")
oIE.Visible = .F.
oIE.Navigate("https://k3.)
tStartSecond = Seconds()
Do While oIE.Busy = .T. Or oIE.ReadyState#4
    If Seconds() - tStartSecond > 10
        Exit
    Endif
    =Inkey(0.5)
Enddo
 
Create Cursor 河南快三 (期号 c(4),百位 c(8), 十位 c(12), 个位 c(8))
 
objTable = oIE.Document.getElementsByTagName("table").[0]
 
For Each objRow In objTable.Rows
    If objRow.cells(0).innertext <> "期号"
    ? objRow.cells(0).innertext
        Insert Into 河南快三 (期号 ,百位, 十位, 个位);
            Values (objRow.cells(0).innertext, ;
            objRow.cells(1).innertext, objRow.cells(2).innertext,objRow.cells(3).innertext)
    Endif
Next
 
Wait Window "完成." Timeout 3
 
oIE.Quit()
 
Go Top
Browse Last Title "河南快三"

上面的代码好像对HTTPS的网页没有效果，我用的是傲游浏览器
只能在IE内核的浏览器中使用。

分屏、分页、隔行等信息截取还是搞不懂，还请老师帮忙指点下

爱彩乐网站的数据，最后一条数据取不到。我是在老版下取的数据。
看下这个网站的数据：https://www.
如果只是下载数据用于研究，可以通过手工的方法复制当前页面的数据，再用VFP来处理。