|
楼主 |
发表于 2011-5-31 16:01:47
|
显示全部楼层
浙江省温州市
我觉得应该是这块有问题,但又不知道怎么改,希望大牛们帮忙解决下:
.版本 2
.支持库 internet
.支持库 iext
.子程序 _时钟1_周期事件
.局部变量 返回信息, 文本型
.局部变量 i, 整数型
.局部变量 对方QQ, 文本型, , "0"
.局部变量 消息类型, 文本型, , "0"
.判断开始 (取数组成员数 (在线索引数组) ≤ 50)
.计次循环首 (取数组成员数 (在线索引数组), i)
多线程提取 (i)
处理事件 ()
.计次循环尾 ()
.默认
.计次循环首 (50, i)
多线程提取 (i)
处理事件 ()
.计次循环尾 ()
.判断结束
.子程序 多线程提取
.参数 i, 整数型
.局部变量 k, 整数型
.局部变量 返回文本, 文本型
.局部变量 发送信息的QQ, 文本型
.变量循环首 (i, 取数组成员数 (在线索引数组), 50, k)
返回文本 = UTF8转ANSI (HTTP读文件 (“http【这里换成http】://q32.3g.qq.com/g/s?sid=” + 超级列表框1.取标题 (在线索引数组 [k], 3) + “&aid=nqqchatMain&on=1”))
处理事件 ()
.如果真 (选择框自动回复.选中 = 真)
.如果真 (寻找文本 (返回文本, “QQ消息”, , 假) ≠ -1)
返回文本 = UTF8转ANSI (HTTP读文件 (“http【这里换成http】://q” + 取指定内容 (返回文本, “http【这里换成http】://q”, “.”) + “.3g.qq.com/g/s?sid=” + 取指定内容 (返回文本, “sid=”, “&”) + “&aid=nqqChat&saveURL=0” + 取指定内容 (返回文本, “r=”, “&”) + “&g_f=” + 取指定内容 (返回文本, “g_f=”, #引号)))
返回文本 = 取指定内容 (返回文本, “<p align=”, “>刷新消息</a>”)
发送信息的QQ = 取指定内容 (返回文本, “u=”, “&”)
访问网页 (“http【这里换成http】://q16.3g.qq.com/g/s?sid=” + 超级列表框1.取标题 (在线索引数组 [k], 3) + “&aid=sendmsg&tfor=qq”, “POST”, , , , , “msg=” + 到文本 (ANSI转UTF8 (编辑框回复.内容)) + “&u=” + 发送信息的QQ, , , )
.如果真结束
.如果真结束
.变量循环尾 () |
|