禁用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