private void herfclick(string url)
{
for (int i = 0i <webBrowser1.Document.All.Counti++)
{
if (webBrowser1.Document.All[i].TagName == "A" &&webBrowser1.Document.All[i].GetAttribute("href").ToString().Trim() == url)
{
webBrowser1.Document.All[i].InvokeMember("click")//引发”CLICK”事件
break
}
}
}
要实现这个功能需要设置一个定时器,在定时器中不断检测打开的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
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)