如何抓取网站的几个数据？

Kaohsing

研究半天未果，特来求助.网址：https://www.flashscore.com/match/xSUUEVHO/#match-summary

主要是发送完请求，返回状态码401，实在不解？？

  

kings12333

帮老师顶一下。。。望高手们看到，好像这种网页是不是加密了

605751967

我这连打都打不开

Kaohsing

605751967 发表于 2018-7-31 21:03
我这连打都打不开

换谷歌浏览器试试。

forwjds

首页的源代码中的js代码：var game_utime = 1526220000，1526220000是从1970年1月1日零时起经过的秒数，转换为时间就是2018-5-13 14:00 ，中国在东八区，再加8小时

duquancai

需要抓取哪几个数据？不知道啊！

Kaohsing

forwjds 发表于 2018-7-31 21:40
首页的源代码中的js代码：var game_utime = 1526220000，1526220000是从1970年1月1日零时起经过的秒数，转 ...

请写出代码。

Kaohsing

duquancai 发表于 2018-7-31 21:58
需要抓取哪几个数据？不知道啊！

如图 红框中的数据，麻烦，谢谢

forwjds

Kaohsing 发表于 2018-7-31 21:59
请写出代码。

1. Sub Main()
   
2.     Dim strText As String
   
3.     Dim timeStamp As Long
   
4.     Dim arr
   
5.     Dim Title As String
   
6.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
7.         .Open "GET", "https://www.flashscore.com/match/xSUUEVHO/", False
   
8.         .Send
   
9.         strText = .responsetext
   
10.     End With
    
11.     timeStamp = Split(Split(strText, "game_utime = ")(1), ";")(0)
    
12.     Title = Split(Split(strText, "<title>")(1), "</title>")(0)
    
13.     Debug.Print Title & vbCrLf & GetTime(timeStamp)
    
14. End Sub
    
15. 
    
16. Private Function GetTime(timeStamp As Long) As String
    
17.     GetTime = Format(DateAdd("s", timeStamp, "1970-1-1"), "dd.mm.yy hh:nn")
    
18. End Function

复制代码

Kaohsing

抓包数据：

'GET https://d.flashscore.com/x/feed/d_su_Ioj 4TU WH_en_1 HTTP/1.1       Host: d.Flashscore.com
'Connection: keep -alive   Accept-Language: *  X-GeoIP: 1
'User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.99 Safari/537.36
'X -Fsign: SW9D1eZo      Accept: */*
'X-Requested-With: XMLHttpRequest
'X-Referer: https://www.flashscore.com/match/Ioj4TUWH/#match-summary
'Referer: https://d.flashscore.com/x/feed/proxy-local
'Accept -Encoding: gzip , deflate, br
'Cookie: _ga=GA1.2.2118626182.1532994050; _gid=GA1.2.298217218.1532994050; _gat_UA-207011-5=1