VB中如何让WebBrowser打开一个网址后就自动跳转到另一个网址

Posted 2023-03-19

VB中的WebBrowser先打开一个网址http://www.sina.com.cn，如果你用链接打开了http://weibo.com，就自动跳转为http://www.qq.com，如果不是的话就维持自己点击打开的那个网站

要实现这个功能需要设置一个定时器,在定时器中不断检测打开的IE窗口的地址是否为:http://weibo.com/,如果是,就自动将该IE的地址修改为你需要的地址:http://www.qq.com就可以了.
下面是实现的例子
1、VB中首先引如 Microsoft Internet Controls
“工程”->"引用"->选择"Microsoft Internet Controls"->"确定"
2、在窗体中设置定时器控件 timeNavigate,时间间隔可以自己实践一下确定，在定时器事件中增加下面的程序。
Private Sub timeNavigate_Timer()
dim winFolder as New ShellWindows
dim objIE as Object

For Each objIE In winFolder
If objIE.LocationURL="http;//weibo.com/" Then
objIE.Navigate "http://www.qq.com"
End If
Next
End SUb 参考技术A 做一个时间控件 间隔检查
当 WebBrowser.Busy = False 说明文档加载完毕
这个时候检查 他的WebBrowser.Navigate 是否为指定的值
如果检查到是 就重新设置 WebBrowser.Navigate 跳到新的页面