你们也太...我才两条裤腿.楼上的两位大哥.给点分吧
Public Class HtmlSource
Private WithEvents myWebBrowser1 As WebBrowser
Public HtmlCode As String
Public Sub new(ByVal url As String)
myWebBrowser1 = New WebBrowser
myWebBrowser1.Navigate(url)
End Sub
Private Sub myWebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles myWebBrowser1.DocumentCompleted
HtmlCode = myWebBrowser1.Document.Body.OuterHtml
End Sub
End Class
dim strURL as string ' 这个是网页的地址
Dim sHttpWebClinet As system.Net.WebClient = New system.Net.WebClient
Dim myDatabuffer As Byte() = sHttpWebClinet.DownloadData(strURL) ‘将网页上的内容下载到byte类型的数组
Dim htmBody As String = System.Text.Encoding.ASCII.GetString(myDatabuffer)’将下载的内容放进一个字符串,剩下的就是对这个字符串取值了
'sHttpWebClinet.DownloadFile(strURL, ExdivFn)
sHttpWebClinet.Dispose()
sHttpWebClinet = Nothing