……msgbox(Verified) '这里提示什么值
If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功
wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
wb.AppendCookie("password",Password)
wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页
e.WriteString(wb.Build) '生成网页
Return '必须的
ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面
wb.InsertHTML("<meta http-equiv='Refresh' c>") '这里代码不完整，截图看看
e.WriteString(wb.Build) '生成网页
msgbox(e.Path) '这里能够弹出来吗，提示什么内容？
Return '必须的
End If
[此贴子已经被作者于2018/2/24 11:48:10编辑过]
加好友 
发短信
Post By：2018/2/23 20:16:00 [显示全部帖子]
