❶ 請問如何用VB獲取網頁源碼
使用Inet控制項獲取網頁源碼。
Internet Transfer 控制項實現了兩種廣泛使用的 Internet 協議: 超文本傳送協議(HyperText Transfer
Protocol)(HTTP) 和文件傳送協議(File Transfer Protocol) (FTP)。使用 Internet Transfer
控制項可以通過 OpenURL 或 Execute 方法連接到任何使用這兩個協議的站點並檢索文件。
PrivateSubCommand1_Click()
DimstrhtmlAsString
DimSTRURLAsString
STRURL="http://www..com"
strhtml=Inet1.OpenURL(STRURL)
Text1=strhtml
EndSub
❷ 如何用VB 獲取網頁源碼 最好能給一個完整的步驟 謝謝!
在窗體上添加一個「Microsoft Internet transfer Control」控制項,默認名稱為Inet1,然後用下面一行代碼就可以獲得指定網頁的源碼了:
html = Inet1.OpenURL("網址寫在這里")
❸ vb如何獲取當前IE中打開的網頁源代碼
在窗體內加入控制項text1(Multiline=true,scrollbars=2),timer1(interval=1000),
然後在代碼區復制下面代碼,
運行,即可在text1內實時顯示當前IE中打開的網頁源代碼:
Option Explicit
Dim oShellApp, oShellAppWindows, oWin
Dim UrlLst As String
Private Sub Timer1_Timer()
Set oShellApp = CreateObject("Shell.Application")
Set oShellAppWindows = oShellApp.Windows
For Each oWin In oShellAppWindows
If LCase(TypeName(oWin.document)) = "htmldocument" Then
If InStr(1, UrlLst, oWin.locationurl, vbTextCompare) = 0 Then
UrlLst = UrlLst & oWin.locationurl & ","
Text1.Text = oWin.document.body.innerHTML
Me.Caption = oWin.locationname
End If
End If
Next
End Sub
❹ VB:如何通過VB獲取某個網站的所有頁面源代碼
兩種實現方式:
1、先用WebBrowser控制項、iNet控制項或xmlhttp組件獲取網站首頁代碼(這個網上有一大堆介紹,就不啰嗦了),然後分析代碼,找出其中的超鏈接,然後再逐個獲取其頁面代碼,這里要注意的是,要區分外鏈和內鏈,外鏈就不要去獲取代碼了(否則的話如果網站上有個網路的鏈接,那麼你的程序就要去獲取網路的頁面了);另外還要控制獲取的層數(比如說一級子頁面是第二層,二級子頁面是第三層),否則的話遇到大型網站你的程序很可能進入死循環。
2、利用瀏覽器的緩存來獲取,主要是IE的緩存。windows系統有專門的對IE緩存進行讀寫操作的API函數。要想獲取某個網站的源碼,可以用IE打開這個網站,然後把裡面的鏈接都手工點擊一遍,使頁面代碼能被IE自動放入緩存文件夾中即可。當然,如果網站比較大,這個過程可能會比較繁復。然後再通過程序遍歷IE的整個緩存系統,把與該網站相關的所有資源都提取出來。通過這種方法,不但可以提取HTML代碼,還有js代碼、css代碼,以及頁面上的所有圖片、動畫、視頻等資源。我個人比較喜歡這種方法。
❺ 如何用vb.net獲得網頁的源代碼
Dim url As String=" 網址"
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 獲取或設置一個值,該值指示是否與
Internet資源建立持久連接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網頁源代碼
❻ VB 獲取網頁源代碼(成功後給分50)
Private Function GetHtmlStr$(StrUrl$) '獲取源碼
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "GET", StrUrl, False
XmlHttp.send
stime = Now '獲取當前時間
While XmlHttp.ReadyState <> 4
DoEvents
ntime = Now '獲取循環時間
If DateDiff("s", stime, ntime) > 3 Then GetHtmlStr = "": Exit Function '判斷超出3秒即超時退出過程
Wend
GetHtmlStr = StrConv(XmlHttp.Responsebody, vbUnicode)
Set XmlHttp = Nothing
End Function
❼ VB怎麼獲取網頁源碼
1)使用MICROSOFT INTERNET TRANSFER CONTROL的,代碼如下:
Dim strhtml As String
Dim STRURL As String
STRURL="http://www.sijiqing.com"
strhtml = Inet1.OpenURL(STRURL)
2)用System.Net命空間下的HttpWebRequest來取得,代碼如下:
Dim url As String=" http://mgxx520.blog.com.cn" ' 網址
Dim httpReq As System.Net.HttpWebRequest
Dim httpResp As System.Net.HttpWebResponse
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Method = "GET"
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
httpReq.KeepAlive = False ' 獲取或設置一個值,該值指示是否與 Internet資源建立持久連接。
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream,
System.Text.Encoding.GetEncoding(-0))
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是網頁源代碼.
❽ 如何用vb webbrowser獲取帶框架網頁的全部源代碼
獲取第1個框架的源代碼:
WebBrowser1.Document.frames(0).Document.documentElement.outerHTML
遍歷框架就可以得到所有的(WebBrowser1.Document.frames(0).count框架個數) ;
❾ 如何用vb webbrowser獲取帶框架網頁的全部源代碼
用vb webbrowser獲取帶框架網頁的全部源代碼,指令如下:
WebBrowser1.Document.frames(0).Document.documentElement.outerHTML
遍歷框架就可以得到所有的(WebBrowser1.Document.frames(0).count框架個數)。
❿ VB 獲取網頁源碼 你的這個是怎麼解決的.能和我說一下嗎.謝謝
1、提取:用這個vb小程序可以!