Win调整和小技巧

推荐win下一些个人爱用的工具软件(以及使用心得)和一些系统调整方法，让win下不尽人意的设置发生小小变化，让整天摸着电脑的ITer们的生活更有乐趣。

本人酷爱收集一些好用的软件，若各位也对某个或某些软件有所心得，不妨"划下道来"，分享分享，本人感激不尽。

禁用shift+space全半角切换功能

写代码、写SQL语句的同志可能会经常性地误按"shift+space"将半角输入切换成全角输入法，但实际生活中，绝大多数情况下根本就不需要全角输入，所以直接将它给禁用掉，免得烦恼。

如果是win7，打开注册表，把HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000011下的"Key Modifiers"、"Target IME"和"Virtual Key"的二进制值全改为0就可以，或者把下面的注册表修改代码放进一个reg文件中，然后双机添加就可以。修改完后，最后重启系统即可。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000011]
"Key Modifiers"=hex:00,00,00,00
"Target IME"=hex:00,00,00,00
"Virtual Key"=hex:00,00,00,00

如果想把禁用半全角切换功能重新启用，把注册表改回来即可。以下是启用切换功能的注册表值：

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys\00000011]
"Key Modifiers"=hex:04,c0,00,00
"Target IME"=hex:00,00,00,00
"Virtual Key"=hex:20,00,00,00

如果是win10，也可以用上面的方法。但win10有更简单的方法，直接在微软拼音输入法中禁用即可。如果win10版本较低，可能还不支持该功能，可以在注册表HKEY_CURRENT_USER\Control Panel\Input Method下添加一个键"Show Status"，并设置它的值为1就可以禁用全半角切换，设置为0就可以重新启用全半角切换。

如果是禁用，则把下面的注册表修改代码放进一个reg文件，并双击执行。然后重启系统就可以。

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Control Panel\Input Method]
"Show Status"="0"

[HKEY_CURRENT_USER\Control Panel\Input Method\Hot Keys]

注意，如果设置无效，请看看是不是自己安装的输入法也有shift+space相关的设置项。

pdf书签提取

我找过不少pdf书签提取的工具，都不尽如人意，这个还算不错。

作者原文：https://blog.csdn.net/yinqingwang/article/details/78736474

下载链接:https://pan.baidu.com/s/1jIeTsUy 密码: i5un

这个工具是java写的，因此需要安装好jre环境。

解压后，里面有下面几个文件：

PDFBOOK.js
PDFBookmark.jar
Run.bat
Run.sh
使用说明.txt
说明 (关于PDFBOOK-js).txt

在unix环境下，就执行Run.sh，在Windows环境下，就双击Run.bat。之后会提示选择pdf文件。下面是一个示例图。

pdf书签导入导出

有时候我们自己做了一个pdf文件，想要从另一个pdf文件中把书签导入过来，同时每个书签指向的页码位置还是正确的，例如将文字版的pdf转换为图片版的pdf时就需要导入导出书签。

我用的是pdf-XChange软件(请自行搜索下载)。它是一个pdf阅读工具，不仅可以复制带页码属性的书签，搜索内容的速度也远比Adobe Acrobat类的套件快。不过它功能比较单一，只有阅读，无法编辑pdf。所以我也就是偶尔在有需求的时候用它来完成一些工作。

例如，我在这里选中全部书签，复制并粘贴到旁边的2.pdf中。

在2.pdf中，每个书签都是设置好了目标位置的。

一个小缺憾，虽然这个pdf软件能在两个pdf间复制粘贴书签，但复制的书签却不能粘贴到其他程序中，例如记事本。

加密的m3u8、ts文件合并

见下文：http://www.cnblogs.com/f-ck-need-u/p/9033988.html

chrome无法添加扩展程序

现在chrome默认不支持外部的扩展程序，直接拖crx文件到扩展程序里进去已经失效了。

要想添加外部的扩展程序，需要经过一番设置：

1.下载模板文件。
https://dl.google.com/dl/edgedl/chrome/policy/policy_templates.zip

2.解压后，找到windows/adm/zh-cn/chrome.adm

3.gpedit.msc

4.在计算机管理-->管理模板-->右键新建模板，找到windows/adm/zh-cn/chrome.adm

5.在管理模板-->经典管理模板-->Google-->Google Chrome-->扩展程序-->配置扩展程序白名单

点击启用，并在"显示"选择要添加的扩展程序id。

扩展程序的id可以在拖到chrome后，并被自动删除前，去chrome扩展程序页面查看。

6.重启chrome

禁用笔记本自带键盘

sc config i8042prt start= disabled

然后重启计算机。

如果想要重新启用自带键盘：

sc config i8042prt start= auto

word批量转pdf(带书签)

word转pdf方式很多，批量转为不带书签的pdf网上随便一搜索，方法也很简单。

但是要批量将word转换为带书签的pdf的方法就没那么容易找到，网上有些方法还是借助 c# 来实现的，相当麻烦。

所以写了个vba来实现。要求office版本高于或等于2013(2010应该不行，我没试)。

加入e:\words\目录下有很多docx文件。下面的步骤会将这个目录下的所有docx文件转换为带书签的pdf。

1.随便打开一个docx文件。最好不要是目标目录下临时新建的word。

2.按alt+f11插入模块，复制一下代码，保存退出。

' 例如将d:\a目录下的word转换为pdf，则在非d:\a下新建一个word，打开，alt+f11，插入模块，复制一下代码，按f5，选择D:\a目录就ok
' 只支持docx，如要支持doc，则修改下面对应代码为：fileName = Dir(filePath & "\*.doc")

Sub IAassembleex()
  
    Dim fileName    As String
    Dim filePath    As String
    Dim wbkThis     As Document
    Dim wbkOpen     As Document
    
    Dim tfil  As Integer
    

    Application.ScreenUpdating = False

    Set wbkThis = ThisDocument

    tfil = 0

    Application.DisplayAlerts = False

    With Application.FileDialog(msoFileDialogFolderPicker)

        .AllowMultiSelect = False

        If .Show = -1 Then
            filePath = .SelectedItems(1)
        End If
    End With
    
    fileName = Dir(filePath & "\*.docx")
    

    Do While fileName <> ""
    
        On Error Resume Next
    
        tfil = tfil + 1

        Set wbkOpen = Documents.Open(filePath & "\" & fileName)
        
            ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        filePath &"\"& Left(fileName,InStrRev(fileName,"."))&"pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
        
        wbkOpen.Close False
        
        fileName = Dir
    Loop
 link
    Application.ScreenUpdating = True
    
    MsgBox ("successfully" & vbCrLf & "total read " & tfil)
    
End Sub