VB替换地址栏参数的问题

我想用VB做一个替换百度搜索结果页地址栏的参数插件，可是有几个匹配的规则问题不会写，希望高手帮助。
我自己定义的规则是这样的：
首先判断地址栏的域名是否是baidu.com，如果不是，放弃，如果是，再判断地址栏是否有tn这个值（http://www.baidu.com/s?wd=123&tn=baidu ，就是这个TN值），如果没有这个值，那我们就给他加上tn=XXX并跳转到新地址，如果有这个值，判断这个值是否等于XXX，如果等于，就停止，如果不等于，就修改为XXX。
我说的有点啰嗦，说俗了就是替换百度搜索结果页的tn值，现在很多这样的插件。不知道高手有这方面的经验没有？我想给我管理的这几个网吧都装上这个插件。谢谢大家了。（小弟VB比较菜，希望高手能给出确切代码）

---

BHO劫持？

---

是的

---

帮顶。。。

---

网上能够搜索到示例吧！

在 BeforeNavigate2()事件 中，对 URL 进行判断吧。

---

注意设置标志防止反复重入，以及进行 .ReadyState 的判断。