您需要将UserAgent添加为
@ChaseRocker mentioned
OddsTodayRESPONSE.GetResponseStream()
Using
陈述
Dim OddsTodayREQUEST As HttpWebRequest = WebRequest.Create("http://www.betexplorer.com/next/soccer/")
OddsTodayREQUEST.Accept = "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
OddsTodayREQUEST.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate 'Decompressing makes the request be done faster
OddsTodayREQUEST.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0"
Using OddsTodayRESPONSE As HttpWebResponse = OddsTodayREQUEST.GetResponse()
Using OddsTodayRESPONSESTREAM = OddsTodayRESPONSE.GetResponseStream()
Using OddsTodayREADER As New StreamReader(OddsTodayRESPONSESTREAM)
OddsTodayHTML = OddsTodayREADER.ReadToEnd()
End Using
End Using
End Using