Select Case e.Path Case "","test.htm" Dim wb As New WeUI With wb.AddTabBar("", "tb1", 1) .AddPage("page1","微信","./images/button.png") .AddPage("page2","通讯录","./images/msg.png") .AddPage("page3","发现","./images/article.png") .AddButton("bt1","我","./images/cell.png","http://www.foxtable.com") End With wb.InsertHTML("<script>alert(3);document.getElementById('page1').style.display='none';document.getElementById('page2').style.display='block';document.getElementById('page1_btn name=').setAttribute('class','weui_tabbar_item');document.getElementById('page2_btn name=').setAttribute('class','weui_tabbar_item weui_bar_item_on');alert(4);</script>") e.WriteString(wb.Build) End Select
|