作者mapleport (楓港的秋天)
看板Visual_Basic
標題Re: [.NET] Web Complete沒完整載入網頁的問題
時間Mon Nov 3 14:37:26 2014
各位程式高手好，
之前問的Webbrowser_Complete重複觸發的問題，簡化後的程式碼貼在下面
再請各位有空幫忙看看，感謝！
這個簡化的程式碼是想先讓瀏覽器搜尋"林書豪"這個關鍵字，
當網頁下載完成時，開始尋找"下一頁"這個連結，
找到了就點擊他，然後搜尋結果就會翻頁，
於是Webbrowser就又被觸發，再繼續重複翻頁。
他在xp作業系統沒問題，但在win7編譯執行會亂跳頁，無法1 2 3 4 5..一直翻頁下去
(看看Textbox1的"目前翻頁次數＝N")
可以把code copy到VB貼上執行就知道了
=========================================================
Public Class Form1
Dim k = 0 ' 算第幾頁＝翻頁次數-1
' 一開始Load表單時要做的事：Web1瀏覽以下網址
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim URL As String = "
https://www.google.com/?hl=zh-tw&gws_rd=ssl#hl=zh-tw&q=林書豪&start=0"
WebBrowser1.Navigate(URL)
End Sub
' 當Web1下載網頁完成時，觸發執行此Sub副程式內容
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
TextBox1.Text = "瀏覽器下載網頁完成 目前翻頁次數=" + k.ToString
Dim a As HtmlElement
For Each a In WebBrowser1.Document.All
If (InStr(1, a.OuterHtml.Trim, "下一頁") > 0) And (UCase(a.TagName) = "A") Then
TextBox2.Text = a.OuterHtml
''''''''''''''''''''''''''''''''[delay start]
Dim TimeLast11 = 2000 ' 要延遲 t 秒,就設為 t *1000
Dim Start11 As Integer = Environment.TickCount() ' 現在時間start = Environment.TickCount() (vb.net語法)
Do
If Environment.TickCount() - Start11 > TimeLast11 Then Exit Do
Application.DoEvents() ' 要記得寫這行，不然都在跑迴圈，畫面可能會不見
Loop
''''''''''''''''''''''''''''''''[delay end]
a.InvokeMember("click") ' 點擊
k = k + 1 ' 翻頁次數+1
Exit Sub
End If
Next
End Sub
==================================================================
※ 引述《cf1064 (蚵仔)》之銘言：
: ※ 引述《mapleport (楓港的秋天)》之銘言：
: : 請輸入專案類型(網站專案或者應用程式專案)：
: : Visual Basic 2010 Express
: : 各位高手好，
: : 小弟是初學者，在xp作業系統上有寫一個程式，
: : 在網頁下載完成後，會點擊我要的一些link進到其他頁以擷取資訊
: : 在xp上可以順利執行 (需要安裝.NET4.0等等)
: : 後來在WIN7上面安裝VB2010 Express將原本程式碼做編譯，
: : 發現網頁尚未完全載入時就進入Sub WebBrowser1_DocumentCompleted副程式裡面，
: : 由上而下開始尋找link，
: : 因此找不到我要的link(載入的那一頁一定有我要的link，通常在網頁下方)
: : 請問有高手知道如何解決嗎，感激不盡><
: : 我也試過以下的方式 但不知為何無效
: : 1. If (WebBrowser1.ReadyState = WebBrowserReadyState.Complete) Then...或
: : 2. If (WebBrowser1.ReadyState = WebBrowserReadyState.Loading Or WebBrowser1.ReadyState =
: : WebBrowserReadyState.Loaded)......
: : 3. 等找到我要的link才視為載入完成，但是不知道怎麼寫
: 在complete裡加上
: While (web.ReadyState <> WebBrowserReadyState.Complete)
: Application.DoEvents()
: End While
: 來確保他是真的載入完成這樣呢？
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.140.1.251
※ 文章網址: http://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1414996648.A.B7D.html