Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
創(chuàng)新互聯(lián)自2013年創(chuàng)立以來,是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司,擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作網(wǎng)站策劃,項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命,1280元北碚做網(wǎng)站,已為上家服務(wù),為北碚各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18980820575
'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)
On Error Resume Next
Dim Str_WebContent As String = "請輸入查找網(wǎng)站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設(shè)置用于對向 Internet 資源的請求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。(可有可無)
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。(加@是因?yàn)榫W(wǎng)址中間有"/"符號)
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//轉(zhuǎn)換字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出來新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '
End Function
asp 或 asp.net 中使用 response 的重定向方法把參數(shù)丟出去,如: Response.Redirect("target.aspx?search=" + Textbox1.Text ) 接收的頁面: Dim search As String = Request("search") 既然是做頁面的,基本的 javascript 還是需要知道的,用javascript 做交互比較方便.服務(wù)端負(fù)擔(dān)會(huì)小些. 直接window.location = "target.aspx?search=value" 就行了.
麻煩采納,謝謝!
dim lc as long
lc=InStr(1, WebBrowser1.Document.body.innerhtml, "下載完畢!")
lc大于零的話說明包含,否則說明不包含。
遍歷整個(gè)html中的input標(biāo)簽,篩選出type為button的,取出onclick里的函數(shù)簽名,注入一段js去執(zhí)行這個(gè)函數(shù)
不熟悉vb6,但vb.net或者C#來做是輕車熟路。只給思路:
如果可以通過網(wǎng)站的url本身定位到指定的網(wǎng)站,那么就簡單了
如果對每個(gè)用戶url是一樣的,而且需要先登錄,有驗(yàn)證碼,那就麻煩了,需要懂的技能很多,現(xiàn)在估計(jì)你沒法完成
實(shí)現(xiàn)了1后,尋找能下載指定頁面所有源文件的方法,這個(gè)應(yīng)該很多
實(shí)現(xiàn)3以后,通過正則表達(dá)式查找需要的內(nèi)容,當(dāng)然能用現(xiàn)成的類庫就更好
方法很多,下面列舉一個(gè):
窗體上添加2個(gè)列表框,一個(gè)按鈕:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class