- 积分
- 30281
- 明经币
- 个
- 注册时间
- 2013-1-25
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
本帖最后由 尘缘一生 于 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[MAX_PATH] = _T("CTXOPConntion_Class");
TCHAR szQQNumber[MAX_PATH] = {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[len] != '_');
_tcscpy(szQQNumber, &szText[len+1]);
_tprintf(_T("%s\n"), szQQNumber);
}
hWnd=GetWindow(hWnd,GW_HWNDNEXT);
GetClassName(hWnd,szText,MAX_PATH);
}
return 0;
}
|
|