|
财付通 定时抓取充值 信息 程序出现假
程序功能:
程序使用时钟 每10秒,15秒或者20秒刷新一次 超文本浏览框 打开的 财付通 来抓取数据!
程序问题:
刷新一次内存占15-20%
内存持续增加!(程序假死卡住不动,后期肯定会死机的)
各位大神帮忙解决下!!
代码:
时钟1.时钟周期 = 到整数 (组合框1.内容 ) × 1000 超文本浏览框1. 跳转 (“https://www.tenpay.com/v2/trade/trade_mgr.shtml”, , )网页内容 = 超文本浏览框1. 取网页文本 ()网页内容 = 文本_取出中间文本 (网页内容, “状态操作”, “加载中”)调试输出 (“刷新页面”)如果真 (网页内容 ≠ “”)调试输出 (“抓取数据”)启动线程 (&开始抓取, , )变量名 | 类 型 | 静态 | 数组 | 备 注 | 内容 | 文本型 | | | 文本 | 文本型 | | 0 | 文本1 | 文本型 | | 0 | 文本2 | 文本型 | | 0 | 计数 | 整数型 | | | 付款时间 | 文本型 | | | 备注 | 文本型 | | | 金额 | 文本型 | | | 订单号 | 文本型 | | | 姓名 | 文本型 | | |
内容 = 网页内容 如果真 (内容 ≠ 编辑框1.内容 )调试输出 (“开始抓取”)文本 = 分割文本 (内容, #换行符, ) 计次循环首 (取数组成员数 (文本 ), 计数 )如果真 (文本 [计数 ] ≠ “”)付款时间 = 文本_取出中间文本 (文本 [计数 ], “即时到账”, “付款”) 订单号 = 文本_取出中间文本 (文本 [计数 ], “交易单号 ”, “+”)文本2 = 分割文本 (订单号, “...”, )姓名 = 子文本替换 (文本2 [2 ], 取文本左边 (文本2 [2 ], 3 ), “”, , , 真)订单号 = 子文本替换 (订单号, “...”, 取时间1 (付款时间 ), , , 真)订单号 = 子文本替换 (订单号, 姓名, “”, , , 真) 文本1 = 分割文本 (文本 [计数 ], “+”, )金额 = 子文本替换 (文本1 [2 ], “支付成功详情”, “”, , , 真) 备注 = 文本_取出中间文本 (文本 [计数 ], “付款 - ”, “交易单号”) 如果真 (查询数据是否存在 (付款时间, 订单号 ) = 0 )插入数据 (付款时间, 订单号, 姓名, 备注, 金额 )标签3.标题 = 到文本 (到整数 (标签3.标题 ) + 1 )计次循环尾 ()编辑框1.内容 = 内容
|
|