vb.NET webbrowser 修改网页源码

Public Class Form1
    Dim c


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
        Dim tmp As String
        If c = 1 Then Exit Sub '这个是为了防止这个过程无限执行下去
        c = c + 1
        tmp = WebBrowser1.Document.Body.InnerHtml
        tmp = tmp.Replace("swf", "") '将swf过虑了.就不会加载swf了
        WebBrowser1.Document.Body.InnerHtml = tmp
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        c = 0
        WebBrowser1.Navigate("http://www.tudou.com/playlist/playindex.do?lid=10766496")
    End Sub
End Class

分享到： QQ空间 新浪微博 腾讯微博 微信 更多

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：3*6=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情