参考代码
Select Case e.Path Case "","test.htm" Dim wb As New WeUI With wb.AddListGroup("", "lsg1","简单列表") .Add("ls1", "新浪主页").Attribute = "onclick='alert(this.id)'" .Add("ls2", "网易主页") End With e.WriteString(wb.Build)End Select
js增加cookie参考 https://www.baidu.com/baidu?wd=js+cookie&tn=monline_4_dg