.版本 2
.支持库 HtmlView
.支持库 spec
.支持库 RegEx
.程序集 窗口程序集1
.程序集变量 网页操作, 网页文档类
.程序集变量 登陆地址, 文本型
.程序集变量 测试地址, 文本型
.程序集变量 采集地址, 文本型
.子程序 __启动窗口_创建完毕
标题 ＝ “1元云购-辅助工具”
HTTP_清除COOKIE (“www.1yyg.com”)
测试地址 ＝ “http://u.1yyg.com/1006431622”
采集地址 ＝ 读配置项 (取运行目录 () ＋ “\set.ini”, “ALL”, “Collection”, “http://www.1yyg.com/HistoryBuyRecords.html”)
登陆地址 ＝ 读配置项 (取运行目录 () ＋ “\set.ini”, “ALL”, “login”, “https://passport.1yyg.com/login.html?forward=rego”)
超文本浏览框1.地址 ＝ 登陆地址
高度 ＝ 422
time ＝ 到时间 (取北京时间_ ())
时钟1.时钟周期 ＝ 1000
.子程序 _按钮1_被单击
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页操作.点击按钮 (“btnAddFriend”, #元素标识类型_ID, )
.子程序 _按钮2_被单击, , , btnSendMsg,ke-content
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页操作.点击按钮 (“btnSendMsg”, #元素标识类型_ID, )
网页操作.填写表单 (“txtPrivateMsg”, #元素标识类型_名称, 编辑框1.内容)
延迟 (200)
网页操作.点击按钮 (“btnPostMsg”, #元素标识类型_ID, )
.子程序 _按钮3_被单击
.如果真 (超文本浏览框1.是否就绪 () ＝ 假)
信息框 (“浏览器还未就绪，请稍后。”, #信息图标, , )
返回 ()
.如果真结束
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页操作.填写表单 (“username”, #元素标识类型_名称, 编辑框2.内容)
.如果真 (网页操作.填写表单 (“pwd”, #元素标识类型_名称, 编辑框3.内容))
.如果真 (网页操作.点击按钮 (“btnSubmitLogin”, #元素标识类型_ID, ))
提交完毕 ＝ 1
选择夹1.现行子夹 ＝ 1
编辑框_地址.内容 ＝ 采集地址
.如果真结束
.如果真结束
.子程序 _超文本浏览框1_已就绪
.判断开始 (提交完毕 ＝ 1)
超文本浏览框1.地址 ＝ 采集地址
提交完毕 ＝ 2
.判断 (提交完毕 ＝ 2)
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页文本 ＝ 网页操作.取元素文本 (网页操作.取元素对象 (“A”, #元素标识类型_标题))
调试输出 (网页文本)
提交完毕 ＝ 3
.判断 (提交完毕 ＝ 10)
.默认
.判断结束
.子程序 _编辑框_地址_内容被改变
写配置项 (取运行目录 () ＋ “\set.ini”, “ALL”, “Collection”, 编辑框_地址.内容)
采集地址 ＝ 编辑框_地址.内容
.子程序 _按钮4_被单击, , , recordList
.局部变量 文本, 文本型
.局部变量 i, 整数型
编辑框_地址.禁止 ＝ 真
采集页数 ＝ 0
编辑框4.禁止 ＝ 真
按钮4.禁止 ＝ 真
按钮7.禁止 ＝ 真
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
.计次循环首 (到整数 (编辑框4.内容), i)
标签5.标题 ＝ “正在读取会员网址。”
文本 ＝ 网页操作.取元素代码 (网页操作.取元素对象 (“recordList”, #元素标识类型_ID))
搜索文本 (文本)
延迟 (到整数 (编辑框6.内容))
.计次循环尾 ()
会员数据 ＝ 分割文本 (编辑框5.内容, #换行符, )
调试输出 (会员数据)
写到文件 (取运行目录 () ＋ “\会员数据.txt”, 到字节集 (编辑框5.内容))
选择夹1.现行子夹 ＝ 3
提交完毕 ＝ 10
_单选框1_被单击 ()
.子程序 取元素代码
.局部变量 temp, 字节集
.局部变量 文本, 文本型
标签5.标题 ＝ “正在读取会员网址。”
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
文本 ＝ 网页操作.取元素代码 (网页操作.取元素对象 (“recordList”, #元素标识类型_ID))
‘ 调试输出 (文本)
搜索文本 (文本)
.子程序 搜索文本
.参数 文本, 文本型
.局部变量 正则表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , “0”
.局部变量 网址, 文本型
.局部变量 i, 整数型
.局部变量 是否存在, 整数型
标签5.标题 ＝ “正在搜索可用文本。”
正则表达式.创建 (“<LI class=nem><A class=blue href=” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “ target=_blank”, )
搜索结果 ＝ 正则表达式.搜索全部 (文本)
.计次循环首 (取数组成员数 (搜索结果), i)
是否存在 ＝ 寻找文本 (编辑框5.内容, 搜索结果 [i].取子匹配文本 (文本, 1, ), , 假)
调试输出 (是否存在)
.如果真 (是否存在 ＝ -1)
编辑框5.加入文本 (搜索结果 [i].取子匹配文本 (文本, 1, ) ＋ #换行符)
网址 ＝ 网址 ＋ 搜索结果 [i].取子匹配文本 (文本, 1, ) ＋ #换行符
.如果真结束
.计次循环尾 ()
‘ 调试输出 (网址)
‘ 编辑框5.加入文本 (网址)
.如果 (采集页数 ≤ 到整数 (编辑框4.内容))
标签5.标题 ＝ “第” ＋ 到文本 (采集页数 ＋ 1) ＋ “页采集完毕，将进入下一页。”
.否则
标签5.标题 ＝ “所有的页面采集完成！”
.如果结束
采集页数 ＝ 采集页数 ＋ 1
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
网页操作.执行脚本 (“CBLFun.gotoPageIndex(” ＋ 到文本 (20 × 采集页数 － 19) ＋ “,” ＋ 到文本 (采集页数 × 20) ＋ “);”, #脚本类型_JavaScript)
.子程序 _按钮5_被单击
超文本浏览框1.地址 ＝ 采集地址
.子程序 _按钮6_被单击
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
‘ 网页操作.点击按钮 (“next_page”, #元素标识类型_, )
‘ 网页操作.点击链接_按标题 (“下一页”)
网页操作.执行脚本 (“CBLFun.gotoPageIndex(” ＋ 到文本 (20 × 采集页数 － 19) ＋ “,” ＋ 到文本 (采集页数 × 20) ＋ “);”, #脚本类型_JavaScript)
.子程序 _单选框1_被单击
.局部变量 i, 整数型
.局部变量 a
.局部变量 b
.局部变量 c, 整数型
.局部变量 d, 整数型
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
标签7.标题 ＝ “正在加为好友，一共有：” ＋ 到文本 (取数组成员数 (会员数据)) ＋ “个数据”
置随机数种子 (1234567890)
a ＝ 到整数 (编辑框9.内容)
b ＝ 到整数 (编辑框10.内容)
.计次循环首 (取数组成员数 (会员数据), i)
.如果真 (会员数据 [i] ≠ “”)
超文本浏览框1.地址 ＝ 会员数据 [i]
c ＝ 取随机数 (a, b)
d ＝ 取秒 (取现行时间 ())
d ＝ 取整 (c ÷ d)
c ＝ c ＋ d
.判断开始断 (i ＝ 10)
‘ 标签10.标题 ＝ “已经加了10个好友，程序自动休息20分钟。”
‘ 延迟 (1200000)
‘ 标签10.标题 ＝ “”
.’ 判断 (i ＝ 20)
‘ 标签10.标题 ＝ “已经加了10个好友，程序自动休息40分钟。”
‘ 延迟 (2400000)
‘ 标签10.标题 ＝ “”
.’ 判断 (i ＝ 30)
‘ 标签10.标题 ＝ “已经加了10个好友，程序自动休息60分钟。”
‘ 延迟 (3600000)
‘ 标签10.标题 ＝ “”
.默认
‘ 延迟 (c)
.判断结束
延迟 (c)
网页操作.点击按钮 (“btnAddFriend”, #元素标识类型_ID, )
编辑框7.加入文本 (会员数据 [i] ＋ #换行符)
.如果真结束
标签7.标题 ＝ 会员数据 [i] ＋ “ 增加完毕,当前时间：” ＋ 到文本 (c ÷ 1000) ＋ “秒，共有：” ＋ 到文本 (取数组成员数 (会员数据)) ＋ “个数据，剩余：” ＋ 到文本 (取数组成员数 (会员数据) － i)
.计次循环尾 ()
.子程序 _按钮7_被单击
.局部变量 文本, 文本型
.局部变量 i, 整数型
编辑框_地址.禁止 ＝ 真
采集页数 ＝ 0
编辑框4.禁止 ＝ 真
按钮4.禁止 ＝ 真
按钮7.禁止 ＝ 真
网页操作.初始化 (, 超文本浏览框1.取窗口句柄 ())
.计次循环首 (到整数 (编辑框4.内容), i)
标签5.标题 ＝ “正在读取会员网址。”
文本 ＝ 网页操作.取元素代码 (网页操作.取元素对象 (“recordList”, #元素标识类型_ID))
搜索文本 (文本)
延迟 (到整数 (编辑框6.内容))
.计次循环尾 ()
会员数据 ＝ 分割文本 (编辑框5.内容, #换行符, )
调试输出 (会员数据)
写到文件 (取运行目录 () ＋ “\会员数据.txt”, 到字节集 (编辑框5.内容))
选择夹1.现行子夹 ＝ 4
提交完毕 ＝ 11
.子程序 _时钟1_周期事件
.局部变量 time2, 日期时间型
time ＝ 增减时间 (time, #秒, 1)
标题 ＝ “1元云购-辅助工具 ” ＋ 到文本 (time)
.如果真 (time ＞ 到时间 (“2014-12-12 23:59:59”))
时钟1.时钟周期 ＝ 0
信息框 (“测试时间已经使用完”, #信息图标, , )
结束 ()
.如果真结束
————-
模块使用的是 网页操作类(光庆版2.0)
