• R/O
  • SSH
  • HTTPS

autocodeforsql: Commit


Commit MetaInfo

Revisão338 (tree)
Hora2020-03-06 16:40:13
Autorhilinwei

Mensagem de Log

Mudança Sumário

Diff

--- AutoEpub3/cAutoRubyYahoo.vb (revision 337)
+++ AutoEpub3/cAutoRubyYahoo.vb (revision 338)
@@ -98,9 +98,25 @@
9898
9999
100100
101+ Private Shared Function streamHtmlFromUrl(ByVal strURL As String) As Stream
101102
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()
102110
111+ Return stream
103112
113+ End Function
114+
115+
116+
117+
118+
119+
104120 #Region "YahooルビResultSetシリアクラス"
105121
106122 '''<remarks/>
Show on old repository browser