使用易语言怎么批量删除QQ空间留的言

  介绍

今天就跟大家聊聊有关使用易语言怎么批量删除QQ空间留言,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。

<强>全局变量表

。版本,2   。全局变量,Uin_全,,文本型   。全局变量,Cookie_全,,文本型

<强> QQ快捷启动的代码

。版本,2   。支持库HtmlView   。支持库iext   。程序集,窗口程序集_快速   ,子程序,_超文本浏览框1 _跳转完毕   。局部变量,返回文本,,文本型   。局部变量,文本分割,,文本型,,,,“0”;   。局部变量,二次分割,,文本型,,,,“0”;   。局部变量,我,,整数型   。局部变量,年代,整数型   。局部变量,饼干,,文本型   。局部变量,印尼,,文本型   Skey,。局部变量,文本型   obj_doc,。局部变量,对象   时间=obj_doc 超文本浏览框1。取文档对象,()   Cookie_全,=obj_doc。读文本属性,(“饼干”,,)   Uin_全,=,文本_取出中间文本,(Cookie_全,,“p_uin=o”,,“,”)   ,判断循环首,(寻找文本,(Uin_全,,“0”,,,,假),=,1)   Uin_才能全,=,取文本右边,(Uin_全,,取文本长度,(Uin_全),安康;1)   ,判断循环尾,()   。如果真,(Cookie_全,≠,",且,Uin_全,≠," ")   _才能启动窗口。标签_QQ号码。标题,=,“QQ号码:“,+,Uin_全   _才能启动窗口。标签_状态。标题,=,”状,态:登录成功”   _才能启动窗口。图片框1。图片,=,获取QQ头像,(Uin_全)   _才能启动窗口。按钮_快速登录。标题,=,“登录成功”   _才能启动窗口。超级列表框1。全部删除,()   返才能回文本,=,获取留言列表,(Uin_全,,Cookie_全)   文才能本分割,=,分割文本,(返回文本,,#换行符,,)   ,。计次循环首,(取数组成员数,(文本分割),,我)   ,,,二次分割,=,分割文本,(文本分割,[我],“|”,,)   ,,,s =, _启动窗口。超级列表框1。插入表项,(,,,,,,,,,,)   ,,,_启动窗口。超级列表框1。置标题,(s), 0,,到文本,(我))   ,,,_启动窗口。超级列表框1。置标题,(年代,,1,,二次分割,[1])   ,,,_启动窗口。超级列表框1。置标题,(年代,,2,,二次分割,[2])   ,,,_启动窗口。超级列表框1。置标题,(年代,,3,,二次分割,[3])   ,,,_启动窗口。超级列表框1。置标题,(年代,,4,二次分割,[4])   ,,,_启动窗口。超级列表框1。置标题,(s), 5日,二次分割,[5])   ,,,_启动窗口。超级列表框1。置标题,(s), 6日,“零”)   ,。计次循环尾,()   窗才能口_快速。销毁,()   。如果真结束   ,子程序,_窗口_快速_将被销毁   窗口_快速。销毁,()

<强>获取和计算的代码

。版本,2   。程序集,程序集1   QQ头。子程序,获取像,,字节集,,公开   。参数,QQ号码,,文本型   。局部变量,提交地址,,文本型   。局部变量,返回字节,,字节集   提交地址,=,”http://q2.qlogo.cn/headimg_dl?bs=qq& dst_uin=, +, QQ号码,+,"和src_uin=", +, QQ号码,+,“,fid=, +, QQ号码,+,”,规范=100,url_enc=0,推荐人=bu_interface& term_type=电脑”   返回字节,=,网页_访问,(提交地址)   (返返回,回字节)   ,子程序,获取留言列表,,文本型   。参数,QQ号码,,文本型   。参数,饼干,文本型   。局部变量,提交地址,,文本型   。局部变量,返回文本,,文本型   。局部变量,json,类_json   。局部变量,qzonetoken,,文本型   。局部变量,p_skey,,文本型   。局部变量,g_tk,,文本型   。局部变量,我,,整数型   。局部变量,印尼,,文本型   。局部变量,绰号,文本型   内容。局部变量,,,文本型   。局部变量,id,文本型   。局部变量,时间,文本型   。局部变量,结果,,文本型   p_skey =,文本_取出中间文本,(饼干,“p_skey=?,“,”)   g_tk =,计算g_tk  (p_skey)   qzonetoken =,计算qzonetoken  (QQ号码)   提交地址,=,“https://user.qzone.qq.com/proxy/domain/m.qzone.qq.com/cgi-bin/new/get_msgb?uin=? +, QQ号码,+,"和hostUin=", +, QQ号码,+,”,开始=0,s=", +,时间_取随机时间戳,(),+,”,格式=jsonp& num=20, inCharset=utf-8& outCharset=utf-8& g_tk=", +, g_tk  +, "和qzonetoken=", +, qzonetoken  +, "和g_tk=", + g_tk   返回文本,=,编码_Utf8到Ansi (网页_访问,(提交地址,,,,,,饼干))   返回文本,=,子文本替换,(返回文本,,“_Callback(", " ",,,,,,真)   返回文本,=,子文本替换,(返回文本,,”);“,,”“,,,,,,真)   & # 39;,调试输出,(返回文本)   json。解析,(返回文本)   _启动窗口。标签_留言数。标题,=,“留言数:”,+,json。取通用属性,(“data.total”)   计。次循环首,(json。成员数,(“data.commentList”),我)   uin 才能=,json。取通用属性,(“data.commentList[”, +到文本,(小姐,安康;1),+,”].uin”)   nickname 才能=,json。取通用属性,(“data.commentList[”, +到文本,(小姐,安康;1),+,”].nickname”)   content 才能=,json。取通用属性,(“data.commentList[”, +到文本,(小姐,安康;1),+,”].ubbContent”)   id 才能=,json。取通用属性,(“data.commentList[”, +到文本,(小姐,安康;1),+,”].id”)   time 才能=,json。取通用属性,(“data.commentList[”, +到文本,(小姐,安康;1),+,”].pubtime”)   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null   null

使用易语言怎么批量删除QQ空间留的言