财付通 定时抓取充值 信息 程序出现假

y252999822

财付通 定时抓取充值 信息 程序出现假

程序功能：

程序使用时钟 每10秒，15秒或者20秒刷新一次 超文本浏览框 打开的 财付通 来抓取数据！

程序问题：

刷新一次内存占15-20%

内存持续增加！（程序假死卡住不动，后期肯定会死机的）

各位大神帮忙解决下！！

代码：

  

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

时钟1.时钟周期 ＝ 到整数 (组合框1.内容) × 1000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

超文本浏览框1.跳转 (“https://www.tenpay.com/v2/trade/trade_mgr.shtml”, , )
网页内容 ＝ 超文本浏览框1.取网页文本 ()
网页内容 ＝ 文本_取出中间文本 (网页内容, “状态操作”, “加载中”)
调试输出 (“刷新页面”)
如果真 (网页内容 ≠ “”)
调试输出 (“抓取数据”)
启动线程 (&开始抓取, , )

子程序名	返回值类型	公开	备 注
开始抓取

变量名	类 型	静态	数组	备 注
内容	文本型
文本	文本型		0
文本1	文本型		0
文本2	文本型		0
计数	整数型
付款时间	文本型
备注	文本型
金额	文本型
订单号	文本型
姓名	文本型

内容 ＝ 网页内容
如果真 (内容 ≠ 编辑框1.内容)
调试输出 (“开始抓取”)
文本 ＝ 分割文本 (内容, #换行符, )
' 即时到账2014-12-08 16:48:36付款 - 10001交易单号  1000...618财付通用户+0.01支付成功详情
计次循环首 (取数组成员数 (文本), 计数)
如果真 (文本 [计数] ≠ “”)
付款时间 ＝ 文本_取出中间文本 (文本 [计数], “即时到账”, “付款”)
' 调试输出 (付款时间)
订单号 ＝ 文本_取出中间文本 (文本 [计数], “交易单号  ”, “+”)
文本2 ＝ 分割文本 (订单号, “...”, )
姓名 ＝ 子文本替换 (文本2 [2], 取文本左边 (文本2 [2], 3), “”, , , 真)
订单号 ＝ 子文本替换 (订单号, “...”, 取时间1 (付款时间), , , 真)
订单号 ＝ 子文本替换 (订单号, 姓名, “”, , , 真)
' 调试输出 (订单号)
文本1 ＝ 分割文本 (文本 [计数], “+”, )
金额 ＝ 子文本替换 (文本1 [2], “支付成功详情”, “”, , , 真)
' 调试输出 (金额)
备注 ＝ 文本_取出中间文本 (文本 [计数], “付款 - ”, “交易单号”)
' 调试输出 (备注)
如果真 (查询数据是否存在 (付款时间, 订单号) ＝ 0)
插入数据 (付款时间, 订单号, 姓名, 备注, 金额)
标签3.标题 ＝ 到文本 (到整数 (标签3.标题) ＋ 1)


计次循环尾 ()
编辑框1.内容 ＝ 内容

i支持库列表	支持库注释
HtmlView	超文本浏览框支持库
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 HtmlView<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 时钟1.时钟周期 ＝ 到整数 (组合框1.内容) × 1000<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 超文本浏览框1.跳转 (“https://www.tenpay.com/v2/trade/trade_mgr.shtml”, , )<br /> 网页内容 ＝ 超文本浏览框1.取网页文本 ()<br /> 网页内容 ＝ 文本_取出中间文本 (网页内容, “状态操作”, “加载中”)<br /> 调试输出 (“刷新页面”)<br /> .如果真 (网页内容 ≠ “”)<br />     调试输出 (“抓取数据”)<br />     启动线程 (&开始抓取, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 开始抓取<br /> .局部变量 内容, 文本型<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 文本1, 文本型, , "0"<br /> .局部变量 文本2, 文本型, , "0"<br /> .局部变量 计数, 整数型<br /> .局部变量 付款时间, 文本型<br /> .局部变量 备注, 文本型<br /> .局部变量 金额, 文本型<br /> .局部变量 订单号, 文本型<br /> .局部变量 姓名, 文本型<br /> <br /> <br /> 内容 ＝ 网页内容<br /> .如果真 (内容 ≠ 编辑框1.内容)<br />     调试输出 (“开始抓取”)<br />     文本 ＝ 分割文本 (内容, #换行符, )<br />     ' 即时到账2014-12-08 16:48:36付款 - 10001交易单号  1000...618财付通用户+0.01支付成功详情<br />     .计次循环首 (取数组成员数 (文本), 计数)<br />         .如果真 (文本 [计数] ≠ “”)<br />             付款时间 ＝ 文本_取出中间文本 (文本 [计数], “即时到账”, “付款”)<br />             ' 调试输出 (付款时间)<br />             订单号 ＝ 文本_取出中间文本 (文本 [计数], “交易单号  ”, “+”)<br />             文本2 ＝ 分割文本 (订单号, “...”, )<br />             姓名 ＝ 子文本替换 (文本2 [2], 取文本左边 (文本2 [2], 3), “”, , , 真)<br /> <br />             订单号 ＝ 子文本替换 (订单号, “...”, 取时间1 (付款时间), , , 真)<br />             订单号 ＝ 子文本替换 (订单号, 姓名, “”, , , 真)<br /> <br />             ' 调试输出 (订单号)<br />             文本1 ＝ 分割文本 (文本 [计数], “+”, )<br />             金额 ＝ 子文本替换 (文本1 [2], “支付成功详情”, “”, , , 真)<br />             ' 调试输出 (金额)<br />             备注 ＝ 文本_取出中间文本 (文本 [计数], “付款 - ”, “交易单号”)<br />             ' 调试输出 (备注)<br />             .如果真 (查询数据是否存在 (付款时间, 订单号) ＝ 0)<br />                 插入数据 (付款时间, 订单号, 姓名, 备注, 金额)<br />                 标签3.标题 ＝ 到文本 (到整数 (标签3.标题) ＋ 1)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     编辑框1.内容 ＝ 内容

y252999822

没人帮忙，自己顶起！！！

y252999822

还是没有人！

y252999822

人人人人人？？？？？？？？