@@ -98,9 +98,25 @@ | ||
98 | 98 | |
99 | 99 | |
100 | 100 | |
101 | + Private Shared Function streamHtmlFromUrl(ByVal strURL As String) As Stream | |
101 | 102 | |
103 | + Dim request As Net.HttpWebRequest = TryCast(Net.WebRequest.Create(strURL), Net.HttpWebRequest) | |
104 | + request.Method = "GET" | |
105 | + Dim DefaultUserAgent As String = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" | |
106 | + request.UserAgent = DefaultUserAgent | |
107 | + request.Timeout = 10000 | |
108 | + Dim response As Net.HttpWebResponse = TryCast(request.GetResponse(), Net.HttpWebResponse) | |
109 | + Dim stream As Stream = response.GetResponseStream() | |
102 | 110 | |
111 | + Return stream | |
103 | 112 | |
113 | + End Function | |
114 | + | |
115 | + | |
116 | + | |
117 | + | |
118 | + | |
119 | + | |
104 | 120 | #Region "YahooルビResultSetシリアクラス" |
105 | 121 | |
106 | 122 | '''<remarks/> |