從頁面源拉取信息

Question

好的，在我正在處理的幾個應用程序中，我一直對 Web瀏覽器控件有很多麻煩。 他們都有共同的問題。我想讓應用程序導航的網頁a讀取將頁面源代碼中的文本寫入變量。之後我還需要能夠保存文件。

一些源代碼：

Public Class Form4 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog 
    MyFolderBrowser.Description = "Select the Folder" 
    MyFolderBrowser.ShowNewFolderButton = False 
    Dim dlgResult As DialogResult = MyFolderBrowser.ShowDialog() 
    If dlgResult = Windows.Forms.DialogResult.OK Then 
     TextBox1.Text = MyFolderBrowser.SelectedPath 
    End If 
End Sub 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    If TextBox1.Text = "" Then 
     MessageBox.Show("You have to select a directory!") 
    Else 
     WebBrowser1.Navigate("www.realmofthemadgod.com/version.txt") 
     System.Threading.Thread.Sleep(3000) 
     Dim PageSource As String = WebBrowser1.Document.Body.InnerText 
     WebBrowser1.Navigate("http://www.realmofthemadgod.com/AssembleeGameClient" & PageSource & ".swf") 
    End If 
End Sub 

末級

我有一個問題的第一件事是，它從不等待網頁拉動文檔文本之前加載。我嘗試了許多不同的方法，從人們發佈的不同解決方案中解脫出來。奇怪的是，如果我第二次這樣做，似乎總能奏效。

如果單擊Button2，我想將最終生成的網頁保存爲swf到選定的目錄。

感謝所有幫助我一直在尋找這個到處

Answer 1

歡迎光臨網頁抓取的黑暗藝術。首先，我建議使用WebClient而不是WebBrowser，因爲它具有從網站下載數據的離散方法。它看起來像你的version.txt只包含你想要的數據（並且沒有多餘的html），所以我們可以直接下載它。如果你需要解析html，我會使用HtmlAgilityPack。未經測試的代碼，讓你開始：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    If TextBox1.Text = "" Then 
     MessageBox.Show("You have to select a directory!") 
    Else 
     Using wc as New WebClient() 
      Dim version = wc.DownloadString("www.realmofthemadgod.com/version.txt") 
      Dim swf = "http://www.realmofthemadgod.com/AssembleeGameClient" + version + ".swf" 
      wc.DownloadFile(swf,"c:\temp\myswf.swf") 
     End Using 
    End If 
End Sub