Loading [MathJax]/jax/output/CommonHTML/config.js
首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >专栏 >Excel催化剂开源第4波-ClickOnce部署要点之导入数字证书及创建EXCEL信任文件夹

Excel催化剂开源第4波-ClickOnce部署要点之导入数字证书及创建EXCEL信任文件夹

作者头像
Excel催化剂
发布于 2021-08-19 06:57:01
发布于 2021-08-19 06:57:01
49100
代码可运行
举报
文章被收录于专栏:Excel催化剂Excel催化剂
运行总次数:0
代码可运行

Excel催化刘插件使用Clickonce的部署方式发布插件,以满足用户使用插件过程中,需要对插件进行功能升级时,可以无痛地自动更新推送新版本。 但Clickonce部署,对用户环境有较大的要求,前期首次安装,比较波折,但相对于后续的自动更新的回报,笔者自我感觉还是很值得的。 Clickonce部署过程中,要求导入数字证书和设置Excel共享路径这两个步骤,本篇开源代码主要讲述这个过程的自动化处理的代码实现,同样用的是Console程序。

为了还原一个干净无侵扰的网络世界,本文将不进行大规模地分发,若您觉得此文有用,不妨小范围地分享到真正有需要的人手中

关于Clickonce部署的其他介绍

若对Clickonce部署的其他深入知识点,可以通过百度自行补充或通过以下链接继续深入学习。

ClickOnce部署 - 无恨星晨 - 博客园 http://www.cnblogs.com/weixing/p/3358740.html

Excel催化剂公众号历史文章 https://mp.weixin.qq.com/s/HCluSw-8uZkXiLWBeeJqiA

https://mp.weixin.qq.com/s/G8B2gEG8LfIUCuSyAPFX2w

代码实现原理

  • 导入数据证书 预先把证书放到资源里,然后调用Windows证书导入的类库的一些命令即可。
  • 创建信任位置 此操作也是在注册表上完成,在注册表上新建一个条目,指向要共享的路径即可。

同样的因笔者非专业程序猿,可能写出来的代码严谨性有限,仅供参考。

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
using Microsoft.Win32;
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.Linq;
using System.Security.Cryptography.X509Certificates;
using System.Text;
using System.Text.RegularExpressions;
namespace 导入证书及设置EXCEL信任文件夹
{
    class Program
    {
        static void Main(string[] args)
        {
            //64位系统
            try
            {
                Console.WriteLine("正在导入证书操作");

                X509Store storeTrustedPublisher = new X509Store(StoreName.TrustedPublisher, StoreLocation.CurrentUser);
                //导入外部信任者
                ImportCertificate(storeTrustedPublisher);
                //导入根证书信任
                X509Store storeRoot = new X509Store(StoreName.Root, StoreLocation.CurrentUser);
                ImportCertificate(storeRoot);

                Console.WriteLine("正在创建EXCEL信任文件夹");

                TrustDirSetting.SettingTrustDir("http://LiWeiJianWeb/");
            }
            catch (Exception ex)
            {
                Console.WriteLine(ex.Message);
            }
            finally
            {
                Console.WriteLine("操作完成,请按任意键结束!");
                Console.ReadKey();
            }

        }

        private static void CreateTargetSubKey(RegisterManager registerManager, List<string> listSubKeys, RegistryKey localKey)
        {
            var regAllowNetworkLocations = listSubKeys.Where(s => s.EndsWith(@"Excel\Security\Trusted Locations"));
            //设置信任网络路径
            foreach (var item in regAllowNetworkLocations)
            {
                registerManager.SetRegeditKeyValue(item, "AllowNetworkLocations", "1");
            }


            //包含EXCEL字样的,并且有location节点
            var listSecurity = listSubKeys.Where(s => s.Contains(@"Excel\Security\Trusted Locations")).Where(s => Regex.IsMatch(s, @"Location\d+$")).ToList();

            foreach (var item in listSecurity)
            {
                if (registerManager.IsRegeditKeyAndValueExist(item, "Path", @"http://LiWeiJianWeb/"))
                {
                    return;
                }
            };

            var result = from s in listSecurity
                         select new { GroupName = Regex.Match(s, @".+?\\.+?\\.+?\\.+?\\").Value, Fullpath = s };

            //按HKEY_CURRENT_USER\Software\Microsoft\Office\15.0分组,防止多个EXCEL版本的原因引起信任位置添加不全
            var query = from s in result
                        group s by s.GroupName;

            foreach (var item in query)
            {
                //只取第1条记录,去掉最后一个尾数
                string locationName = Regex.Match(item.First().Fullpath, @".+Location").Value;
                //用最后的尾数来比较大小,不是用字符串,可以最终比较出11比2大
                int locationIndex = item.Max(s => int.Parse(Regex.Match(s.Fullpath, @".+Location(\d+)").Groups[1].Value) + 1);
                string newLocationName = Regex.Match(locationName, ".+Location").Value + locationIndex;
                RegistryKey Location = localKey.CreateSubKey(newLocationName);
                Location.SetValue("Path", @"http://LiWeiJianWeb/");
                Location.SetValue("AllowSubfolders", "00000001", RegistryValueKind.DWord);
                Location.SetValue("Date", DateTime.Now.ToString());
                Location.SetValue("Description", "");
            }
        }


