• VB.net webbrowser 自定义下载接口实现

     使用《VB.net webbrowser 如何实现自定义下载 IDownloadManager》中的控件ExtendedWebBrowser（下载控件），并扩展了NewWindow2。

    使用ExtendedWebBrowser_1过程中，遇到很多问题，花了几天时间，终于解决了所有问题。

    问题1：接管了下载后，发现大文件下载，主程序会阻塞。

            一开始，以为是在写文件时因为IO响应导致阻塞，改用异步写，等等...尝试，发现阻塞依然，看过《C# 用FileStream.WriteAsync 异步读文件，调用线程还是被阻塞了》等文章后，问题依然未能解决。

            最后尝试主程序不写文件（就是接管下载后，在OnDataAvailable中对接收数据不操作），不做任何操作，阻塞依然存在。阻塞会导致下载中断，而且这种情况与下载文件大小无关，即使很小几M的文件也会发生。

            苦思中，记起以前写一个延时函数时，为了不阻塞而加入了Application.DoEvents()语句，于是在最频繁操作的OnDataAvailable中加入Application.DoEvents()语句，问题终于得到完满解决。

    问题2：写文件

            一开始，是主程序写文件，遇到太多麻烦，在解决问题1中，发现接管了下载后，其实IE是有在后台进程中将文件下载到IE缓冲区的，OnProgress第一次便是返回IE缓冲区中下载的文件名，于是便改用：等下载完后从IE缓冲区复制文件。（貌似IE原有下载器也是这样干的？）

    问题3：对于会弹出新窗口的下载，在进行第二次下载时，没有触发下载。

            因为主程序中接管弹出窗口的Extendedwebbrowser_2一直没关闭（IE中下载窗口是立即关闭的），并且发现，在NewWindow2中将弹出下载转到Extendedwebbrowser_2触发下载时，Extendedwebbrowser_2并没有触发DocumentCompleted，估计就是这里导致第二次下载时不能触发。
           解决办法：在下载完后，Extendedwebbrowser_2加载空白页"about:blank"，问题解决。
     

    下面是IWebBrowserDownloadManager接口完整代码：

    1. Imports Remotion.Dms.Clients.Windows.WebBrowserControl
    2. Imports System.IO
    3.  
    4. Namespace MyDownloadmanager                         '定义接口，以实现接口引用 2023.10.27
    5.  
    6.    Public Class MyDownloadmanager
    7.  
    8.        Implements IWebBrowserDownloadManager
    9.  
    10.        Dim INetCacheFile As String
    11.  
    12.        '一些状态的判定（True、False），其中的一种状态（True或False）必须放在接口内进行设定，
    13.        '不能全部都靠通过外部进程来设定，外部进程只进行其中一种状态的改变就好，否则因为轮询时间差而导致不同步引发非预期结果发生。
    14.        '例如：AfterLoadBlank
    15.  
    16. #Region "增加属性，将接口的数据传递出去以及传进来"
    17.  
    18. #Region "可读写属性"
    19.  
    20.        Private _ContinueDownload As Boolean = True
    21.        Public Property ContinueDownload() As Boolean
    22.  
    23.            Get
    24.  
    25.                Return _ContinueDownload
    26.  
    27.            End Get
    28.  
    29.            Set(ByVal value As Boolean)
    30.  
    31.                _ContinueDownload = value
    32.  
    33.            End Set
    34.  
    35.        End Property
    36.  
    37.        Private _DownloadDir As String = ""
    38.        Public Property DownloadDir() As String
    39.  
    40.            Get
    41.  
    42.                Return _DownloadDir
    43.  
    44.            End Get
    45.  
    46.            Set(ByVal value As String)
    47.  
    48.                _DownloadDir = value
    49.  
    50.            End Set
    51.  
    52.        End Property
    53.  
    54.        Private _AttchmentFilename As String = ""
    55.        Public Property AttchmentFilename() As String
    56.  
    57.            Get
    58.  
    59.                Return _AttchmentFilename
    60.  
    61.            End Get
    62.  
    63.            Set(ByVal value As String)
    64.  
    65.                _AttchmentFilename = value
    66.  
    67.            End Set
    68.  
    69.        End Property
    70.  
    71.         '对于会弹出新窗口的下载，因为程序中接管的webbrowser一直没关闭，
    72.         ’在下载完后，需要加载一次新页（在这里加载空白页"about:blank"），
    73.         ‘否则可能无法进行下一次下载。
    74.        Private _AfterLoadBlank As Boolean = False
    75.        Public Property AfterLoadBlank() As Boolean    
    76.  
    77.            Get
    78.  
    79.                Return _AfterLoadBlank
    80.  
    81.            End Get
    82.  
    83.            Set(ByVal value As Boolean)
    84.  
    85.                _AfterLoadBlank = value
    86.  
    87.            End Set
    88.  
    89.        End Property
    90.  
    91. #End Region
    92.  
    93. #Region "ReadOnly Property"
    94.  
    95.        Dim _DownloadFileName As String = ""
    96.        Public ReadOnly Property DownloadFileName() As String
    97.  
    98.            Get
    99.  
    100.                Return _DownloadFileName
    101.  
    102.            End Get
    103.  
    104.        End Property
    105.  
    106.        Private _totalSize As Integer
    107.  
    108.        Public ReadOnly Property GetTotalSize() As Integer
    109.  
    110.            Get
    111.  
    112.                Return _totalSize
    113.  
    114.            End Get
    115.  
    116.        End Property
    117.  
    118.        Private _currentValue As Integer
    119.  
    120.        Public ReadOnly Property GetCurrentValue() As Integer
    121.  
    122.            Get
    123.  
    124.                Return _currentValue
    125.  
    126.            End Get
    127.  
    128.        End Property
    129.  
    130.        Private _success As Boolean
    131.  
    132.        Public ReadOnly Property GetSuccess() As Boolean
    133.  
    134.            Get
    135.  
    136.                Return _success
    137.  
    138.            End Get
    139.  
    140.        End Property
    141.  
    142.        Private _statusText As String
    143.  
    144.        Public ReadOnly Property GetStatusText() As String
    145.  
    146.            Get
    147.  
    148.                Return _statusText
    149.  
    150.            End Get
    151.  
    152.        End Property
    153.  
    154.        Private _isAborted As Boolean
    155.  
    156.        Public ReadOnly Property GetisAborted() As Boolean
    157.  
    158.            Get
    159.  
    160.                Return _isAborted
    161.  
    162.            End Get
    163.  
    164.        End Property
    165.  
    166.        Private _IsDownloadCompleted As Boolean = False
    167.  
    168.         '下载开始时，设置为false，下载结束或退出时，设置为True
    169.        Public ReadOnly Property IsDownloadCompleted() As Boolean    
    170.  
    171.            Get
    172.  
    173.                Return _IsDownloadCompleted
    174.  
    175.            End Get
    176.  
    177.        End Property
    178.  
    179.        Private _OnStartDownloading As Boolean = False
    180.  
    181.         '下载开始时，设置为false，下载结束或退出时，设置为True
    182.        Public ReadOnly Property OnStartDownloading() As Boolean    
    183.  
    184.            Get
    185.  
    186.                Return _OnStartDownloading
    187.  
    188.            End Get
    189.  
    190.        End Property
    191.  
    192. #End Region
    193.  
    194. #End Region
    195.  
    196. #Region "接口函数"
    197.  
    198.        Public Sub OnAborted() Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnAborted
    199.  
    200.            WriteRunLog("OnAborted")
    201.  
    202.            _isAborted = True
    203.  
    204.            _IsDownloadCompleted = True
    205.  
    206.            _OnStartDownloading = False
    207.  
    208.        End Sub
    209.  
    210.        Public Function OnDataAvailable(ByVal buffer() As Byte, ByVal bytesAvailable As Integer) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnDataAvailable
    211.  
    212.            _currentValue += bytesAvailable
    213.  
    214.             '需要加这行，否则可能下载时发生阻塞，导致下载中断，而且这种情况与下载文件大小无关，即使很小几M的文件也会发生。
    215.            Application.DoEvents()      
    216.  
    217.            Return _ContinueDownload
    218.  
    219.        End Function
    220.  
    221.        '在下载完后，需要加载一次新页（在这里加载空白页"about:blank"），否则可能无法进行下一次下载。
    222.  
    223.        Public Sub OnDownloadCompleted(ByVal success As Boolean, ByVal statusText As String) Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnDownloadCompleted
    224.  
    225.            _isAborted = False
    226.  
    227.            _IsDownloadCompleted = True
    228.  
    229.            _OnStartDownloading = False
    230.  
    231.            _AfterLoadBlank = True
    232.  
    233.            _success = success
    234.  
    235.            _statusText = statusText
    236.  
    237.            _AttchmentFilename = ""
    238.  
    239.            WriteRunLog("OnDownloadCompleted：" + success.ToString + "      " + statusText)
    240.  
    241.            If success Then
    242.  
    243.                If String.IsNullOrEmpty(INetCacheFile) Then
    244.  
    245.                    WriteRunLog("没有找到IE缓冲区文件！文件 " + _DownloadFileName + " 下载失败！")
    246.  
    247.                Else
    248.  
    249.                    File.Copy(INetCacheFile, _DownloadFileName, overwrite:=True)      '从IE缓冲区复制文件
    250.  
    251.                    WriteRunLog("找到IE缓冲区文件： " + INetCacheFile + "，复制到：" + _DownloadFileName)
    252.  
    253.                End If
    254.  
    255.  
    256.  
    257.            End If
    258.  
    259.        End Sub
    260.  
    261.        Public Function OnProgress(ByVal currentValue As Integer, ByVal totalSize As Integer, ByVal statusText As String) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnProgress
    262.  
    263.            _totalSize = totalSize
    264.  
    265.             '从第一次OnProgress中获取下载文件名
    266.  
    267.            If String.IsNullOrEmpty(_DownloadFileName) Then      
    268.  
    269.                _DownloadFileName = MyGetFileName(statusText)
    270.  
    271.                If String.IsNullOrEmpty(_DownloadFileName) Then
    272.  
    273.                    _DownloadFileName = "TmpFile"
    274.  
    275.                End If
    276.  
    277.                If Directory.Exists(_DownloadDir) Then
    278.  
    279.                    _DownloadFileName = _DownloadDir + "\" + _DownloadFileName
    280.  
    281.                End If
    282.  
    283.            End If
    284.  
    285.            If String.IsNullOrEmpty(INetCacheFile) Then
    286.  
    287.                If InStr(statusText, "Windows\INetCache") > 0 Then  '查找IE缓冲区文件 保存路径、文件名
    288.  
    289.                    INetCacheFile = statusText
    290.  
    291.                    'WriteRunLog("OnProgress找到IE缓冲区文件： " + INetCacheFile)
    292.  
    293.                End If
    294.  
    295.            End If
    296.  
    297.            System.Windows.Forms.Application.DoEvents()
    298.  
    299.            Return _ContinueDownload
    300.  
    301.        End Function
    302.  
    303.        Public Function OnStartDownload(ByVal uri As System.Uri) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnStartDownload
    304.  
    305.            _currentValue = 0
    306.  
    307.            _OnStartDownloading = True
    308.  
    309.            _ContinueDownload = True
    310.  
    311.            _IsDownloadCompleted = False
    312.  
    313.            INetCacheFile = ""
    314.  
    315.            _DownloadFileName = ""
    316.  
    317.            WriteRunLog("OnStartDownload ：" + uri.ToString)
    318.  
    319.            Return True
    320.  
    321.        End Function
    322.  
    323.        'OnStartDownload:http://115.1.115.15:9080/FrntMonitor/servlet/com.icbc.cte.cs.servlet.CSReqServlet
    324.  
    325.        '1、第一次获得文件名   OnProgress:0 totalSize:0 statusText: C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls
    326.  
    327.        '2、第二次获得下载链接 OnProgress:3483 totalSize:0 statusText:(OnStartDownload中的网址：http://115.1.115.15:9080/FrntMonitor/servlet/com.icbc.cte.cs.servlet.CSReqServlet)
    328.  
    329.        '3483就是在这时候读取的数据大小。
    330.  
    331.        'OnProgress:3483 totalSize:0 statusText: C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls
    332.  
    333.        'OnDataAvailable:38281  (这个就是文件的实际大小)（可能文件小，此时文件已经下载到缓存：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls）
    334.  
    335.        'OnProgress:38281 totalSize:0 statusText:(OnStartDownload中的网址)
    336.  
    337.        'OnDownloadCompleted
    338.  
    339.        '=================================
    340.  
    341.        'OnStartDownload ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc
    342.  
    343.        '1、第一次获得文件名   OnProgress:0 totalSize:0 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc
    344.  
    345.        '2、第二次获得下载链接 OnProgress:119296 totalSize:119296 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc
    346.  
    347.        'OnProgress:119296 totalSize:119296 statusText ：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\5Q44G40U\20107214401523292.doc
    348.  
    349.        'OnProgress:119296 totalSize:119296 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc
    350.  
    351.        'OnDataAvailable:119296  （可能文件小，此时文件已经下载到缓存：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls）
    352.  
    353.        'OnDownloadCompleted
    354.  
    355. #End Region
    356.  
    357.        Shared Sub WriteRunLog(ByVal MyMsg As String)
    358.  
    359.            'Using w As StreamWriter = File.AppendText("RunLog.txt")
    360.  
    361.            Dim w As StreamWriter
    362.  
    363.            If File.Exists("RunLog.txt") Then
    364.  
    365.                If My.Computer.FileSystem.GetFileInfo("RunLog.txt").Length > 10485760 Then  '2017.5.4 文件大于10M，清0
    366.  
    367.                    w = File.CreateText("RunLog.txt")
    368.  
    369.                    w.Write("文件大于10M，置0从头开始！")
    370.  
    371.                    w.Write(Chr(9))
    372.  
    373.                Else
    374.  
    375.                    w = File.AppendText("RunLog.txt")
    376.  
    377.                End If
    378.  
    379.            Else
    380.  
    381.                w = File.CreateText("RunLog.txt")
    382.  
    383.            End If
    384.  
    385.            w.Write(Now)
    386.  
    387.            w.Write(Chr(9))     '插入Tab键
    388.  
    389.            w.WriteLine(MyMsg)
    390.  
    391.            w.Flush()
    392.  
    393.            w.Close()
    394.  
    395.            'End Using
    396.  
    397.        End Sub
    398.  
    399.        Public Function MyGetFileName(ByVal inStr As String) As String
    400.  
    401.            '获取文件名， '文件夹名、文件名不能包含下列字符\/:*?"<>|
    402.  
    403.            Dim ss As String
    404.  
    405.            ss = System.IO.Path.GetFileName(inStr)
    406.  
    407.            Dim n = InStrRev(ss, "=")
    408.  
    409.            If n < ss.Length Then
    410.  
    411.                ss = ss.Substring(n)
    412.  
    413.            End If
    414.  
    415.            MyGetFileName = ss.Replace("\", "").Replace("/", "").Replace(":", "").Replace("*", "").Replace("?", "").Replace(Chr(34), "").Replace("<", "").Replace(">", "").Replace("|", "")
    416.  
    417.            If InStrRev(MyGetFileName, "[") > 1 And InStrRev(MyGetFileName, "[") < InStrRev(MyGetFileName, "]") Then    '将 21018102002617385797[1] 中的 [1] 去掉
    418.  
    419.                MyGetFileName = Left(MyGetFileName, InStrRev(MyGetFileName, "[") - 1) + Mid(MyGetFileName, InStrRev(MyGetFileName, "]") + 1)
    420.  
    421.            End If
    422.  
    423.            MyGetFileName = _AttchmentFilename + MyGetFileName
    424.  
    425.        End Function
    426.  
    427.    End Class
    428.  
    429. End Namespace

  • 相关阅读:
    阿里巴巴对裁员谣言报警
    Ubuntu 24.04 抢先体验换国内源 清华源 阿里源 中科大源 163源
    Sa-Token 整合Java17和SpringBoot
    Linux 解压报错
    Gitlab-Runner安装并注册
    FastJson反序列化漏洞（复现）
    没有公网ip怎么做外网访问内网端口?快解析内网穿透
    如何基于surging架设流媒体视频推流（视频讲解）
    YOLOv5分类任务——手势识别
    DevSecOps基本概念介绍
  • 原文地址：https://blog.csdn.net/zslefour/article/details/134439084