標題: 請益爬網站資料的問題 [打印本頁]

---

作者: vuptp6    時間: 2021-8-4 14:15     標題: 請益爬網站資料的問題

test2是quickfixer幫我寫出來的
我一樣畫葫蘆將網址改成其他的
可是卻顯示出跟網頁的不同
這之中是有甚麼差異嗎?

1. Sub test1()
   
2.     Dim xml As Object, url As String, temp
   
3.     Set xml = CreateObject("msxml2.xmlhttp")
   
4.    
   
5.     url = "https://www.wantgoo.com/stock/2330/major-investors/main-trend-data"
   
6.     xml.Open "GET", url, False
   
7.     xml.send
   
8.     temp = xml.responseText
   
9.    
   
10.     MsgBox temp
    
11.    
    
12.     Set getxml = Nothing
    
13. 
    
14. End Sub
    
15. 
    
16. Sub test2()
    
17.     Dim xml As Object, url As String, temp
    
18.     Set xml = CreateObject("msxml2.xmlhttp")
    
19.    
    
20.     url = "https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y"
    
21.     xml.Open "GET", url, False
    
22.     xml.send
    
23.     temp = xml.responseText
    
24.    
    
25.     MsgBox temp
    
26.    
    
27.     Set getxml = Nothing
    
28. 
    
29. End Sub

複製代碼

---

作者: quickfixer    時間: 2021-8-4 14:47

回復 1# vuptp6


    我什麼時候寫過這東西?
你要問test1 wantgoo爬網站吧,去01文書區
那邊有大神2018/02/11就寫過了,最近wantgoo改版,也有修正了
直接下載就能用了:lol

---

作者: vuptp6    時間: 2021-8-4 15:41

回復 2# quickfixer


我把以下內容都刪了:shutup:
想測試跟其他不同之處
可是顯示的卻不同

謝謝，我去mobile看看

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)