vb.net 教程 12-4 msHtml 5 偷梁换柱

落日映苍穹つ 2022-08-28 14:59 64阅读 0赞

这节学习如何替换网页的javascript语句。。。。

代码简单，主要是使用mshtml的 HTMLWindow2.execScript()方法。

直接上代码：

Private Sub Button6\_Click(sender As Object, e As EventArgs) Handles Button6.Click  
   
        Dim strScript As String = ""  
        strScript &= "function check()"  
        strScript &= "\{"  
        strScript &= "  if (sampleform.studentname.value.length <2)"  
        strScript &= "  \{"  
        strScript &= "      alert(""姓名长度不符合"");"  
        strScript &= "      return false;"  
        strScript &= "  \}"  
        strScript &= "  if (sampleform.studentage.value.length <2)"  
        strScript &= "  \{"  
        strScript &= "      alert(""年龄太小"");"  
        strScript &= "      return false;    "  
        strScript &= "  \}"  
        strScript &= "  sampleform.submit();"  
        strScript &= "\}"  
   
        Dim win As mshtml.HTMLWindow2  
        win = wbMain.Document.Window.DomWindow  
   
        win.execScript(strScript, "javascript")  
    End Sub  
原来网页上的check()代码:

直接修改后的代码：

看看效果：

使用前：

![Center][]

使用后：

![Center 1][]

如果原来的网页中没有check()呢？自然会创建一个。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看 [vb.net教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/5c878f267d9e48cca869da1d9af59453.png
[Center 1]: /images/20220828/dd8af60a87ee4bb5bb038d369896550d.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/