让网页加载完后自动修改选项卡名称,结果失败,求指教!
Posted: 05 Jun 2015, 09:02
在两个选项卡(Tab2)上分别放置了一个网页。我希望每次网页加载完毕后,都自动将选项卡的名字改为该网页的Title,代码如下,结果失败。
求高手指教,谢谢!!
求高手指教,谢谢!!
Code: Select all
gui,new
Gui ,+Resize
Gui, Add, Tab2,x0 y0 w1280 h720 vTabGroup, General|New ;添加组框架,包含两页
Gui,Tab,General ;对第一页进行设置
Gui, Add, ActiveX, w1270 h700 vWB, Shell.Explorer ;把浏览器添加到第一页
Gui,Tab,New
Gui, Add, ActiveX, w1270 h700 vWB2, Shell.Explorer
Gui, Tab ; 随后的控件不属于任何选项卡控件的一部分.
Gui,Show
WB.Silent := True ; 这一句可以避免一些网页弹出脚本错误
WB2.Silent := True ; 这一句可以避免一些网页弹出脚本错误
WB.Navigate("http://www.sohu.com")
WB2.Navigate("http://www.baidu.com")
ComObjConnect(WB, WB_events) ; 连接WB事件到WB_events类对象
Return
class WB_events ;链接到前面的Web事件
{
NavigateComplete2(wb, NewURL) ;网页加载完成时,执行下列命令
{
Name1:=wb.document.title
Name2:=wb2.document.title
GuiControl,, TabGroup, |%Name1%|%Name2%
}
}
Return
GuiClose:
exitapp