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

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

分享一个自己启动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聊天窗口")
(startapp  Tencetkey (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

诸位大佬，请问还有办法吗

账号		自动登录	找回密码
密码			注册

[源码] lsp 查找注册表的方式打开QQ

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源