当前位置： 首页 > news >正文

vue做的网站大全意大利 网站设计

news 2025/9/18 14:46:41
vue做的网站大全,意大利 网站设计,怎样咨询网络服务商,公司广告推广使用《VB.net webbrowser 如何实现自定义下载 IDownloadManager》中的控件ExtendedWebBrowser（下载控件），并扩展了NewWindow2。 使用ExtendedWebBrowser_1过程中，遇到很多问题，花了几天时间，终于解决了所有…

 使用《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接口完整代码：

Imports Remotion.Dms.Clients.Windows.WebBrowserControl
Imports System.IONamespace MyDownloadmanager                         '定义接口，以实现接口引用 2023.10.27Public Class MyDownloadmanagerImplements IWebBrowserDownloadManagerDim INetCacheFile As String'一些状态的判定（True、False），其中的一种状态（True或False）必须放在接口内进行设定，'不能全部都靠通过外部进程来设定，外部进程只进行其中一种状态的改变就好，否则因为轮询时间差而导致不同步引发非预期结果发生。'例如：AfterLoadBlank#Region "增加属性，将接口的数据传递出去以及传进来"#Region "可读写属性"Private _ContinueDownload As Boolean = TruePublic Property ContinueDownload() As BooleanGetReturn _ContinueDownloadEnd GetSet(ByVal value As Boolean)_ContinueDownload = valueEnd SetEnd PropertyPrivate _DownloadDir As String = ""Public Property DownloadDir() As StringGetReturn _DownloadDirEnd GetSet(ByVal value As String)_DownloadDir = valueEnd SetEnd PropertyPrivate _AttchmentFilename As String = ""Public Property AttchmentFilename() As StringGetReturn _AttchmentFilenameEnd GetSet(ByVal value As String)_AttchmentFilename = valueEnd SetEnd Property'对于会弹出新窗口的下载，因为程序中接管的webbrowser一直没关闭，’在下载完后，需要加载一次新页（在这里加载空白页"about:blank"），‘否则可能无法进行下一次下载。Private _AfterLoadBlank As Boolean = FalsePublic Property AfterLoadBlank() As Boolean    GetReturn _AfterLoadBlankEnd GetSet(ByVal value As Boolean)_AfterLoadBlank = valueEnd SetEnd Property#End Region#Region "ReadOnly Property"Dim _DownloadFileName As String = ""Public ReadOnly Property DownloadFileName() As StringGetReturn _DownloadFileNameEnd GetEnd PropertyPrivate _totalSize As IntegerPublic ReadOnly Property GetTotalSize() As IntegerGetReturn _totalSizeEnd GetEnd PropertyPrivate _currentValue As IntegerPublic ReadOnly Property GetCurrentValue() As IntegerGetReturn _currentValueEnd GetEnd PropertyPrivate _success As BooleanPublic ReadOnly Property GetSuccess() As BooleanGetReturn _successEnd GetEnd PropertyPrivate _statusText As StringPublic ReadOnly Property GetStatusText() As StringGetReturn _statusTextEnd GetEnd PropertyPrivate _isAborted As BooleanPublic ReadOnly Property GetisAborted() As BooleanGetReturn _isAbortedEnd GetEnd PropertyPrivate _IsDownloadCompleted As Boolean = False'下载开始时，设置为false，下载结束或退出时，设置为TruePublic ReadOnly Property IsDownloadCompleted() As Boolean    GetReturn _IsDownloadCompletedEnd GetEnd PropertyPrivate _OnStartDownloading As Boolean = False'下载开始时，设置为false，下载结束或退出时，设置为TruePublic ReadOnly Property OnStartDownloading() As Boolean    GetReturn _OnStartDownloadingEnd GetEnd Property#End Region#End Region#Region "接口函数"Public Sub OnAborted() Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnAbortedWriteRunLog("OnAborted")_isAborted = True_IsDownloadCompleted = True_OnStartDownloading = FalseEnd SubPublic Function OnDataAvailable(ByVal buffer() As Byte, ByVal bytesAvailable As Integer) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnDataAvailable_currentValue += bytesAvailable'需要加这行，否则可能下载时发生阻塞，导致下载中断，而且这种情况与下载文件大小无关，即使很小几M的文件也会发生。Application.DoEvents()      Return _ContinueDownloadEnd Function'在下载完后，需要加载一次新页（在这里加载空白页"about:blank"），否则可能无法进行下一次下载。Public Sub OnDownloadCompleted(ByVal success As Boolean, ByVal statusText As String) Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnDownloadCompleted_isAborted = False_IsDownloadCompleted = True_OnStartDownloading = False_AfterLoadBlank = True_success = success_statusText = statusText_AttchmentFilename = ""WriteRunLog("OnDownloadCompleted：" + success.ToString + "      " + statusText)If success ThenIf String.IsNullOrEmpty(INetCacheFile) ThenWriteRunLog("没有找到IE缓冲区文件！文件 " + _DownloadFileName + " 下载失败！")ElseFile.Copy(INetCacheFile, _DownloadFileName, overwrite:=True)      '从IE缓冲区复制文件WriteRunLog("找到IE缓冲区文件： " + INetCacheFile + "，复制到：" + _DownloadFileName)End IfEnd IfEnd SubPublic Function OnProgress(ByVal currentValue As Integer, ByVal totalSize As Integer, ByVal statusText As String) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnProgress_totalSize = totalSize'从第一次OnProgress中获取下载文件名If String.IsNullOrEmpty(_DownloadFileName) Then      _DownloadFileName = MyGetFileName(statusText)If String.IsNullOrEmpty(_DownloadFileName) Then_DownloadFileName = "TmpFile"End IfIf Directory.Exists(_DownloadDir) Then_DownloadFileName = _DownloadDir + "\" + _DownloadFileNameEnd IfEnd IfIf String.IsNullOrEmpty(INetCacheFile) ThenIf InStr(statusText, "Windows\INetCache") > 0 Then  '查找IE缓冲区文件 保存路径、文件名INetCacheFile = statusText'WriteRunLog("OnProgress找到IE缓冲区文件： " + INetCacheFile)End IfEnd IfSystem.Windows.Forms.Application.DoEvents()Return _ContinueDownloadEnd FunctionPublic Function OnStartDownload(ByVal uri As System.Uri) As Boolean Implements Remotion.Dms.Clients.Windows.WebBrowserControl.IWebBrowserDownloadManager.OnStartDownload_currentValue = 0_OnStartDownloading = True_ContinueDownload = True_IsDownloadCompleted = FalseINetCacheFile = ""_DownloadFileName = ""WriteRunLog("OnStartDownload ：" + uri.ToString)Return TrueEnd Function'OnStartDownload:http://115.1.115.15:9080/FrntMonitor/servlet/com.icbc.cte.cs.servlet.CSReqServlet'1、第一次获得文件名   OnProgress:0 totalSize:0 statusText: C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls'2、第二次获得下载链接 OnProgress:3483 totalSize:0 statusText:(OnStartDownload中的网址：http://115.1.115.15:9080/FrntMonitor/servlet/com.icbc.cte.cs.servlet.CSReqServlet)'3483就是在这时候读取的数据大小。'OnProgress:3483 totalSize:0 statusText: C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls'OnDataAvailable:38281  (这个就是文件的实际大小)（可能文件小，此时文件已经下载到缓存：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls）'OnProgress:38281 totalSize:0 statusText:(OnStartDownload中的网址)'OnDownloadCompleted'================================='OnStartDownload ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc'1、第一次获得文件名   OnProgress:0 totalSize:0 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc'2、第二次获得下载链接 OnProgress:119296 totalSize:119296 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc'OnProgress:119296 totalSize:119296 statusText ：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\5Q44G40U\20107214401523292.doc'OnProgress:119296 totalSize:119296 statusText ：http://115.96.14.11/kjbbs/UpLoadFile/2010-7/20107214401523292.doc'OnDataAvailable:119296  （可能文件小，此时文件已经下载到缓存：C:\Users\gdzs-liyh\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\0F2VEW6C\statatmdev[2].xls）'OnDownloadCompleted#End RegionShared Sub WriteRunLog(ByVal MyMsg As String)'Using w As StreamWriter = File.AppendText("RunLog.txt")Dim w As StreamWriterIf File.Exists("RunLog.txt") ThenIf My.Computer.FileSystem.GetFileInfo("RunLog.txt").Length > 10485760 Then  '2017.5.4 文件大于10M，清0w = File.CreateText("RunLog.txt")w.Write("文件大于10M，置0从头开始！")w.Write(Chr(9))Elsew = File.AppendText("RunLog.txt")End IfElsew = File.CreateText("RunLog.txt")End Ifw.Write(Now)w.Write(Chr(9))     '插入Tab键w.WriteLine(MyMsg)w.Flush()w.Close()'End UsingEnd SubPublic Function MyGetFileName(ByVal inStr As String) As String'获取文件名， '文件夹名、文件名不能包含下列字符\/:*?"<>|Dim ss As Stringss = System.IO.Path.GetFileName(inStr)Dim n = InStrRev(ss, "=")If n < ss.Length Thenss = ss.Substring(n)End IfMyGetFileName = ss.Replace("\", "").Replace("/", "").Replace(":", "").Replace("*", "").Replace("?", "").Replace(Chr(34), "").Replace("<", "").Replace(">", "").Replace("|", "")If InStrRev(MyGetFileName, "[") > 1 And InStrRev(MyGetFileName, "[") < InStrRev(MyGetFileName, "]") Then    '将 21018102002617385797[1] 中的 [1] 去掉MyGetFileName = Left(MyGetFileName, InStrRev(MyGetFileName, "[") - 1) + Mid(MyGetFileName, InStrRev(MyGetFileName, "]") + 1)End IfMyGetFileName = _AttchmentFilename + MyGetFileNameEnd FunctionEnd ClassEnd Namespace

