https://

cUrl = "https://
oHTTP=NEWOBJECT("MSXML2.XMLHTTP")
oHTTP.Open("post", cUrl, .F.)
oHTTP.SETREQUESTHEADER("Content-Type", "text/html;charset=UTF-8")
oHTTP.Send()
lcText = STRCONV(oHTTP.ResponseBody, 11)
? lcText

这样没有取到数据。

我水平有限，只能这样的，哈哈

怎样取得的？请指教一下

笨是笨了点    爬是爬下来了

CLEAR
PUBLIC oie
oie = CREATEOBJECT("internetexplorer.application")
lurl="https://
oie.Navigate(lurl)
DO WHILE oie.Busy OR oie.ReadyState!=4
   * DOEVENTS
    INKEY(2)
    ?? " 请稍候......",TIME()+0h0D
ENDDO
WAIT WINDOW "延时等待中..." TIMEOUT 1
bError = .F.
TRY
    lctext = oie.document.body.innerHTML
CATCH
    bError = .T.
    MESSAGEBOX("网页打开错误",0+16,"出错了")
ENDTRY

**?page=17">尾页
C1 = '<li class="PagedList-skipToLast">'
C2 = '</a></li></ul>'
页数=STREXTRACT(lcText, C1, C2,1)
?页数
C1 = '?page='
C2 = '">尾页'
页数=VAL((STREXTRACT(页数, C1, C2,1)))
 
   

*****标题行*******
C1 = '<th style="width: 20%;">'
C11='<th style="width: 5%;">'
C12='<th style="width: 15%;">'
C2 = "</th>"
a1=''
a1=a1+ALLTRIM(STREXTRACT(lcText, C1, C2,1))+','
a1=a1+ALLTRIM(STREXTRACT(lcText, C11, C2,1))+','
a1=a1+ALLTRIM(STREXTRACT(lcText, C12, C2,1))+','


C1 = '<th>'
C2 = "</th>"
FOR ii=1 TO 6
    a1=a1+ALLTRIM(STREXTRACT(lcText, C1, C2,ii))+','
ENDFOR
a1=a1+CHR(13)


*******************内容*****************
FOR aii1=1 TO 页数
   oie = CREATEOBJECT("internetexplorer.application")                  &&这里为什么不能重复打开？？一重复打开就出错
   oie.Navigate(lurl)
   DO WHILE oie.Busy OR oie.ReadyState!=4
      * DOEVENTS
       INKEY(2)
       ?? " 请稍候......",TIME()+0h0D
   ENDDO
   WAIT WINDOW "延时等待中..." TIMEOUT 2
  TRY
      lctext = oie.document.body.innerHTML
  CATCH
     bError = .T.
    MESSAGEBOX("网页打开错误",0+16,"出错了")
  ENDTRY
   C1 = '<td>'
   C2 = "</td>"
   FOR iii=1 TO  10
      a1=a1+ALLTRIM(STREXTRACT(lcText,'<td style="width: 20%;">', C2,iii))+','
      a1=a1+ALLTRIM(STREXTRACT(lcText,'<td style="width: 5%;">', C2,iii))+','
      a1=a1+CHRTRAN(ALLTRIM(STREXTRACT(lcText,'<td style="width: 15%;">', C2,iii)),CHR(10)+CHR(13),'')+','
      FOR ii=1 TO 6
         a1=a1+ALLTRIM(STREXTRACT(lcText, C1, C2,ii+(iii-1)*6))+','
      ENDFOR
      a1=a1+CHR(13)
   ENDFOR
   c1='<li class="PagedList-skipToNext"><a href="'
   c2='" rel="next">下一页'
   lurl="https://(STREXTRACT(lcText, C1, C2,1))
   ?lurl
ENDFOR
?a1  
_CLIPTEXT =a1   
STRTOFILE(a1,'aaa.csv',0)

[此贴子已经被作者于2021-8-29 10:29编辑过]

FOR aii1=1 TO 页数
   oie = CREATEOBJECT("internetexplorer.application")                  &&这里为什么不能在原来的页面重复打开？？一重复打开就出错

有没有帮我试一下   把oie = CREATEOBJECT("internetexplorer.application")  屏蔽看出错不？
告诉我一下操作系统和VFP版本号  谢谢

来回跑得太快了?

加延时也没用   只能杀进程   一次次打开

NloWebBrowser =  CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
 NloWebBrowser.Navigate(PSTR) 这里不同页面

不能打开网页了
https://

可以打开的   有IP限止？