vb.net httpwebrequest使用谷歌鏈接獲得HTML代碼

Imports System.Net 
Imports System.IO 

Public Class Form1 
    Public Function GetHTML(ByVal url As Uri) As String 
     Dim HTML As String 

     Dim Request As HttpWebRequest 
     Dim Response As HttpWebResponse 
     Dim Reader As StreamReader 

     Try 
      Request = HttpWebRequest.Create(url) 
      Response = Request.GetResponse 
      Reader = New StreamReader(Response.GetResponseStream()) 

      HTML = Reader.ReadToEnd 
     Catch ex As Exception 
      HTML = Nothing 
     End Try 

     Return HTML 
    End Function 

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
     Dim url As Uri = New Uri(TextBox1.Text) 

     TextBox2.Text = GetHTML(url) 
    End Sub 
End Class

以上是我從網頁獲取html的代碼。我遇到了一個問題，如果我進入這樣的事情http://www.google.com.sg/url?sa=t&rct=j&q=vb.net%20convert%20string%20to%20uri&source=web&cd=1&ved=0CFcQFjAA&url=http%3A%2F%2Fwww.vbforums.com%2Fshowthread.php%3Fp%3D3434187&ei=R0fxT872Cs2HrAesq4m-DQ&usg=AFQjCNGGedjegaM8osT689qWhbqpf6NI7Q vb.net httpwebrequest使用谷歌鏈接獲得HTML代碼

它給了我

<script>window.googleJavaScriptRedirect=1</script> 
    <script> 
    var f={}; 
    f.navigateTo=function(b,a,g){ 
     if(b!=a&&b.google) 
     { 
     if(b.google.r) 
     { 
      b.google.r=0; 
      b.location.href=g; 
      a.location.replace("about:blank"); 
     } 
     } 
     else 
     { 
     a.location.replace(g); 
     } 
    }; 

    f.navigateTo(window.parent,window,"http://www.vbforums.com/showthread.php?p\x3d3434187"); 

    </script> 
    <noscript> 
    <META http-equiv="refresh" content="0;URL='http://www.vbforums.com/showthread.php?p=3434187'"> 
    </noscript>

，而不是http://www.vbforums.com/showthread.php?p=3434187

的HTML我怎樣才能讓我的代碼來執行重定向並獲得HTML？

來源

2012-07-02 Lai Yong Ren

刮掉元標記中的網址，然後發出新請求。對於我的推薦，我推薦HtmlAgilityPack，你可以在http://html-agility-pack.net/下載或者用NuGet安裝。

來源

2012-07-03 23:30:39

vb.net httpwebrequest使用谷歌鏈接獲得HTML代碼

回答

相關問題