用Webbrowser打开Office时不提示打开、保存对话框

最新推荐文章于 2021-06-01 00:11:03 发布
最新推荐文章于 2021-06-01 00:11:03 发布
阅读量2.7k 收藏 5
点赞数
分类专栏： VB6 VB.net 文章标签： Webbrowser Office Word Excel PowerPoint
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/liang_tb/article/details/86304594
版权

  Public Shared Sub _RegisterAutoConfirmOffice(ByVal bComfirm As Boolean)
        Try
            If bComfirm = True Then
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "FoxitReader.FoxitReaderCtl.1", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Excel.Sheet.8", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Excel.Sheet.12", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "PowerPoint.Show.8", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "PowerPoint.Show.12", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Word.Document.8", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Word.Document.12", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.Drawing.11", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.Drawing.3", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.Drawing.4", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.Drawing.5", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.Drawing.6", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.WebDrawing.14", "0")
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", "Visio.WebDrawing.15", "0")
            Else
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("FoxitReader.FoxitReaderCtl.1")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Excel.Sheet.8")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Excel.Sheet.12")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("PowerPoint.Show.8")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("PowerPoint.Show.12")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Word.Document.8")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Word.Document.12")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.Drawing.11")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.Drawing.3")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.Drawing.4")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.Drawing.5")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.Drawing.6")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.WebDrawing.14")
                My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}", True).DeleteValue("Visio.WebDrawing.15")
            End If

        Catch ex As Exception

        End Try
    End Sub