        private static void ImportCertificate(X509Store store)
        {
            store.Open(OpenFlags.ReadWrite);
            X509Certificate2Collection certs = store.Certificates.Find(X509FindType.FindBySubjectName, "Excel催化剂", false);

            if (certs.Count == 0 || certs[0].NotAfter < DateTime.Now)
            {
                X509Certificate2 certificate = new X509Certificate2(Resource1.Excel催化剂);
                store.Remove(certificate);   //可省略
                store.Add(certificate);
                store.Close();
            }
        }
    }
}

作了个帮助类

代码语言:javascript
代码运行次数:0
运行
AI代码解释
复制
using Microsoft.Win32;
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Text.RegularExpressions;

namespace 导入证书及设置EXCEL信任文件夹
{

    class TrustDirSetting
    {
        public static void SettingTrustDir(string trustDir)
        {
            if (Environment.Is64BitOperatingSystem)
            {
                //64位的EXCEL
                AddTrustDirToRegister(trustDir, RegistryView.Registry64);
            }
            //32位的EXCEL
            AddTrustDirToRegister(trustDir, RegistryView.Registry32);
        }

        private static void AddTrustDirToRegister(string trustDir, RegistryView registryView)
        {
            List<string> listSubKeys = new List<string>();
            var localKey = RegistryKey.OpenBaseKey(RegistryHive.CurrentUser, registryView);
            RegisterManager registerManager = new RegisterManager() { BaseKey = localKey };
            registerManager.EnumerateKeyNames(@"Software\Microsoft\Office", ref listSubKeys);
            CreateTargetSubKey(registerManager, listSubKeys, localKey, trustDir);
        }

        private static void CreateTargetSubKey(RegisterManager registerManager, List<string> listSubKeys, RegistryKey localKey, string trustDir)
        {
            var regAllowNetworkLocations = listSubKeys.Where(s => s.EndsWith(@"Excel\Security\Trusted Locations"));
            //设置信任网络路径
            foreach (var item in regAllowNetworkLocations)
            {
                registerManager.SetRegeditKeyValue(item, "AllowNetworkLocations", "1");
            }


            //包含EXCEL字样的,并且有location节点
            var listSecurity = listSubKeys.Where(s => s.Contains(@"Excel\Security\Trusted Locations")).Where(s => Regex.IsMatch(s, @"Location\d+$")).ToList();

            foreach (var item in listSecurity)
            {
                if (registerManager.IsRegeditKeyAndValueExist(item, "Path", trustDir))
                {
                    return;
                }
            };

            var result = from s in listSecurity
                         select new { GroupName = Regex.Match(s, @".+?\\.+?\\.+?\\.+?\\").Value, Fullpath = s };

            //按HKEY_CURRENT_USER\Software\Microsoft\Office\15.0分组,防止多个EXCEL版本的原因引起信任位置添加不全
            var query = from s in result
                        group s by s.GroupName;

            foreach (var item in query)
            {
                //只取第1条记录,去掉最后一个尾数
                string locationName = Regex.Match(item.First().Fullpath, @".+Location").Value;
                //用最后的尾数来比较大小,不是用字符串,可以最终比较出11比2大
                int locationIndex = item.Max(s => int.Parse(Regex.Match(s.Fullpath, @".+Location(\d+)").Groups[1].Value) + 1);
                string newLocationName = Regex.Match(locationName, ".+Location").Value + locationIndex;
                RegistryKey Location = localKey.CreateSubKey(newLocationName);
                Location.SetValue("Path", trustDir);
                Location.SetValue("AllowSubfolders", "00000001", RegistryValueKind.DWord);
                Location.SetValue("Date", DateTime.Now.ToString());
                Location.SetValue("Description", "");
            }
        }



    }

    internal class RegisterManager
    {
        public RegistryKey BaseKey { get; set; }
        private bool IsRegeditKeyExist(string subKeyString, string key)
        {
            string[] subkeyNames;
            RegistryKey subKey = this.BaseKey.OpenSubKey(subKeyString);
            subkeyNames = subKey.GetValueNames();
            //取得该项下所有键值的名称的序列,并传递给预定的数组中
            foreach (string keyName in subkeyNames)
            {
                if (keyName == key) //判断键值的名称
                {
                    return true;
                }
            }
            return false;
        }

