Silence 发布的文章

免费的 Oracle Cloud 实例的确是太不好用了，经常给主动停机，这种鸡肋不要也罢。龙年到，更换一个网站服务器。

                 键盘映射工具 KeybMap V2.2 64位版本

KeybMap.png
功能：通过修改注册表来进行键盘键的重新定义。
文件大小：4.54M
适用系统：Windows VISTA/7/8/10/11 64位版本
界面：简体中文/英文

说明：本键盘映射工具仅修改注册表，不驻留内存。通过本工具，你可以将键盘上一些不常用的键定义为其它功能或者将其禁用，如将 ScrollLock 定义为静音、Wake Up 定义为减小音量、Sleep 定义为增大音量等等。
注意：
1、Power、WWW Home、Mute 等部分多媒体键（非 104 标准键）的映射只对 PS/2 键盘有效。若使用 USB 键盘则无法将其映射为其它键，除非使用 USB -> PS/2 转换器。
2、Pause 和 Fn 键不允许映射，程序已将其排除在外。
3、本版本只支持 64 位操作系统，使用时需要管理员权限。
4、32位版本的 KeybMap 在 64 位系统上可以运行，但映射功能无效，故不再提供。
更新：
2.2 版本修订了导入配置后界面不显示导入数据的 bug。
2.1 版本完善了导入导出流程，去除了当前用户的键盘映射功能（Windows7 之后操作系统不支持。但多媒体键重新定义动作是支持当前用户的，且优先级高于所有用户）。有人说看着键定义列表里有加号而没有等号感觉别扭，本来是写代码时为了绕过一个可能会出现的问题而故意这么做的，现在我还是改回来吧。
2.0 版本使用 Delphi 重写了一遍，优化了大量代码，修正了一处键名错误，补充了在非中文系统中遗漏的几处翻译。增加了几个键定义，屏蔽了 Windows 已经废弃的 RegisteredApp 功能。
1.9 版本修订了网友提出的在按键捕捉时的 bug，另外优化了一些相关流程。
1.8 版本暂时只发布了 64 位版本，因改用 Lazarus 编译，文件大小增加很多。高级功能里将当前用户和全局用户的定义分开排列，修正了类型为 Shellexecute 时指定的程序包含路径时导出为注册表文件时的一个问题。
1.7.3 版修正自定义键值无法保存问题，修正列表中动作状态刷新问题。
1.7.2 版增加对映射键适用范围的选择（当前用户/所有用户选择）；允许自行输入键值进行映射；改进导入功能的兼容性。
1.7.1 版修正导入功能的一些问题。
1.7 版增加捕捉键值功能，可以识别大部分键盘的非标准扩展键位（注意：如果 PS/2 键盘使用了 USB 转换器，一些非标准扩展键位将会失效）。去掉程序的重启功能，改由用户自行操作。增加了键值显示。修正一个子窗口显示字体过大问题。
1.6 版恢复导入导出配置功能。
1.5 版增加对一些多媒体键定义修改功能。暂时屏蔽导入导出功能。
1.4 版增强对 VISTA 的兼容性，支持 Windows 7。
1.3 版修订由 1.2 版引起的键无法正确禁用问题。
1.2 版增补遗漏的 Z 键。
1.1 版修正多余两个键名问题。

                  Silence

下载：keybmap.rar

钉钉的机器人群消息很好用，也不用申请特别的权限，免费的消息条数也很多，做个监控类的消息通知很合适。一般都是用 python、JAVA 等语言来编写调用代码，简单使用也可以直接命令行调 curl。
这几天想给一个用 delphi 编写的运维工具加上钉钉消息功能。尝试编写了一下，用自定义关键字方式发送消息很简单，一次就通过了；然而加签方式却死活通不过，总是返回加签错误。仔细阅读了N遍官方文档，就是个很常用的 HMAC-SHA256 + Base64 加签算法。蹊跷的是，我换了三四种不同的代码去实现，每一种算法得到的结果和网上的在线计算器的结果都一模一样，然而就是和官方的 Python 语言例程的结果不一样。
晚饭后出门散步时我继续思考这个问题：既然我的代码和在线计算器的一致，说明算法本身没有错误，那么只能是输入参数不一致；这时我突然领悟到，Python 和 JAVA 语言都会自动处理 \n 这样的转义字符串而 Delphi 不会，官方文档里要求在加签字符串中添加了一个 \n，肯定就是这里导致的错误。后来在代码中用 #10 来代替 \n，果然验签通过。
那么就分享一段完整的用 delphi 发送钉钉机器人消息的代码吧：

