辛木辰 发表于 2018-9-11 09:50:51

lsp 查找注册表的方式打开QQ

分享一个自己启动QQ,之前论坛里的是 通过浏览器的方式启动QQ 聊天界面。
研究了下，其本质也是浏览器在找到注册表里的链接启动QQ
贴个代码期望大家用的到



    (setq Tencetkey (vl-registry-read"HKEY_CLASSES_ROOT\\Tencent\\shell\\open\\command"))
    (if Tencetkey
        (progn
        (setq Tencetkey (vl-string-subst    """\"%1\"" Tencetkey ))
        (setq Tencetkey (vl-string-subst       "" "\""Tencetkey ))
        (setq Tencetkey (vl-string-subst       "" "\""Tencetkey ))
        (princ "\n>>>即将打开QQ聊天窗口")
        (startappTencetkey (strcat "tencent://message/?uin=" qq "&Site=&menu=yes"))


1291500406 发表于 2019-7-21 09:32:41

本帖最后由 1291500406 于 2019-7-21 10:09 编辑

枫涟观澜 发表于 2019-7-21 08:02
你好刚刚下载了怎么不能用？？不知道啥原因
我用它写了一个快速聊天

辛木辰 发表于 2018-9-11 15:34:43

。。。。难道CAD 一键打开对象的聊天窗口不是更好的操作么

664571221 发表于 2018-9-11 21:35:44

怎么用啊？？？？？？

枫涟观澜 发表于 2019-7-21 08:02:37

你好刚刚下载了怎么不能用？？不知道啥原因

beiy012 发表于 2019-7-30 15:02:43

paulpipi 发表于 2020-9-3 14:52:32

东西呢()(*￣3￣)╭小花花砸你

434939575 发表于 2022-3-9 23:06:53

请问怎样能获取当前登录号码

至野异族 发表于 2022-3-12 21:52:43

嘿嘿，受到启发了，很有用

念悬工具箱 发表于 2024-6-4 14:23:57

诸位大佬，请问还有办法吗:(
页: [1]
查看完整版本: lsp 查找注册表的方式打开QQ