        public bool IsRegeditKeyAndValueExist(string subKeyString, string key, string valueString)
        {
            string[] subkeyNames;
            RegistryKey subKey = this.BaseKey.OpenSubKey(subKeyString);
            subkeyNames = subKey.GetValueNames();
            //取得该项下所有键值的名称的序列,并传递给预定的数组中
            foreach (string keyName in subkeyNames)
            {
                if (keyName == key) //判断键值的名称
                {
                    if (subKey.GetValue(key).ToString() == valueString)
                    {
                        return true;
                    }
                }
            }
            return false;
        }

        public void SetRegeditKeyValue(string subKeyString, string key, string valueString)
        {
            RegistryKey subKey = this.BaseKey.OpenSubKey(subKeyString, true);

            subKey.SetValue(key, valueString, RegistryValueKind.DWord);

        }


        public void EnumerateKeyNames(string fatherKey, ref List<string> listSubKeys)
        {
            RegistryKey RegKey = this.BaseKey.OpenSubKey(fatherKey);
            string[] subKeys = RegKey.GetSubKeyNames();
            foreach (string subKey in subKeys)
            {
                string fullPath = fatherKey + "\\" + subKey;
                EnumerateKeyNames(fullPath, ref listSubKeys);
                listSubKeys.Add(fullPath);
            }
        }
    }
}

开源地址为:https://github.com/minren118/ExcelUdfByExcelCuiHuaJi,不妨对您有帮助时帮忙在GtiHub上点个赞。

