请问如何用VB实现chrome更改源码的那种功能

[askdelphi]

就是类似这种功能：http://zhidao.baidu.com/link?url=06V-QS4MOLx9a4MIj3M3InpJPpjUOA4WY7ac53-U8sc30n9tY19dMGvyk0rwiE3EVFWVrpVFzcy0-hOiLUUrJq

举个例子，比如我用chrom打开百度首页，我想把“百度一下”这个按钮，改成“Google两下”，打开VB程序，在文本框里输入“Google两下”，点下按钮，那网页上就显示成“Google两下”，请问这个代码要怎么写呢？
请帮帮我，谢谢

[askdelphi]

更准确地说应该是类似这种功能：http://zhidao.baidu.com/link?url=mE5z2zCYifWe-Nhno0lRmVKH8gpholecIZiH_XVSXWKOjSMpdGJ7ReHgPaHLguXZfZ7QK1E-Aps1qGBDMLGXlq

一、读取IE或chrome中已打开的网页。
二、修改网页中的某些值。
三、把已修改过的网页源码重新返回给IE或Chrome，使它显示的内容发生改变。

主要是第三步不知道要怎么实现？

[threenewbee]

（1）可以使用BHO或者参考这个：http://bbs.csdn.net/topics/320119281 （2）和通过WebBrowser读取/修改网页一样，自己Google （3）即时生效。

[askdelphi]

引用 2 楼 caozhy 的回复:

（1）可以使用BHO或者参考这个：http://bbs.csdn.net/topics/320119281 （2）和通过WebBrowser读取/修改网页一样，自己Google （3）即时生效。

你好，我用以下这个代码可以实现1和2的功能，但是第3步实现不了，请问要怎么弄呢？ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sWind As SHDocVw.ShellWindows Dim IE As SHDocVw.InternetExplorer Dim strCode As String sWind = New SHDocVw.ShellWindows 'sWind是所有窗口的集合,包括Explorer和IE Dim doc For Each IE In sWind 'strCode &= IE.LocationURL & ":" If InStr(IE.LocationURL, "http://www.baidu.com/") > 0 Then '查找指定地址栏的IE窗口 doc = IE.Document strCode = doc.Body.Innerhtml '获取IE窗口代码 strCode = strCode.Replace("百度一下", "手气不错") RichTextBox1.Text = strCode Exit For End If Next End Sub 只会在richtxtbox1中显示网页源码，但是不会在已打开的IE中显示已修改过内容：“百度一下”改成了“手气不错”

[threenewbee]

doc.Body.Innerhtml = "<p>手气不错</p>"

[askdelphi]

多谢版大，可以了。

[xiaozhongtao]

能介绍一下方面吗？