<强>常量数据表
第2版。本
”。常量常量1 & lt;文本长度:139比;”、“accttype”:“(* & # 63;)”[\ s \ s] * & # 63;”平衡”:“(* & # 63;)”[\ s \ s] * & # 63;“信息”:“(* & # 63;)”[\ s \ s] * & # 63;”支付”:“(* & # 63;)”[\ s \ s] * & # 63;“拯救”:“(* & # 63;)”[\ s \ s] * & # 63;”tranday”:“(* & # 63;)。”
”。常量常量2 & lt;文本长度:15祝辞”、“列表”:[]}}
<强>全局变量表
第2版。本
。全局变量Cookie,文本型
。全局变量G_tk,文本型
。全局变量QQ号码,文本型
<强> QQ快捷登陆的代码
第2版。本
。支持库HtmlView
。程序集窗口程序集_启动窗口
,子程序_超文本浏览框1 _跳转完毕
。如果真(超文本浏览框1。地址=" https://my.pay.qq.com/account/account_qdqb_trade_record.shtml ")
饼干=网页_取饼干(“qq.com”)
G_tk=计算G_tk(文本_取出中间文本(饼干,“skey=?“;”))
QQ号码=文本_取出中间文本(饼干,“印尼=o”、“;”)
载入(窗口1,假)
销毁()
。如果真结束
,子程序计算G_tk,文本型
。参数skey,文本型
。局部变量散列,整数型
。局部变量计次,整数型
散列=5381
。变量循环首(取文本长度(skey), 1,计次)
散列=散列+散列×求次方(2、5)+取字节集数据(编码_Ansi到Unicode(取文本中间(skey,计次,1)),3)
。变量循环尾()
返回(到文本(位与(散列,进制_十六到十(7 fffffff))))
,子程序__启动窗口_创建完毕
<强> Q币消费查询的代码
此功能需要加载精易模块
5.6
第2版。本
。支持库EThread
。支持库规范
。支持库iext
。程序集窗口程序集_窗口1
,子程序_窗口1 _创建完毕
截止编辑框。内容=到文本(取年份(取现行时间()))+“-”+到文本(取月份(取现行时间()))+“-”+到文本(取日(取现行时间()))
窗口1。标题=窗口1。标题+”(“+ QQ号码+”)”
,子程序_查询按钮_被单击
,判断开始(查询按钮。标题="开始查询”)
导出按钮。禁止=假
查询按钮。禁止=真
启动线程(和子程序_开始查询,,)
。默认
查询按钮。标题="开始查询”
,判断结束
,子程序子程序_开始查询
。局部变量返回文本,文本型
。局部变量共记录,文本型
。局部变量正则正,则表达式类
我。局部变量,整数型
。局部变量米,整数型
。局部变量页数,整数型,静态
返回文本=网页_访问S (" http://my.pay.qq.com/cgi-bin/personal/account_tradeinfo.cgi& # 63; coin_type=0, start_date=" +起始编辑框。内容+”,end_date=" +截止编辑框。内容+”,page_no=1,频道=qdqb&每=10,extcode=及t=" +时间_取随机时间戳()、饼干)
调试输出(返回文本)
共记录=文本_取出中间文本(返回文本,#引号+“计数”+ #引号+”:“+ #引号,#引号)
查询按钮。标题="停止查询[1/?共记录+”)”
页数=0
超级列表框。全部删除()
线程_初始化COM库()
,判断循环首(共记录≠" ")
页数=页数+ 1
返回文本=网页_访问S (" http://my.pay.qq.com/cgi-bin/personal/account_tradeinfo.cgi& # 63; coin_type=0, start_date=" +起始编辑框。内容+”,end_date=" +截止编辑框。内容+”,page_no=" +到文本(页数)+”,频道=qdqb&每=10,extcode=及t=" +时间_取随机时间戳()、饼干)
返回文本=编码_usc2到ansi(返回文本)
调试输出(返回文本)
正则。创建(#常量1,返回文本)
计。次循环首(正则。取匹配数量(),我)
M=超级列表框。插入表项(,,,,,)
超级列表框。置标题(M 0正则。取子匹配文本(我,6))
超级列表框。置标题(M, 1,子程序_处理类型(正则。取子匹配文本(我,1)))
超级列表框。置标题(M 2子程序_处理收入(正则。取子匹配文本(我,5)))
超级列表框。置标题(M 3子程序_处理收入(正则。取子匹配文本(我,4)))
超级列表框。置标题(M 4正则。取子匹配文本(我,2))
超级列表框。置标题(M 5正则。取子匹配文本(我,3))
查询按钮。标题="停止查询(“+到文本(超级列表框。取表项数())+ " +共记录+“]”
计。次循环尾()
。如果真(寻找文本(返回文本,#常量2,假)≠1)
跳出循环()
。如果真结束
。如果真(查询按钮。标题="开始查询”)
跳出循环()
。如果真结束
程序_延时(50)
,判断循环尾()
查询按钮。标题="开始查询”
线程_取消COM库()
查询按钮。禁止=假
信息框(“日期:“+起始编辑框。内容+“-”+截止编辑框。内容+ #换行符+ #换行符+”共消费了:”+子程序_计算消费()+“Q币”,0,“消费结果:",_启动窗口)
,子程序子程序_计算消费,文本型
我。局部变量,整数型
。局部变量消费,文本型
。局部变量Q币,文本型
。局部变量总数,文本型
计。次循环首(超级列表框。取表项数(),我)
消费=超级列表框。取标题(i - 1, 3)
Q币=超级列表框。取标题(i - 1, - 1)
。如果真(Q币=癚币”或Q币=拔实恪?
。如果真(Q币=拔实恪?
消费=到文本(到数值(消费)÷10)
。如果真结束
总数=到文本(到数值(总数)+到数值(消费))
。如果真结束
计。次循环尾()
返回(总数)
,子程序子程序_处理类型,文本型
。参数accttype,文本型
。如果真(accttype=?”)
返回(“Q币”)
。如果真结束
。如果真(accttype=?”)
返回(“Q点”)
。如果真结束
返回(accttype)
,子程序子程序_处理收入,文本型
。参数收入,文本型
。如果真(收入=" ")
返回(“-”)
。如果真结束
返回(收入)
,子程序_导出按钮_被单击
我。局部变量,整数型
。局部变量导出的内容,文本型
计。次循环首(超级列表框。取表项数(),我)
导出的内容=导出的内容+超级列表框。取标题(i - 1,0) +“-”+超级列表框。取标题(i - 1, - 1) +“-”+超级列表框。取标题(i - 1、2) +“-”+超级列表框。取标题(i - 1,3) +“-”+超级列表框。取标题(i - 1, 5) +“-”+超级列表框。取标题(i - 1,6) + #换行符
处理事件()
计。次循环尾()
。如果(写到文件(取运行目录()+”\ [“+ QQ号码+”]Q币消费查询。txt”,到字节集(导出的内容)))
信息框(“导出成功”,0,)
否,则
信息框(“导出失败”,0,)
。如果结束
