Qq | ExcelOffice

如何用vba获取QQ网络数据采集时的bkn参数？

2018年5月27日作者：exceloffice

暂无评论

在进行QQ相关内容的网络数据采集时，经常看到需要附带bkn参数的时候。

如

https://qun.qq.com/cgi-bin/qunwelcome/myinfo?callback=?&bkn=114713469

1	https://qun.qq.com/cgi-bin/qunwelcome/myinfo?callback=?&bkn=114713469

经过分析QQ的网页JS，找到了bkn参数的获取算法如下：

e.getCSRFToken = function() {
		var t = e.cookie("skey");
		if (t) {
			for (var r = 5381, n = 0, o = t.length; o > n; ++n) r += (r << 5) + t.charAt(n).charCodeAt();
			return this.CSRFToken = 2147483647 & r
		}

1

2

3

4

5

6

e.getCSRFToken = function() {

var t = e.cookie("skey");

if (t) {

for (var r = 5381, n = 0, o = t.length; o > n; ++n) r += (r << 5) + t.charAt(n).charCodeAt();

return this.CSRFToken = 2147483647 & r

}

其中skey参数为登[……]

阅读全文

如何用api关闭QQ好友的聊天窗口？

2017年1月18日作者：exceloffice

暂无评论

关闭窗体的api函数有很多，比如DestroyWindow、CloseWindow，但是这些API函数对于QQ聊天窗口都无效。

但是可以用SendMessage函数发送WM_CLOSE消息进行关闭。

代码如下：

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Sub QQ1722187970()
    Dim iHwnd
    iHwnd = FindWindow("TXGuiFoundation", "灯下玉")
    SendMessage iHwnd, WM_CLOSE, 0, 0
End Sub

1

2

3

4

5

6

7

8

9

10

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_CLOSE = &H10

Sub QQ1722187970()

Dim iHwnd

iHwnd = FindWindow("TXGuiFoundation", "灯下玉")

SendMessage iHwnd, WM_CLOSE, 0, 0

End Sub

&nb[……]

阅读全文

如何用api获取QQ好友聊天窗口的句柄？

2017年1月18日作者：exceloffice

暂无评论

QQ好友的聊天窗口的句柄可以通过API函数FindWindow获取。

FindWindow函数的语法如下，它有两个参数，第一个参数是要获取的窗口的类名，第二个参数是要获取的窗口的标题名称。如下所示：

HWND WINAPI FindWindow(
  _In_opt_ LPCTSTR lpClassName,
  _In_opt_ LPCTSTR lpWindowName
);

1

2

3

4

HWND WINAPI FindWindow(

_In_opt_ LPCTSTR lpClassName,

_In_opt_ LPCTSTR lpWindowName

);

如果FindWindow[……]

阅读全文

如何用vba代码调出QQ好友聊天对话窗口?

2017年1月13日作者：exceloffice

暂无评论

使用vba处理QQ聊天窗口是比较复杂的，由于QQ窗口是封闭的，所以很难通过vba代码打开QQ窗口。

不过腾讯为我们预留了一个接口，可以通过命令行的方式来打开QQ聊天窗口。

以下为命令行代码：

cmd /c start tencent://Message/?Uin=+QQ号码

1	cmd /c start tencent://Message/?Uin=+QQ号码

通过以上的命令行代码可以打[……]

阅读全文

如何用vba获取QQ网络数据采集时的bkn参数？

如何用api关闭QQ好友的聊天窗口？

如何用api获取QQ好友聊天窗口的句柄？

如何用vba代码调出QQ好友聊天对话窗口?

近期文章

功能

如何用vba获取QQ网络数据采集时的bkn参数？

如何用api关闭QQ好友的聊天窗口？

如何用api获取QQ好友聊天窗口的句柄？

如何用vba代码调出QQ好友聊天对话窗口?

近期文章

关键字

功能