Webbrowser control 真正的人用网络浏览器计算

Webbrowser control 真正的人用网络浏览器计算,webbrowser-control,Webbrowser Control,我们有真正的人数AXI摄像头,它可以计算进入大楼的人数。我们可以在网页上看到实时查看和计数。我想在没有任何动画的屏幕上显示计数结果。我考虑在vb.net中使用webbrowser控件加载实时查看网页,然后在webbrowser中注入javascript并显示文本框上的计数。这是我的代码,但我不断收到关于javascript文本的错误消息,有任何帮助吗 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.E

我们有真正的人数AXI摄像头,它可以计算进入大楼的人数。我们可以在网页上看到实时查看和计数。我想在没有任何动画的屏幕上显示计数结果。我考虑在vb.net中使用webbrowser控件加载实时查看网页,然后在webbrowser中注入javascript并显示文本框上的计数。这是我的代码,但我不断收到关于javascript文本的错误消息,有任何帮助吗

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser3.导航(“http://10.xx.xxx.xx/people-counter/liveview.html"

私有子WebBrowser3_DocumentCompleted(ByVal发件人作为System.Object,ByVal e作为System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)处理WebBrowser3.DocumentCompleted

    Dim mScript As HtmlElement
    Dim mHead As HtmlElement
    Dim element As mshtml.HTMLScriptElement


    With WebBrowser3
        mHead = WebBrowser3.Document.GetElementsByTagName("head")(0)
        mScript = .Document.CreateElement("script")
        mScript.SetAttribute("type", "text/javascript")
        element = mScript.DomElement
        element.text = "$(function showcount(){$("#video").countingArea($.extend({},cntarea,{displayWidth:320,displayHeight:240,mjpgUrl:"/axis-cgi/mjpg/video.cgi?resolution=320x240",jpegUrl:"/local/people-counter/.api?image.jpg",fps:12}));$.liveviewWithTable({countsTableElement:$("#counts"),countTableElement:$("#count"),directionIn:$.getParam("Counter.DirectionIn"),liveSumUrl:"/local/people-counter/.api?live-sum.json",loadingAnimationUrl:"/people-counter/images/ajax-loader.gif",dataTypes:["in","out"],strings:{"x second ago":"%d second ago","x seconds ago":"%d seconds ago","x minute ago":"%d minute ago","x minutes ago":"%d minutes ago","x hour ago":"%d hour ago","x hours ago":"%d hours ago","x day ago":"%d day ago","x days ago":"%d days ago","x week ago":"%d week ago","x weeks ago":"%d weeks ago","x month ago":"%d month ago","x months ago":"%d months ago","x year ago":"%d year ago","x years ago":"%d years ago"}})});"

        mHead.AppendChild(mScript)
        .Document.InvokeScript("showcount")
    End With
End Sub