Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","基本资料")
With .AddInputCell("ic4")
.AddLabel("lsj","手机",0)
.AddInput("sj","text",1)
.AddVcodeButton("hym","拨打",2)
End With
End With
wb.AppendHTML("<script>document.getElementById('hym').href = 'tel:13000000000'</script>")
e.WriteString(wb.Build) '生成网页
End Select