乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 48|回复: 0

定义lisp函数获取登录的QQ号

[复制链接]

20

主题

121

帖子

11

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
201
发表于 2020-3-7 11:07:00 | 显示全部楼层 |阅读模式
LISP调用方式(ReadTencentqqId)
如果登录的一个qq可以获取,多个qq只能获取最后登录的那个QQ号
代码网上找的,只是定义为LISP函数而已
  1.         //导入库 [DllImport("user32.dll")]
  2.         [DllImport("user32.dll", EntryPoint = "FindWindowA", CharSet = CharSet.Ansi)]
  3.         private static extern int FindWindow(string lpClassName, string lpWindowName);
  4.         [DllImport("user32.dll", EntryPoint = "GetWindowText")]
  5.         public static extern int GetWindowText(int hwnd, StringBuilder lpString, int cch);
  6.         [DllImport("user32.dll", EntryPoint = "GetWindow")]
  7.         public static extern int GetWindow(int hwnd, int wCmd);
  8.         [DllImport("user32.dll", SetLastError = true, CharSet = CharSet.Auto)]
  9.         public static extern int GetClassName(int hWnd, StringBuilder lpClassName, int nMaxCount);
  10.         [LispFunction("ReadTencentqqId")]
  11.         public static string ReadTencentqqId(ResultBuffer rb)
  12.         {
  13.             string str = "";
  14.             int hWin = FindWindow("CTXOPConntion_Class", null);
  15.             if (hWin == 0)
  16.             {
  17.                 return null;
  18.             }
  19.             System.Text.StringBuilder sbf = new StringBuilder(256);
  20.             StringBuilder sbfClass = new StringBuilder(256);
  21.             while (hWin > 0)
  22.             {
  23.                 GetWindowText(hWin, sbf, sbf.Capacity);
  24.                 if (sbf.ToString().Contains("OP_"))
  25.                 {
  26.                     int index = sbf.ToString().IndexOf('_');
  27.                     str = sbf.ToString().Substring(index + 1, sbf.Length - index - 1);
  28.                     break;
  29.                 }
  30.             }
  31.             return str;
  32.         }


本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-13 02:11 , Processed in 0.866005 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表