尘缘一生 发表于 2022-2-20 22:36:35

关于：微信、QQ授权登录

本帖最后由 尘缘一生 于 2022-2-21 07:29 编辑

最近，看到这个问题。

查到百度有高大师的代码，

https://www.likecs.com/show-925551.html

微信的似乎也有，

然而都不是LISP代码。

用LISP能否办到这个事？如若成功了，能解决授权的大问题。

// 得到qqexchangewnd_shortcut_prefix_123456789这样的字符串
// 123456789就是正在登录的qq的号
// 如果同时登录几个QQ，只能获取最晚登录的q号
int GetQQNumber(void)
{
    TCHAR szText = _T("CTXOPConntion_Class");
    TCHAR szQQNumber = {0};
    HWND hWnd = FindWindow(szText, NULL);
    while (hWnd)
    {
      if(_tcscmp(szText,_T("CTXOPConntion_Class"))==0)
      {
            GetWindowText(hWnd, szText, MAX_PATH);
            int len = _tcslen(szText);
            do
            {
                len--;
            } while (szText != '_');
            _tcscpy(szQQNumber, &szText);
            _tprintf(_T("%s\n"), szQQNumber);
      }
      hWnd=GetWindow(hWnd,GW_HWNDNEXT);
      GetClassName(hWnd,szText,MAX_PATH);
    }
    return 0;
}

jun353835273 发表于 2022-2-21 08:51:17

http://bbs.mjtd.com/thread-181053-1-1.html
netload 加载ReadTencentqqId.dll文件之后，lisp直接调用ReadTencentqqId这个函数就能返回QQ号

尘缘一生 发表于 2022-2-21 09:56:39

jun353835273 发表于 2022-2-21 08:51
http://bbs.mjtd.com/thread-181053-1-1.html
netload 加载ReadTencentqqId.dll文件之后，lisp直接调用Rea ...

非常感谢，我试试看。

hhh454 发表于 2022-2-21 10:02:08

用网络控制授权，确实比较好，但是有一些公司员工是不可以上网，网络授权就不好处理了

尘缘一生 发表于 2022-2-21 18:36:19

hhh454 发表于 2022-2-21 10:02
用网络控制授权，确实比较好，但是有一些公司员工是不可以上网，网络授权就不好处理了

网络授权，安全性应该不用怀疑，网络这个确实是个事，特别搞土建的，不一定有网络，授权可以不唯一，QQ登录，微信登录，可以作为备选之一。

Bdj 发表于 2022-8-7 09:49:03

jun353835273 发表于 2022-2-21 08:51
http://bbs.mjtd.com/thread-181053-1-1.html
netload 加载ReadTencentqqId.dll文件之后，lisp直接调用Rea ...

用netload加载ReadTencentqqId.dll文件报错怎么解决啊。

页: [1]
查看完整版本: 关于：微信、QQ授权登录