问题描述

如何这段C#代码翻译成VB代码？谢谢！

private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
{
//自动点击弹出确认或弹出提示
IHTMLDocument2 vDocument = (IHTMLDocument2)webBrowser1.Document.DomDocument;
vDocument.parentWindow.execScript("function confirm(str){return true;} ", "javascript"); //弹出确认
vDocument.parentWindow.execScript("function alert(str){return true;} ", "javaScript");//弹出提示
//下面是你的执行操作代码
}

解决方案

强制类型转换用CType，别的没什么难点。

解决方案二：

 Private Sub webBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
        '自动点击弹出确认或弹出提示
        Dim vDocument As IHTMLDocument2 = WebBrowser1.Document.DomDocument '添加引用 Microsoft.mshtml，头部加上Imports mshtml
        vDocument.parentWindow.execScript("function confirm(str){return true;} ", "javascript") '弹出确认
        vDocument.parentWindow.execScript("function alert(str){return true;} ", "javaScript") '弹出提示
        '下面是你的执行操作代码
    End Sub