易语言获取熊猫TV弹幕例程

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 txt, 文本型
.局部变量 rid, 文本型
.局部变量 roomid, 文本型
.局部变量 sign, 文本型
.局部变量 ts, 文本型
.局部变量 appid, 文本型
.局部变量 authtype, 文本型
.局部变量 封包, 字节集
.局部变量 ip, 文本型
.局部变量 端口, 整数型

roomid ＝ 编辑框1.内容
txt ＝ 到文本 (网页_访问 (“http://www.panda.tv/ajax_chatinfo?roomid=” ＋ roomid))
rid ＝ 文本_取出中间文本 (txt, #rid, #rid1)
sign ＝ 文本_取出中间文本 (txt, #sign, #sign1)
ts ＝ 文本_取出中间文本 (txt, #ts, #ts1)
appid ＝ 文本_取出中间文本 (txt, #appid, #后缀)
authtype ＝ 文本_取出中间文本 (txt, #authtype, #后缀1)
ip ＝ 文本_取出中间文本 (txt, #ip, #ip1)
端口 ＝ 到整数 (文本_取出中间文本 (txt, #端口, #端口1))
调试输出 (txt)
调试输出 (rid, appid, ts, sign, authtype)
调试输出 (客户1.连接 (ip, 443))
封包 ＝ 到字节集 (“u:” ＋ rid ＋ “@” ＋ appid) ＋ { 10 } ＋ 到字节集 (“k:1”) ＋ { 10 } ＋ 到字节集 (“t:300”) ＋ { 10 } ＋ 到字节集 (“ts:” ＋ ts) ＋ { 10 } ＋ 到字节集 (“sign:” ＋ sign) ＋ { 10 } ＋ 到字节集 (“authtype:” ＋ authtype)
客户1.发送数据 (Packet (封包))

.子程序 Packet, 字节集
.参数 buf, 字节集
.局部变量 len, 整数型

len ＝ 取字节集长度 (buf)
buf ＝ { 0, 6, 0, 2, 0, 97 } ＋ buf
buf [6] ＝ len
调试输出 (buf)
返回 (buf)

.子程序 _客户1_数据到达
.局部变量 buf, 字节集
.局部变量 数据集, 字节集
.局部变量 包长度, 整数型

数据集 ＝ 客户1.取回数据 ()
包长度 ＝ 进制_十六到十 (字节集_到十六进制 (取字节集中间 (数据集, 28, 4)))
buf ＝ 取字节集中间 (数据集, 32, 包长度)
调试输出 (编码_usc2到ansi (到文本 (buf)))

.子程序 __启动窗口_将被销毁

客户1.断开连接 ()

@晴雯晴雯