Case "filter1.htm"
wb.AddForm("","form1","list.htm")
With wb.AddInputGroup("form1","ipg1","数据筛选")
.AddInput("product","会员电话","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit").Attribute = """
.Add("btn2","返回", "","default.htm") '退出登录
End With
wb.AddToast("","t2", "正在加载",1)
加个验证手机号对不对，不对就不可以查询
Dim reg = new System.Text.RegularExpressions.Regex("^1[34578]\d{9}$")Dim Password = "13888888888"If reg.Ismatch(Password) = False Then msgbox("不符合")Else msgbox("符合")End If
加好友 
发短信
Post By：2021/7/23 10:28:00 [显示全部帖子]
