用HttpWebRequest 下載檔案

darkjack

這是我在網路上搜尋到的 一段程式碼..我修改了一些
請自行增加 Textbox 與 Button 各一個

1.     Sub Loading(ByRef MyWeb As WebBrowser)
   
2.         Do Until WebBrowserRead.ReadyState = WebBrowserReadyState.Complete
   
3.             Application.DoEvents()
   
4. 
   
5.         Loop
   
6.     End Sub
   
7. 
   
8. 
   
9.   Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
   
10.         Dim url As Uri = New Uri("https://www.google.com.tw/search?safe=off&hl=zh-TW&site=imghp&tbm=isch&source=hp&q=" & TextBox1.Text)
    
11. 
    
12.         Dim objWebClient As New WebClient
    
13.         Dim temp As Integer
    
14.         Dim DataLinkStr(1), DataLinkStr2(1) As String
    
15. 
    
16. 
    
17.         Dim GetStrAllLen, Str1, Str2 As Integer
    
18. 
    
19. 
    
20.         '載入網頁
    
21.         WebBrowserRead.Navigate(url)
    
22. 
    
23.         Loading(WebBrowserRead)
    
24. 
    
25.         For Each [HtmlElement] As HtmlElement In WebBrowserRead.Document.All
    
26.             If [HtmlElement].TagName = "A" And [HtmlElement].GetAttribute("href") <> Nothing Then
    
27. 
    
28.                 DataLinkStr = Split([HtmlElement].OuterHtml, "imgurl=")
    
29.                 If DataLinkStr.Length > 1 Then
    
30. 
    
31.                     DataLinkStr2 = Split(DataLinkStr(1), "&") '分割
    
32. 
    
33.                     RichTextBox1.Text &= DataLinkStr2(0) & vbCrLf
    
34. 
    
35.                     Str1 = InStrRev(DataLinkStr2(0), "/")  '取得 某字串位置
    
36.                     Str1 = Str1 + 1 '往後推一字元
    
37. 
    
38.                     GetStrAllLen = DataLinkStr2(0).Length '取得總字數（包涵http://)
    
39. 
    
40.                     Str2 = GetStrAllLen - Str1
    
41. 
    
42.                     If Strings.Right(DataLinkStr2(0), 4) = ".jpg" Or Strings.Right(DataLinkStr2(0), 4) = ".png" Then
    
43. 
    
44.                         ListBox1.Items.Add(Strings.Mid(DataLinkStr2(0), Str1, Str2 + 1)) '取出要存的檔名
    
45.                         Try
    
46.                             HttpWebDownload(DataLinkStr2(0))
    
47.                             Download_Count += 1
    
48.                         Catch ex As WebException
    
49. 
    
50.                         End Try
    
51. 
    
52.                     Else
    
53.                         Dim str3split() As String
    
54.                         Dim str3 As String
    
55.                         str3split = Split(DataLinkStr2(0), ".jpg")
    
56.                         str3 = str3split(0) & ".jpg"
    
57. 
    
58.                         temp += 1
    
59.                     End If
    
60.                     'objWebClient.DownloadFileAsync(New Uri(DataLinkStr2(0)), "G:\test\1\" & Strings.Mid(DataLinkStr2(0), Str1, Str2 + 1))
    
61.                 End If
    
62.             End If
    
63.         Next
    
64. 
    
65.     End Sub
    
66. 
    
67. 
    
68.     Private Download_Count As Integer
    
69.     Private Download_C_temp As Integer
    
70. 
    
71.     Private Function HttpWebDownload(ByVal InputUrl As String)
    
72.         Dim bytes_ As Integer = 0
    
73.         Dim MyResponse As HttpWebResponse
    
74.         Dim MyRequest As HttpWebRequest
    
75.         Dim RemoteStream As Stream
    
76.         Dim MyFilewStream As Stream
    
77. 
    
78.         Dim TimeStart As DateTime = Now
    
79.         Dim TS As TimeSpan
    
80. 
    
81.         MyRequest = HttpWebRequest.Create(InputUrl)
    
82.         If MyRequest IsNot Nothing Then
    
83.             'MyResponse.GetResponseStream()
    
84.             MyRequest.Timeout = (5 * 1000)
    
85.             MyResponse = MyRequest.GetResponse
    
86.             If MyResponse IsNot Nothing Then
    
87.                 '判斷網頁狀態
    
88.                 If MyResponse.StatusCode = HttpStatusCode.OK Then
    
89. 
    
90. 
    
91.                     RemoteStream = MyResponse.GetResponseStream
    
92. 
    
93.                     MyFilewStream = File.Create("G:\temp\1\" & Download_Count & ".jpg") '檔名
    
94. 
    
95.                     Dim buffer(1024) As Byte
    
96.                     Dim bytesRead As Integer
    
97. 
    
98.                     TimeStart = Now
    
99. 
    
100.                     Do
     
101.                         bytesRead = RemoteStream.Read(buffer, 0, buffer.Length)
     
102. 
     
103.                         MyFilewStream.Write(buffer, 0, bytesRead)
     
104. 
     
105.                         bytes_ += bytesRead
     
106. 
     
107.                         Application.DoEvents()
     
108.                         '判斷執行時間
     
109.                         TS = Now.Subtract(TimeStart)
     
110.                         Console.WriteLine(TS)
     
111.                         If TS.TotalSeconds > 7 Then
     
112.                             Exit Do
     
113.                         End If
     
114.                     Loop While bytesRead > 0
     
115.                 End If
     
116.             End If
     
117.         End If
     
118. 
     
119.         If MyResponse IsNot Nothing Then MyResponse.Close()
     
120.         If RemoteStream IsNot Nothing Then RemoteStream.Close()
     
121.         If MyFilewStream IsNot Nothing Then MyFilewStream.Close()
     
122. 
     
123.         Return bytes_
     
124. 
     
125.     End Function

複製代碼

...

瀏覽完整內容，請先 註冊 或 登入會員

zaq12345

謝謝大大的分享..大大辛苦了