......
Else '如果验证失败
Dim url As String = e.path
If e.GetValues.Count > 0 Then
url &= "?"
For Each key As String In e.GetValues.Keys
url &= key & "=" & e.GetValues(key) & "&"
Next
url = url.TrimEnd("&")
End If
wb.AppendCookie("path", url) '将用
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
Return '必须的
End If