QQ TIM协议从csdn下载的送给有需要的人

.子程序 _客户_取验证码Key_数据到达
.局部变量 数据, 文本型

' 数据 ＝ 到文本 (客户_取验证码Key.取回数据 ())
' 调试输出 (数据)
.' 如果真 (寻找文本 (数据, “getqqsession”, , 假) ≠ -1)
' 全局_加群好友KEY ＝ 消息转16进制文本 (删全部空 (取指定内容_MARS (数据, “getqqsession:”, #换行符)))

g_uin ＝ 组合框_QQ.内容
g_pass ＝ 编辑框_QQ密码.内容
g_QQ ＝ GetQQ_hex (g_uin)
g_server ＝ GetServerIP ()
异步套接字1.绑定 (g_port, g_server)
异步套接字1.监听 ()
SetTips (“正在连接服务器：” ＋ g_server, 12)
SendUdp (#head ＋ #ver ＋ “08 25 31 01 ” ＋ g_QQ ＋ #fixVer ＋ #_0825key ＋ “ ” ＋ TeaEncrypt (#_0825data0 ＋ #_0825date2 ＋ g_QQ ＋ “00 00 00 00 03 09 00 08 00 01 ” ＋ GetIP_hex (g_server) ＋ “ 00 02 00 36 00 12 00 02 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 14 00 1D 01 02 00 19 ” ＋ #publicKey, #_0825key) ＋ #tail) ' 修改的非常多