设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 获取当前登录的QQ号
返回列表 发新帖
查看: 919|回复: 5

[提问] 获取当前登录的QQ号

[复制链接]
ywx2020
发表于 2020-5-9 09:39 | 显示全部楼层 |阅读模式
autolisp如何获取当前登录的QQ号？
回复

使用道具 举报

jun353835273
发表于 2020-5-10 09:44 | 显示全部楼层
http://bbs.mjtd.com/thread-181053-1-1.html
通过c#定义lisp函数
或者用vb注册一个dll通过com获取
回复 支持 反对

使用道具 举报

不死猫
发表于 2020-5-10 21:35 | 显示全部楼层
前几年自己用的，最近可能腾讯改了接口，还没更新，先把方法留下了。


  3. (defun getqq( / :]{ *}! ~}~ ]]$ }{# ~{# *@[ ~~: *?? ~[@ ??@ ^__ ::^ }[^ {!* #*^ :}$ ?^} [!! [{? #[^ :## :$* *@? ##$ :~} _^^ []$ [_# {^^ $]{ [}$ ~~$ @~{ :^: ~[} _?} {*] ]?[ @:{ {!? ?[* ]}? ~![ [## $#[ [}@ #]~ ^*! }:? }}} }_* }]@ @?# @!: _$: [:$ ~*^ :!} {*@ [~} $^@ *}* xml get url send readystate *err_bak objhttp qq uin);by 猫老师 201709
  4.         (SETQ :]{ "a")
  5.         (SETQ *}! "b")
  6.         (SETQ ~}~ "c")
  7.         (SETQ ]]$ "d")
  8.         (SETQ }{# "e")
  9.         (SETQ ~{# "f")
  10.         (SETQ *@[ "g")
  11.         (SETQ ~~: "h")
  12.         (SETQ *?? "i")
  13.         (SETQ ~[@ "j")
  14.         (SETQ ??@ "k")
  15.         (SETQ ^__ "l")
  16.         (SETQ ::^ "m")
  17.         (SETQ }[^ "n")
  18.         (SETQ {!* "o")
  19.         (SETQ #*^ "p")
  20.         (SETQ :}$ "q")
  21.         (SETQ ?^} "r")
  22.         (SETQ [!! "s")
  23.         (SETQ [{? "t")
  24.         (SETQ #[^ "u")
  25.         (SETQ :## "v")
  26.         (SETQ :$* "w")
  27.         (SETQ *@? "x")
  28.         (SETQ ##$ "y")
  29.         (SETQ :~} "z")
  30.         (SETQ _^^ ".")
  31.         (SETQ []$ "_")
  32.         (SETQ [_# "1")
  33.         (SETQ {^^ "2")
  34.         (SETQ $]{ "3")
  35.         (SETQ [}$ "4")
  36.         (SETQ ~~$ "5")
  37.         (SETQ @~{ "6")
  38.         (SETQ :^: "7")
  39.         (SETQ ~[} "8")
  40.         (SETQ _?} "9")
  41.         (SETQ {*] "0")
  42.         (SETQ ]?[ "?")
  43.         (SETQ @:{ "#")
  44.         (SETQ {!? "@")
  45.         (SETQ ?[* "[")
  46.         (SETQ ]}? "]")
  47.         (SETQ ~![ "_")
  48.         (SETQ [## "^")
  49.         (SETQ $#[ "{")
  50.         (SETQ [}@ "}")
  51.         (SETQ #]~ "~")
  52.         (SETQ ^*! "*")
  53.         (SETQ }:? "$")
  54.         (SETQ }}} ":")
  55.         (SETQ }_* "+")
  56.         (SETQ }]@ "-")
  57.         (SETQ @?# "/")
  58.         (SETQ @!: "&")
  59.         (SETQ _$: "|")
  60.         (SETQ [:$ "%")
  61.         (SETQ ~*^ "\")
  62.         (SETQ :!} "!")
  63.         (SETQ {*@ "'")
  64.         (SETQ [~} " ")
  65.         (SETQ $^@ "(")
  66.         (SETQ *}* ")")
  67.         (SETQ XML "")
  68.         (SETQ XML (STRCAT XML ::^))
  69.         (SETQ XML (STRCAT XML *??))
  70.         (SETQ XML (STRCAT XML ~}~))
  71.         (SETQ XML (STRCAT XML ?^}))
  72.         (SETQ XML (STRCAT XML {!*))
  73.         (SETQ XML (STRCAT XML [!!))
  74.         (SETQ XML (STRCAT XML {!*))
  75.         (SETQ XML (STRCAT XML ~{#))
  76.         (SETQ XML (STRCAT XML [{?))
  77.         (SETQ XML (STRCAT XML _^^))
  78.         (SETQ XML (STRCAT XML *@?))
  79.         (SETQ XML (STRCAT XML ::^))
  80.         (SETQ XML (STRCAT XML ^__))
  81.         (SETQ XML (STRCAT XML ~~:))
  82.         (SETQ XML (STRCAT XML [{?))
  83.         (SETQ XML (STRCAT XML [{?))
  84.         (SETQ XML (STRCAT XML #*^))
  85.         (SETQ GET "")
  86.         (SETQ GET (STRCAT GET *@[))
  87.         (SETQ GET (STRCAT GET }{#))
  88.         (SETQ GET (STRCAT GET [{?))
  89.         (SETQ URL "")
  90.         (SETQ URL (STRCAT URL ~~:))
  91.         (SETQ URL (STRCAT URL [{?))
  92.         (SETQ URL (STRCAT URL [{?))
  93.         (SETQ URL (STRCAT URL #*^))
  94.         (SETQ URL (STRCAT URL }}}))
  95.         (SETQ URL (STRCAT URL @?#))
  96.         (SETQ URL (STRCAT URL @?#))
  97.         (SETQ URL (STRCAT URL ^__))
  98.         (SETQ URL (STRCAT URL {!*))
  99.         (SETQ URL (STRCAT URL ~}~))
  100.         (SETQ URL (STRCAT URL :]{))
  101.         (SETQ URL (STRCAT URL ^__))
  102.         (SETQ URL (STRCAT URL ~~:))
  103.         (SETQ URL (STRCAT URL {!*))
  104.         (SETQ URL (STRCAT URL [!!))
  105.         (SETQ URL (STRCAT URL [{?))
  106.         (SETQ URL (STRCAT URL _^^))
  107.         (SETQ URL (STRCAT URL #*^))
  108.         (SETQ URL (STRCAT URL [{?))
  109.         (SETQ URL (STRCAT URL ^__))
  110.         (SETQ URL (STRCAT URL {!*))
  111.         (SETQ URL (STRCAT URL *@[))
  112.         (SETQ URL (STRCAT URL *??))
  113.         (SETQ URL (STRCAT URL }[^))
  114.         (SETQ URL (STRCAT URL {^^))
  115.         (SETQ URL (STRCAT URL _^^))
  116.         (SETQ URL (STRCAT URL :}$))
  117.         (SETQ URL (STRCAT URL :}$))
  118.         (SETQ URL (STRCAT URL _^^))
  119.         (SETQ URL (STRCAT URL ~}~))
  120.         (SETQ URL (STRCAT URL {!*))
  121.         (SETQ URL (STRCAT URL ::^))
  122.         (SETQ URL (STRCAT URL }}}))
  123.         (SETQ URL (STRCAT URL [}$))
  124.         (SETQ URL (STRCAT URL $]{))
  125.         (SETQ URL (STRCAT URL {*]))
  126.         (SETQ URL (STRCAT URL {*]))
  127.         (SETQ URL (STRCAT URL @?#))
  128.         (SETQ URL (STRCAT URL ::^))
  129.         (SETQ URL (STRCAT URL ~}~))
  130.         (SETQ URL (STRCAT URL []$))
  131.         (SETQ URL (STRCAT URL *@[))
  132.         (SETQ URL (STRCAT URL }{#))
  133.         (SETQ URL (STRCAT URL [{?))
  134.         (SETQ URL (STRCAT URL []$))
  135.         (SETQ URL (STRCAT URL #[^))
  136.         (SETQ URL (STRCAT URL *??))
  137.         (SETQ URL (STRCAT URL }[^))
  138.         (SETQ URL (STRCAT URL [!!))
  139.         (SETQ SEND "")
  140.         (SETQ SEND (STRCAT SEND [!!))
  141.         (SETQ SEND (STRCAT SEND }{#))
  142.         (SETQ SEND (STRCAT SEND }[^))
  143.         (SETQ SEND (STRCAT SEND ]]$))
  144.         (SETQ READYSTATE "")
  145.         (SETQ READYSTATE (STRCAT READYSTATE ?^}))
  146.         (SETQ READYSTATE (STRCAT READYSTATE }{#))
  147.         (SETQ READYSTATE (STRCAT READYSTATE :]{))
  148.         (SETQ READYSTATE (STRCAT READYSTATE ]]$))
  149.         (SETQ READYSTATE (STRCAT READYSTATE ##$))
  150.         (SETQ READYSTATE (STRCAT READYSTATE [!!))
  151.         (SETQ READYSTATE (STRCAT READYSTATE [{?))
  152.         (SETQ READYSTATE (STRCAT READYSTATE :]{))
  153.         (SETQ READYSTATE (STRCAT READYSTATE [{?))
  154.         (SETQ READYSTATE (STRCAT READYSTATE }{#))
  155.         (SETQ UIN "")
  156.         (SETQ UIN (STRCAT UIN #[^))
  157.         (SETQ UIN (STRCAT UIN *??))
  158.         (SETQ UIN (STRCAT UIN }[^))
  159.         (setq *err_bak *error*)
  160.         (defun *error* (msg)
  161.                 (setq *error* *err_bak)
  162.                 (alert "没有登录QQ")
  163.         )
  164.         (setq objHttp (vlax-create-object  XML))
  165.         (vla-open objHttp get (strcat URL) 0)
  166.         (vlax-invoke-method objHttp send )
  167.         (if (= (vlax-get-property objHttp READYSTATE) 4)
  168.                 (progn
  169.                         (setq qq (Vlax-Get-property objHttp 'responseText))
  170.                         (setq qqall nil)
  171.                         (while (vl-string-search uin qq)
  172.                                 (setq qq (substr qq (+ (vl-string-search (strcat """ uin "":"") qq) 8)))
  173.                                 (setq qqall (append qqall (list (substr qq 1 (vl-string-search """ qq)))))
  174.                         )
  175.                 )
  176.         )
  177. ;        (alert (strcat "当前登录的QQ" (vl-princ-to-string qqall)))
  178.         (vlax-release-object objHttp)
  179.         (setq *error* *err_bak)
  180.         qqall
  181. )
  182. (getqq)
回复 支持 反对

使用道具 举报

vectra
发表于 2020-5-10 22:07 | 显示全部楼层
强大 。手动混淆也很有趣

点评

不死猫
代码是自动生成的。后面的打乱混淆取消掉了。  发表于 2020-5-11 11:09
回复 支持 反对

使用道具 举报

1291500406
发表于 2020-11-20 12:23 | 显示全部楼层
本帖最后由 1291500406 于 2020-11-20 12:24 编辑

(SETQ ~*^ "\")    -->    (SETQ ~*^ "\\")
http://localhost.ptlogin2.qq.com:4300/mc_get_uins  接口已经凉凉

回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-5-9 02:39 , Processed in 0.243132 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表