不懂html也来学网抓（xmlhttp/winhttp+fiddler）

anve2008 · 发表于 2021-1-27 16:36

Sub loadXML1111b()
moth = 202101
Da = 13
Dim URL
URL = "http://www.cffex.com.cn/sj/hqsj/rtj/" & moth & "/" & Da & "/index.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false"
xmlDoc.Load (URL)
m = xmlDoc.getElementsByTagName("dailydata").Length
For i = 0 To m - 1
r = 1 + r
n = xmlDoc.getElementsByTagName("dailydata")(i).ChildNodes.Length
l = 0
Debug.Print xmlDoc.getElementsByTagName("dailydata")(i).ChildNodes.Length
For j = 0 To n - 1
l = l + 1
Cells(r, l) = xmlDoc.getElementsByTagName("dailydata")(i).ChildNodes(j).Text
Next j
Next i
End Sub

复制代码

中国金融期货例子

约定的童话 · 发表于 2021-2-6 08:45

$WI9H$_L92K~8H{$HXF(YA4E.png$ 大神，这种咋分析啊？一头雾水

76124805 · 发表于 2021-2-6 12:45

Sub Main()
Dim strText As String
Dim t As Long

t = DateDiff("s", "01/01/1970 00:00:00", Now())
t = CLng(t) - 8 * 60 * 60

Debug.Print t
URL = "http://lq3.win007.com/"

URL = URL & "NBA/change.xml?" & t & "000"

With CreateObject("WinHttp.WinHttpRequest.5.1") 'CreateObject(MSXML2.XMLHTTP"WinHttp.WinHttpRequest.5.1")
      .Open "GET", URL, False
      '.setrequestheader "bskbetcookie", "bskbetCookie=0^1^1^0^9^2^1^1^2"
      .setrequestheader "Referer", "http://lq3.win007.com/nba.htm"
      '.setrequestheader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.108 Safari/537.36"
      .Send
      strText = .responsetext
      Debug.Print strText
End With
End Sub

l789l · 发表于 2021-2-12 07:00

本帖最后由 l789l 于 2021-2-12 11:50 编辑

测试下上传附件

fwbdyx · 发表于 2021-2-13 19:03

那位大声神能给我教一下下面这个网页抓数值数据怎磨写代码,才能把数据粘贴到excel象网页显示得一样
http://emweb.securities.eastmone ... e=00522&color=b

xiaomils · 发表于 2021-2-14 08:38

学习了，感谢！！

zfswagger · 发表于 2021-3-6 15:34

请问抓到的数据和fiddler里看到的不一样怎么破

yangyangzhifeng · 发表于 2021-3-9 19:18

https://www.sudokuwiki.org/Weekly_Sudoku.asp需要获取题目字串
怪事，之前可以直接用Open “GET" ”https://www.sudokuwiki.org/feed/scanraid/ASSudokuWeekly.asp“ 获取题目字串，现在失败，结果用Fiddler又无法抓包，浏览器是可以直接打开这个页面的https://www.sudokuwiki.org/feed/scanraid/ASSudokuWeekly.asp

夜风窗台 · 发表于 2021-3-19 09:00

好好学习天天向上

yangyangzhifeng · 发表于 2021-4-2 13:55

yangyangzhifeng 发表于 2021-3-9 19:18
https://www.sudokuwiki.org/Weekly_Sudoku.asp需要获取题目字串
怪事，之前可以直接用Open “GET" ”http ...

xp系统winhttp不支持tsl1.2

		自动登录	找回密码
密码			免费注册

[原创] 不懂html也来学网抓（xmlhttp/winhttp+fiddler）