在Visual Basic中如何缩小WebBrowser中的图像尺寸

Dim jsCode As String = "<script type='text/javascript'>" & _
                       "var images = document.getElementsByTagName('img');" & _
                       "for (var i = 0; i < images.length; i++) {" & _
                       "   images[i].style.width = '50%';" & _
                       "   images[i].style.height = 'auto';" & _
                       "}" & _
                       "</script>"

WebBrowser1.Document.InvokeScript("execScript", New Object() {jsCode, "JavaScript"})

WebBrowser1.ZoomFactor = 0.5 ' 设置缩放因子为0.5，即缩小到50%

Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
    Dim doc As HtmlDocument = WebBrowser1.Document
    Dim images As HtmlElementCollection = doc.Images

    For Each img As HtmlElement In images
        img.SetAttribute("width", "50%")
        img.SetAttribute("height", "auto")
    Next
End Sub