Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
創(chuàng)新互聯(lián)公司長期為千余家客戶提供的網站建設服務,團隊從業(yè)經驗10年,關注不同地域、不同群體,并針對不同對象提供差異化的產品和服務;打造開放共贏平臺,與合作伙伴共同營造健康的互聯(lián)網生態(tài)環(huán)境。為高港企業(yè)提供專業(yè)的網站設計制作、成都網站設計,高港網站改版等技術服務。擁有十年豐富建站經驗和眾多成功案例,為您定制開發(fā)。
'啟動一次具體的數(shù)據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數(shù)據
On Error Resume Next
Dim Str_WebContent As String = "請輸入查找網站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個WebClient實例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。(可有可無)
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據并返回字節(jié)數(shù)組。(加@是因為網址中間有"/"符號)
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//轉換字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出來新聞內容,刪除Body前后的多余內容,同時補充上該 Body標記,形成完整的內容 Str_WebContent '
End Function
這個用到庫的問題(是matlab庫)
開頭:
#include mex.h/*這個matlab自己的也是必須的*/
庫函數(shù)(4個參數(shù))//名字忘了太長了
{
//自己的程序;
}
可以用webbrowser提取,或者msxml2,很多方法的,你去百度一下資料方法一堆。
滿意采納哈。