winrar制作自解压,一键自动安装字体

问题:安装字体时要打开,然后点击"安装"按钮。麻烦!

提问:可否有一键安装字体的方法?

答案:有。需要用到一个vbs文件。

下面是方法:

  1. 复制脚本(脚本在文章最下面),黏贴到txt文件,然后改后缀为.vbs。如:font.vbs

  2. 然后把需要安装的字体放到vbs文件同一个目录下。如图:
    在这里插入图片描述

  3. 使用winrar自解压功能制作安装包。主要是用到了打开“常规”选项卡,勾选“压缩选项”中的“创建自解压格式压缩文件”项,形成exe文件。
    在这里插入图片描述
    在这里插入图片描述
    在这里插入图片描述

在这里插入图片描述

  1. 这样就可以直接运行exe文件安装了。

vbs脚本如下:

' ScriptCryptor Project Options Begin
' HasVersionInfo: No
' Companyname: 
' Productname: 
' Filedescription: 
' Copyrights: 
' Trademarks: 
' Originalname: 
' Comments: 
' Productversion:  0. 0. 0. 0
' Fileversion:  0. 0. 0. 0
' Internalname: 
' Appicon: 
' AdministratorManifest: Yes
' Embeddedfile: AdobeFangsongStd-Regular.otf
' Embeddedfile: AdobeMingStd-Light.otf
' ScriptCryptor Project Options End
'
' File Description : VBScript Windows Fonts Installer
'

Option Explicit
 
Const FONTS = &H14&
Const HKEY_LOCAL_MACHINE = &H80000002
Const strComputer = "." 
 
Const SHELL_MY_COMPUTER = &H11
Const SHELL_WINDOW_HANDLE = 0
Const SHELL_OPTIONS = 0
Function GetOpenDirectory(title)
    Dim ShlApp,ShlFdr,ShlFdrItem
 
    Set ShlApp = WSH.CreateObject("Shell.Application")
    Set ShlFdr = ShlApp.Namespace(SHELL_MY_COMPUTER)
    Set ShlFdrItem = ShlFdr.Self
    GetOpenDirectory = ShlFdrItem.Path
    Set ShlFdrItem = Nothing
    Set ShlFdr = Nothing
 
    Set ShlFdr = ShlApp.BrowseForFolder _
                (SHELL_WINDOW_HANDLE, _
  • 0
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值