liang_tb
关注
专栏目录
C# WebBrowser控件 下载文件不弹下载提示框的办法
weixin_30651273的博客
01-16 2348
参考链接 https://stackoverflow.com/questions/6773866/download-file-and-automatically-save-it-to-folder public class MyWebBrowser : WebBrowser { /// <summary> /// The UR...
C#在winForm里嵌入office
huang_hws的专栏
04-11 1万+
由于公司的需要，上司让我研究如何在C#里控制office，主要是word。首先要先了解如何在winForm里嵌入office，一开始找了非常多的贴子，大多数是说在microsoft webbrowser里打开office文档即可，具体操作参见http://support.microsoft.com/kb/304662/zh-cn里面有详细流程，可是在本人亲测下，却发现没有那么简单（本人笔记本操作系
Vb 用Webbrowser打开Office时不提示打开、保存对话框 注册一下.zip
03-14
C# 嵌入Excel 用Webbrowser打开Office时不提示打开、保存对话框 ，用上面这个VB小程序 ，修改一下注册表就可以了
weboffice for chrome firefox
04-01
weboffice for chrome firefox,点聚weboffice兼容谷歌chrome与firefox浏览器，解决了weboffice在谷歌下无法使用的问题
webbrowser 不能打开office 2007文档
luckisok的专栏
12-15 1794
   webbrowser 不能打开office 2007文档，但可以打开office 2003文档   解决方法，修改注册表   Windows Registry Editor Version 5.00[HKEY_LOCAL_MACHINE/SOFTWARE/Classes/Word.Document.8]"BrowserFlags"=dword:80000024[HKEY_
selenium或webbrowser在浏览器下载文件，提示打开或保存提示框的处理办法——通过键盘发送快捷键处理。
xiaoguangli2013的博客
08-25 1122
import win32api import win32con time.sleep(2) #alt+s快捷键 win32api.keybd_event(0x12, 0, 0, 0) #按下alt win32api.keybd_event(83, 0, 0, 0) #按下s win32api.keybd_event(83, 0, win32con.KEYEVENTF_KEYUP, 0) #松开s win32api.keybd_event(0x12, 0, win32con.KEYEVENTF_KEYUP,
WebOffice(Ie)
12-07
(demo这个是字IE的,如果有大佬有兼容各种浏览器的欢迎分享) webOffice网络文档控件;能够在浏览器窗口中直接编辑Word、Excel、PowerPoint、WPS、CEB等文档并保存到Web服务器上。实现文档和电子表格和数据库的统一管理。同时支持痕迹保留，手写签名，电子印章等办公自动化系统必备的功能。是OA系统开发的标准控件
c语言webbrowser加载html,在C＃WebBrowser中加载本地HTML文件
weixin_33503186的博客
06-01 782
做一个右单击- >属性在Visual Studio中的文件。将“ 复制到输出目录”设置为“始终复制”。然后，您将可以使用以下路径来引用文件： @".\my_html.html"构建项目时，复制到输出目录会将文件与二进制dll放在同一文件夹中。这适用于任何内容文件，即使它位于子文件夹中。如果您使用子文件夹，该文件夹也将被复制到bin文件夹中，因此您的路径将是 @".\my_subfolder\...
Internet Explorer 编程简述（一）WebBrowser还是WebBrowser_V1收藏
skyremember的专栏
09-28 4007
 Internet Explorer 编程简述（一）WebBrowser还是WebBrowser_V1收藏新一篇: Internet Explorer 编程简述（二）在IE中编辑OLE嵌入文档 | 旧一篇: Internet Explorer 编程简述（序）function StorePage(){d=document;t=d.selection?(d.selection.type
不可或缺的delphi基础技巧
.net成长不容易
04-26 2311
◇[DELPHI]网络邻居复制文件uses shellapi;copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);◇[DELPHI]产生鼠标拖动效果通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：var xpanel,ypanel,xlabel,ylabel:integer;PANEL的MouseMove事件：xpanel:=x;ypane
C# winform使用webbrowser控件，不弹出新的页面，只在当前窗口打开
basycai的博客
05-30 1万+
1.记得导入类库using System.ComponentModel;2.修改webbrowser的属性AllowWebBrowserDrop设为 falseWebBrowserShortcutsEnabled设为 falseIsWebBrowserContextMenuEnabled设为 false3.具体的实现代码如下： privatevoid webBrowser1_NewWindow(
解决WebBrowser控件打开本地页面报安全提示的问题
yi412的专栏
04-13 1万+
今天用C#封装了WebBrowser控件去打开一个本地页面，页面中包含了JavaScript脚本，该脚本通过WebBrowser的ObjectForScripting属性，访问C#代码。代码非常简单，但没想到打开页面的时候，WebBrowser报安全提示：“为帮助保护你的安全，你的Web浏览器已经限制此文件显示可能访问你的计算机的活动内容。单击此处查看选项…”。尼玛，这是我自己写的本地页面好不好，
C＃Webbrowser中屏蔽弹出窗口及脚本错误提示
热门推荐
wonsoft的专栏
01-16 2万+
当IE浏览器遇到脚本错误时浏览器，左下角会出现一个黄色图标，点击可以查看脚本错误的详细信息，并不会有弹出的错误信息框。当我们使用WebBrowser控件时有错误信息框弹出，这样程序显的很不友好，而且会让一些自动执行的程序暂停。我看到有人采取的解决方案是做一个窗体杀手程序来关闭弹出的窗体。今天探讨的方法是从控件解决问题。 1、SHDocVw.dll 在COM时代我们使用的WebBrowser
(VB6)如何默认点击使用Webbrowser打开Office时出现的“您要打开还是保存此文件?”的打开按钮
liang_tb的博客
10-07 3136
点击“打开”按钮的思路：       当跳出对话框的时候，程序被挂在，程序不能直接跑到点击代码里，需要开一个线程进行点击。在VB6里，可以用Timer控件进行定时执行点击动作，实现类似线程的功能。 以下代码在Win7 64位下测试可以实现。 在窗体上添加Timer1控件，设定Timer1.Interval 为 100 ‘-----------------------------------
WebBrowser打开Word文档的一些注意事项
林慈盛Vb.net之路
01-24 2488
在题库管理系统中，需要将试题显示出来，并进行编辑。于是，每道题都存储为一个Word文件，并保存在SQL Server中，在浏览试题库时，用WebBrowser控件显示试题是最好的方法，有直观的Word操作界面，也为试题保存提供了方便。     一开始是使用VS 2005中内建的Web Browser控件来显示。显示正常，但很快带来两个问题：     1、默认打开时是有“审阅”工具栏，如
禁止webbrowser打开新页面的方法
瞎掰大数据-- 世界的本质是数据，胡侃瞎掰，专注微软大数据解决方案
10-17 821
禁止webbrowser打开新页面的方法
vb.net 将打开后的excel加载到WebBrowser 不保存
最新发布
09-10
在VB.NET中，如果你想通过`WebBrowser`控件显示Excel文件而不让它保存，你可以使用`Microsoft.Office.Interop.Excel`库来操作Excel，并设置一些选项阻止用户直接下载或另存文档。 以下是一个基本步骤： 1. 引入所需命名空间： ```vb.net Imports Microsoft.Office.Interop.Excel ``` 2. 创建一个新的Excel应用程序实例： ```vb.net Dim excelApp As New Excel.Application() ``` 3. 加载Excel工作簿并选择你要展示的工作表： ```vb.net Dim workbook As Workbook = excelApp.Workbooks.Open("路径\to\your.xlsx") Dim worksheet As Worksheet = workbook.Sheets(1) ' 或指定工作表索引 ``` 4. 将工作表内容转换为HTML格式以便于浏览器查看： ```vb.net Dim html As String Using htmlStream As New MemoryStream() Dim saveOptions As SaveAsOptions = New SaveAsOptions() saveOptions.FileFormat = XlFileFormat.xlHtml4MacroEnabled saveOptions.SaveAsType = XlSaveAsAccessMode.xlNoChange excelApp.ActiveSheet.ExportAsFixedFormat(htmlStream, False, Type.Missing, False) htmlStream.Seek(0, SeekOrigin.Begin) Using sr As StreamReader = New StreamReader(htmlStream) html = sr.ReadToEnd() End Using End Using ``` 5. 把HTML内容加载到WebBrowser控件中： ```vb.net webBrowser1.DocumentText = html ``` 6. 关闭Excel应用（记得处理异常）： ```vb.net Try workbook.Close(SaveChanges:=False) Catch ex As Exception Console.WriteLine("Error closing Excel: " & ex.Message) End Try Finally excelApp.Quit() System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp) End Finally ``` 在这个过程中，Excel文件只会在内存中短暂存在，不会被保存到用户的本地文件系统上。但是请注意，由于安全限制，这并不适用于包含敏感数据或宏的文件，因为浏览器可能会有其自身的安全策略。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值