Select Case e.Path
Case "test.htm"
Dim wb As New WeUI
With wb.AddArticle("", "ar1")
.UseGallery = True '启用Gallery,必须放在第一行
.AddTitle("h1", "大标题")
.AddTitle("h2", "章标题")
.AddTitle("h3", "1.1节标题")
.AddContent("Write your Sad Times in Sand, Write your Good Times in Stone.-- George Bernard Shaw")
.AddImage("./images/001.jpg")
.AddTitle("h3", "1.2节标题")
.AddContent("Write your Sad Times in Sand, Write your Good Times in Stone.-- George Bernard Shaw")
.AddImage("./images/002.jpg")
End With
wb.AppendHTML("<script>document.querySelector(""meta[name='viewport']"").setAttribute(""content"",""width=device-width,initial-scale=1,user-scalable=1"")</script>")
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2022/10/12 10:35:00 [显示全部帖子]