unit main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  System.JSON, Vcl.StdCtrls, Hash, System.Net.URLClient, DateUtils,
  System.Net.HttpClient, System.Net.HttpClientComponent, NetEncoding;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    NetHTTPClient1: TNetHTTPClient;
    function dingtalk(content: string): boolean;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  dingtalk('test,测试。[关键字]');
end;

function TForm1.dingtalk(content: string): boolean;
//钉钉机器人消息发送函数
//URL 格式：https://oapi.dingtalk.com/robot/send?access_token=XXXXXX&timestamp=XXX&sign=XXX
var
  url, keywords, token, secret, timestamp, sign, str: string;
  s: TStringStream;
  json: TJSONObject;
begin
  //result := false;
  begin
    NetHTTPClient1.ContentType := 'application/json';
    NetHTTPClient1.AcceptCharSet := 'utf-8';
    NetHTTPClient1.AcceptLanguage := 'zh-CN';
    token := 'xxxxxxxx';
    keywords := '';
    secret := 'SECxxxxxxxx';
    url := 'https://oapi.dingtalk.com/robot/send?access_token=' + token;
    (*
    发送消息有两种安全策略，自定义关键字和加签，至少选择一种，也可同时使用。
    secret 为加签密钥，不为空时表示需要加签。
    timestamp 为毫秒级时间戳。
    加签算法是常用的 HmacSHA256 + Base64：
    把 timestamp+"\n"+secret 当做签名字符串，使用HmacSHA256算法计算签名，
    然后进行 Base64 编码，将得到的结果再进行 urlEncode 编码，从而得到最终签名数据 sign。
    *)
    if secret <> '' then
    begin
      //获取毫秒级时间戳
      timestamp := (MilliSecondsBetween(Now, EncodeDateTime(1970, 1, 1, 0, 0, 0, 0)) - 8 * 60 * 60 * 1000).ToString;
      //加签
      sign := TNetEncoding.Base64.EncodeBytesToString(THashSHA2.GetHMACAsBytes(timestamp + #10 + secret, secret, SHA256));
      //URLEncode 编码
      sign := TNetEncoding.url.Encode(sign);
      //拼接 url
      url := url + &timestamp=' + timestamp + &sign=' + sign;
    end;
    //keywords 为自定义关键字，若为空时则必须加签，即 secret 不能为空。
    if keywords <> '' then
      keywords := keywords + '\n';
    //拼接 json 格式的消息内容字符串，如有自定义关键字，可插入到内容的任意位置。
    s := TStringStream.Create('{"msgtype":"text","text": {"content":"' + keywords + content + '"}}', TEncoding.UTF8);
    //发送 post 请求
    try
      str := NetHTTPClient1.Post(url, s).ContentAsString(nil);
    except
      on E: Exception do
        memo1.Lines.Add('发送消息时出错：' + e.Message);
    end;
    //解析返回结果
    try
      json := TJSONObject.ParseJSONValue(str, true, true) as TJSONObject;
      if json.GetValue<integer>('errcode') = 0 then
      begin
        result := true;
        memo1.Lines.Add('消息发送成功。');
      end
      else
      begin
        result := false;
        memo1.Lines.Add('消息发送失败，错误代码：' + json.GetValue<string>('errcode') + json.GetValue<string>('errmsg'));
      end;
      s.Free;
      json.Free;
    except
      on E: Exception do
      begin
        result := false;
        memo1.Lines.Add('发送消息时出错：' + e.Message);
      end;
    end;
  end;
end;

end.

大概是从 Windows 7 时代开始，很多声卡的立体声混音功能就消失了，据说是厂家迫于某些组织的压力为了维护音乐版权不得不屏蔽了这个功能。
既然是屏蔽，那么大概率是可以重新打开的。下面以 Thinkpad 某老款笔记本（Windows 10）自带的 Conexant 20671 声卡为例，讲一下处理方法：

  1. 运行注册表编辑器 regedit.exe，找到如下分支：

    HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4d36e96c-e325-11ce-bfc1-08002be10318}
  2. 在找到的分支下会有 0000、0001……等子分支，对应着各个音频设备。使用“Conexant”或“20671”关键字搜索到要修改的声卡分支。

  3. 假设上一步找到的分支是 0000，将如下内容保存为 conexant.reg 文件。如果你找到的分支不是 0000，自行修改内容。

    Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4d36e96c-e325-11ce-bfc1-08002be10318}\0000\Settings\EPattributes\EpSettings\StereoMixEnable]
"MixAssocSeq"=hex:e0,e0
"MuteGainSettings"=hex:00,00
"Enable"=hex:01
  4. 双击 conexant.reg 文件导入注册表，然后重启操作系统即可。

注：此方法只适用于 conexant 声卡的部分型号，其它型号的声卡可能设置方法有所不同。

  1. 1
  2. 2
  3. 3