http://www.yayakq.cn/news/625399/

相关文章：

  • 横峰县建设局网站网络推广服务
  • 做板子焊接的网站的公司名字做网站为何要续费
  • 福建建设局网站招标学习软件有哪些
  • 网站建设实施过程大都会app下载二维码
  • 中国城乡建设结合部网站佛山手机建站模板
  • seo网站优化培训怎么做龙中龙网站开发
  • 国内最大的网站制作公司注册号域名后如何建设公司网站
  • 东莞品牌型网站建设价格苏州专业网站设计制作公司
  • 阿里云服务器搭网站同时做网盘wordpress 所属分类
  • 企业网站建立之前必须首先确定可以自己做斗图的网站
  • 个人信息网站建设方案书框架栏目wordpress 简码使用
  • 建设网站的费用入什么科目用jsp怎么做的购物网站
  • wordpress拖曳式建站上海最有名的设计公司有哪些
  • 网站没收录了怎么办北京太阳宫网站建设
  • ps切片工具做网站安卓app安装
  • 做外贸的网站公司企业注册网站
  • 网站开发视频是存储的列举及简述网站建设的流程
  • 域名同时做邮箱和网站软件开发前景和发展
  • 南京工程网站建设莆田企业网站建设
  • 网站建设在电子商务中意义贵阳官网建设价格
  • 网站主页没有关键词潍坊哪家做网站做的最好
  • 做网站前期工作怎么建设投票网站
  • cms 企业网站网站建设 sam大叔排名三天上首页
  • 自己做网站接入微信和支付宝天堂网长尾关键词挖掘网站
  • 网站开发培训网站seo最强
  • 榆林市建设局官方网站影业的网站怎么做
  • 以春天为主题的网站建设资源新注册公司电话号码查询
  • 金华网站建设seo建站工具箱接线图
  • 西宁专业企业网站建设在重庆找做网站的技术人员
  • 网站开发方法是什么标准网站建设哪家好