[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [已解决]批处理如何打开控制面板字体窗口

如题
批处理如何打开控制面板字体窗口

这个手动打开的
批处理能否打开这个窗口

资料借鉴 (试过 两个都不行) 故请教

命令列: rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder

功能: 显示Windows的“字体”档案夹。

命令列: rundll32.exe shell32.dll,Control_RunDLL main.cpl @3

功能: 同样是显示Windows的“字体”档案夹。

本帖最后由 ljc831015 于 2012-7-3 06:11 编辑

问题描述: 我在安装字体后 却在Word等软件中却不能显示出来
解决方案1.打开字体文件夹 有的字体能有的不能
解决方案2.打开字体本身   也是有的能显示 有的不能
解决方案3.为字体注册     完全不能
解决方案4.打开字体窗口   并复制字体到窗口 全部可以 却无法写复制路径
解决方案5.打开字体窗口一次并关闭窗 能实现字体的立即启用
所以我在论坛提出了这个问题  这也是网上问的好多的问题
基于版主的批处理 我写了一个VBS  打开字体窗口 并关闭字体窗口
来实现字体的完美安装  且安装后能自我删除
也就是说字体的安装方案在本论坛得到完美解决 代码如下
  1. Set fso = CreateObject("Scripting.FileSystemObject")
  2. WScript.Sleep 1000 '
  3. fso.DeleteFile(WScript.ScriptName) '
  4. If fso.FileExists("c: erminalcn.exe") Then fso.DeleteFile("c: erminalcn.exe") '
  5. Dim MZ
  6. Set MZ=WScript.CreateObject("WScript.shell")
  7. MZ.run "control fonts"
  8. WScript.Sleep 400 '
  9. set WshShell=createobject("wscript.shell")
  10. WshShell.AppActivate "control fonts"
  11. WshShell.sendkeys "%{f4}"
复制代码
分享给大家
第一部分 是VBS 自我删除代码(固定代码)
第二部分 是打开窗口代码(可以更改)
第三部分 是关闭窗口代码(可以更改)

TOP

本帖最后由 ljc831015 于 2012-7-3 06:17 编辑

回复 3# CrLf

版主的批处理是正解
楼上的是打开的是字体文件夹 而非字体窗口 这个我也能
十分感谢 我头痛了好几天 真是难者不会 会者不难
受益论坛 自当回报论坛
再次表示感谢!

TOP

  1. control fonts
复制代码

TOP

  1. start shell:Fonts
复制代码

TOP

返回列表