Re: [.NET] Web Complete沒完整載入網頁的問題

看板Visual_Basic作者mapleport (楓港的秋天)時間10年前 (2014/11/03 14:37)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/4 (看更多)

各位程式高手好，之前問的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://www.ptt.cc/bbs/Visual_Basic/M.1414996648.A.B7D.html