Dim wb As New weui wb.AddForm("","form1","test.htm") With wb.AddInputGroup("form1","ipg1","123") .AddInput("xm","户名","text") .AddInput("pw","密码","password") End With With wb.AddButtonGroup("form1","btg1",True) .Add("btn1", "确定", "submit") End With wb.AppendHTML("<style>.weui_cells_title{font-size:0px;margin:0px;padding:0px;}</style>",True) e.WriteString(wb.Build) '生成网页