登录Github后点击红框给个星星

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2019-01-06,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 Excel催化剂 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
暂无评论
推荐阅读
编辑精选文章
换一批
Excel催化剂开源第3波-修复ExcelCom加载项失效问题及WPS可调用Com加载项的方法
为了还原一个干净无侵扰的网络世界,本文将不进行大规模地分发,若您觉得此文有用,不妨小范围地分享到真正有需要的人手中
Excel催化剂
2021/08/19
1.4K0
开源第52波-通过注册表信息判断Excel位数的方法
在开发EasyShu的过程中,因为用户体验的倒逼,不得不认真再去学习下如何更好地解决Excel位数的问题。
Excel催化剂
2021/08/18
6120
Excel催化剂开源第32波-VSTO开发的插件让WPS顺利调用的方法-注册表增加注册信息
VSTO插件开发完成后,鉴于现在WPS用户也不少,很多时候用户没办法用OFFICE软件,只能在WPS环境下办公,VSTO开发的插件,只需增加一句注册表信息,即可让WPS识别到并调用VSTO开发的功能,可能部分功能让WPS使用要考虑WPS是否有相应的API接口,这是后话,本帖给大家粘出代码及程序,让用户双击即可完成,exe封装,无需给用户注册表文件让用户畏惧或其他安全软件报警。
Excel催化剂
2021/08/19
1.6K0
Excel催化剂开源第25波-Excel调用百度AI,返回AI结果
在专业程序猿世界中,调用现成的WebAPI接口,实现一些别人提供的能力,是很常见的事情,其实在VBA开发者中,也不乏有这样的应用,例如调用某个网页API,返回一个二维码,实现二维码生成功能(在.Net中,直接有现成的这些轮子,无需调用网页,直接本地离线即可生成)。
Excel催化剂
2021/08/19
6460
Excel催化剂开源第16波-VSTO开发之脱离传统COM交互以提升性能
在VSTO开发或其他COM技术开发过程中,甚至VBA也是,在和Excel交互中,难免会遇到性能瓶颈问题,COM技术的交互实在太慢,对大量数据读写等操作,耗时太长,容易卡用户界面以为是程序死机等等。
Excel催化剂
2021/08/19
1.1K0
Excel催化剂开源第6波-Clickonce部署之自动升级瘦身之术
Clickonce无痛自动更新是我最喜欢使用VSTO开发并Clickonce部署的特性之一,但这个自动更新,通常会更新整个程序文件,包含所有的引用dll和一些资源文件等。
Excel催化剂
2021/08/19
5150
Excel催化剂开源第47波-Excel与PowerBIDeskTop互通互联之第一篇
此篇对应功能实现出自:第3波-与PowerbiDesktop互通互联(Excel透视表连接PowerbiDesktop数据模型)https://www.jianshu.com/p/e05460ad407d
Excel催化剂
2021/08/19
6560
Excel催化剂开源第36波-图片Exif信息提取,速度超快,信息超全
此篇对应的Excel催化剂功能实现:第83波-遍历文件夹内文件信息特别是图像、音视频等特有信息 https://www.jianshu.com/p/ad98adc64f0b
Excel催化剂
2021/08/19
4640
Excel催化剂开源第24波-较VBA更强大的.Net环境的正则表达式
在VBA上可以调用正则表达式库,从而编写正则表达式自定义函数,这个相信不少VBA开发者已经熟知,但VBA的VBScript正则表达式库毕竟是一个过时的产品,不像.Net那样是与时俱进的,所以两者实现出来的正则功能还是有区别的,.Net的正则表达式更为强大和好用,用于开发自定义函数时,若用ExcelDna来开发,就可以用上.Net的正则的强大功能。
Excel催化剂
2021/08/19
7360
x509数字证书导入-然后删除自身
这种程序的使用场景,需要给客户一个证书,但不能把证书直接给他让他安装,程序中需要用到给客户的私钥,但又不允许客户将这个证书再去授权给其它人。
FreeTimeWorker
2020/08/31
8350
x509数字证书导入-然后删除自身
java加密解密与数字证书的操作
public static void main(String args[ ]) throws Exception{
BUG弄潮儿
2022/06/30
4090
Excel催化剂开源第38波-json字符串转多个表格结构
普通人对IT的出品各种系统和各种软件,可畏爱恨交加。好的系统或软件,带来许多重复性工作的效率提升,不好的系统或软件,一天到晚被虐着做一些无聊的数据录入和忍受各种的不完善。
Excel催化剂
2021/08/19
1K0
Excel催化剂开源第2波-自动检测Excel的位数选择对应位数的xll文件安装
为了还原一个干净无侵扰的网络世界,本文将不进行大规模地分发,若您觉得此文有用,不妨小范围地分享到真正有需要的人手中
Excel催化剂
2021/08/19
5320
Excel催化剂开源第11波-动态数组函数技术开源及要点讲述
在Excel催化剂中,大量的自定义函数使用了动态数组函数效果,虽然不是原生的Excel365版效果(听说Excel2019版取消了支持动态数组函数,还没求证到位,Excel365是可以用,但也仅限于部分尝鲜用户可以用上,大部分Excel365用户还没推送成功),但对于自定义函数这条路线,可以实现类似效果,已经是非常震撼及使用面非常广大了。
Excel催化剂
2021/08/19
5060
Excel催化剂开源第12波-VSTO开发遍历功能区所有菜单按钮及自定义函数清单
在插件开发过程中,随着功能越来越多,用户找寻功能入口将变得越来越困难,在Excel催化剂 ,将采用遍历所有功能的方式,让用户可以轻松使用简单的查找功能找到想要功能所在位置,查找的范围有:功能按钮的显示名称、功能说明等。
Excel催化剂
2021/08/19
9630
数字证书原理
在传统的加密算法中,通信的双方会采用一个共享秘钥来对数据进行加密和解密。消息发送方先采用秘钥对明文进行加密然后再进行传送,待接收方收到消息后,再采用秘钥对密文进行界面,以得到明文。由于加密和解密采用的秘钥是相同的,这种加密算法也称为对称加密。采用对称加密的通信过程如下图所示:
赵化冰
2022/08/01
2.7K1
数字证书原理
Excel催化剂开源第49波-Excel与PowerBIDeskTop互通互联之第三篇
在PowerBIDeskTop开启的SSAS服务,和Sqlserver所开启的一个本质的区别是,前者其端口号是随机生成的,即上一次打开获得的端口号,下一次关闭后再打开,系统分配给它新的端口号,而后者因为是服务器版的,服务器的SSAS端口号是固定的,且服务器一般都是长期打开的,不存在端口号变化引起数据连接字符串要变更的情况。
Excel催化剂
2021/08/19
4620
Excel催化剂开源第31波-pdf相关功能实现及类库介绍
pdf转图片的功能,找了好久,百度肯定是没答案的了,或者找到的都是一堆堆的软文,指向云csdn下载破解版dll,这种事情在我大中华出现多了,也不足为怪了。
Excel催化剂
2021/08/19
7590
Excel催化剂开源第8波-VSTO开发之异步调用方法
在VSTO开发过程中,因其和普通的Winform开发有点差别,具体细节笔者也说不清楚,大概是VSTO的插件是寄生在Excel中,不属于独立的进程之类的,其异步方法调用时,未能如Winform那样直接用await async异步方法就结束,仍需要再作简单的处理。
Excel催化剂
2021/08/19
7150
Excel催化剂开源第48波-Excel与PowerBIDeskTop互通互联之第二篇
此篇对应功能实现出自:第5波-使用DAX查询从PowerbiDeskTop中获取数据源https://www.jianshu.com/p/21b2ca8fd2b8
Excel催化剂
2021/08/19
9650
推荐阅读
相关推荐
Excel催化剂开源第3波-修复ExcelCom加载项失效问题及WPS可调用Com加载项的方法
更多 >
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档
本文部分代码块支持一键运行,欢迎体验
本文部分代码块支持一键运行,欢迎体验