zoukankan      html  css  js  c++  java
  • WebBrowser取消弹出式窗口、忽略错误

    代码
     1 WebBrowser取消弹出式窗口
     2 
     3 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) 
     4 Dim oDoc1 As HTMLDocument 
     5 Set oDoc1 = pDisp.Document 
     6 oDoc1.parentWindow.execScript "function alert(){return;}" 
     7 oDoc1.parentWindow.execScript "function confirm(){return;}" 
     8 oDoc1.parentWindow.execScript "function showModalDialog(){return;}" 
     9 End Sub
    10 
    11 
    12 '忽略错误
    13 Private Sub WebBrowser1_DownloadBegin() 
    14 WebBrowser1.Silent = True 
    15 End Sub 
    16 
    17 Private Sub WebBrowser1_DownloadComplete() 
    18 WebBrowser1.Silent = True 
    19 End Sub
    20 
    21 
    22 某些网页出于各种考虑会弹出对话框要求信息确认,往往会中断我们的webbrowser过程,可以使用如下方法:
    23 1.加入Microsoft Html Object
    24 2.加入语句
    25 
    26 Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    27 Dim obj As HTMLDocument
    28 Set obj = pDisp.Document
    29 obj.parentWindow.execScript "function showModalDialog(){return;}" '对showModalDialog引起的对话框进行确定
    30 End Sub
    31 而confirm引发的对话确定框可用confirm替换showModalDialog即可,Alert等同理~
    32 
    33 另一种方法在CSDN看到的方法,过个记录(未尝试)
    34 
    35 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As LongAs Long 
    36 
    37 ShellExecute frmDisplay.hwnd, vbNullString, "http://www.sina.com", vbNullString, vbNullString, SW_SHOWNORMAL
    38 
  • 相关阅读:
    JQuery学习之(一)概述
    Ajax:拥抱JSON,让XML走开(转)
    .Net下采用GET/POST/SOAP方式动态调用WebService的简易灵活方法(C#)
    Nunit使用手记
    ajax常见问题总结
    单例模式代码
    asp.net网站url伪静态重写技术的实现
    WCF 基础加开发简介
    ExtJS调用WCF实现JSON传递
    lock 语句(C# 参考)
  • 原文地址:https://www.cnblogs.com/xxaxx/p/1635298.html
Copyright © 2011-2022 走看看