这几节的代码都是以《
vb.net 教程 20-2 WebBrowser高级用法 2 HtmlElement类 3》一节为样例的,
其中1是对是否输入了姓名做了限制,2是对输入年龄的长度做了限制(最大长度为2位),3还对姓名和年龄的文本框长度做了限制(最大长度为6位)
- function check()
- 06.{
- 07. if(sampleform.studentname.value=="")
- 08. {
- 09. alert("姓名没有填写");
- 10. return false;
- 11. }
- 12. if(sampleform.studentage.value.length>2)
- 13. {
- 14. alert("年龄长度超过2位");
- 15. return false;
- 16. }
- 17. sampleform.submit();
- 18.}
- 输入学生姓名:<input type="text" name="studentname" id="studentname" maxlength="6"> <br/>
- 输入学生年龄:<input type="test" name="studentage" id="studentage" maxlength="6"> <br/>
本节谈谈如何突破网页上的限制。
- Private Sub btnPassValue_Click(sender As Object,e As EventArgs) Handles btnPassValue.Click
- Dim strName As String = "输入了姓名李四"
- Dim strAge As String = "211111111"
- Dim htmlAlls As HtmlElementCollection
- htmlAlls = wbMain.Document.GetElementsByTagName("Input")
- For Each htmlSingle As HtmlElement In htmlAlls
- Select Case htmlSingle.GetAttribute("name")
- Case "studentname"
- htmlSingle.SetAttribute("value",strName)
- Case "studentage"
- htmlSingle.SetAttribute("value",strAge)
- Case Else
- '不处理
- End Select
- Next
- Dim wbDocument As HtmlDocument = wbMain.Document
- Dim newSubmit As HtmlElement = wbDocument.CreateElement("input")
- Dim htmlForm As HtmlElement
- htmlForm = wbDocument.GetElementById("sampleform")
- htmlForm.AppendChild(newSubmit)
- newSubmit.OuterHtml = "<input type='button' name='btnsubmit' id='btnsubmit' value='提交' onclick='javascript:sampleform.submit();'>"
- End Sub
运行程序后,按下“突破限制“按钮,可以看到输入的姓名和年龄都超过了文本框长度的限制:
按下网页上新增加的”提交“按钮,完美的绕过数据检查将表单提交了:
- newSubmit.RaiseEvent("onclick")
但是会引发一个错误:
OK,好像代码对内嵌的javascript不感冒。
看来还是的老老实实地等待按钮创建后在网页上按下我们创建的提交按钮。
大家也别灰心,以后在教程中我还会教大家如何突破这一步限制。
最后再给大家提个醒:网页代码单靠javascript还是不是很安全,除了在客户端用javascript验证数据外,看来还是得在服务器后端再验证一下。
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看 vb.net 教程 目录