这款工具完整的易语言代码:- .版本 2
- .支持库 HtmlView
- .支持库 spec
- .支持库 iext
- .支持库 internet
- .支持库 eExcel2000
- .程序集 窗口程序集_启动窗口
- .子程序 _超文本浏览框1_即将打开新窗口, 逻辑型
- .局部变量 跳转地址, 文本型
- 超文本浏览框1.跳转 (超文本浏览框1.状态条文本, , )
- 返回 (假)
- .子程序 _按钮1_被单击
- .局部变量 填表, 网页填表
- 填表.初始化 (超文本浏览框1.取窗口句柄 ())
- 填表.文本框_写内容 (“session_email_or_mobile_number”, 编辑框1.内容)
- 填表.文本框_写内容 (“session_password”, 编辑框2.内容)
- 填表.按钮_点击 (“sign-in-form-submit-btn”)
- .子程序 _按钮3_被单击
- .局部变量 i, 整数型
- .局部变量 账号, 文本型
- .局部变量 密码, 文本型
- .局部变量 文件号1, 整数型
- .局部变量 文件号2, 整数型
- 文件号1 = 打开文件 (取运行目录 () + “\账号.txt”, , )
- 文件号2 = 打开文件 (取运行目录 () + “\密码.txt”, , )
- 账号 = 读入文本 (文件号1, )
- 密码 = 读入文本 (文件号2, )
- 关闭文件 (文件号1)
- 关闭文件 (文件号2)
- 账号行数 = 文本_取行数 (账号)
- 密码行数 = 文本_取行数 (密码)
- 调试输出 (账号行数)
- 调试输出 (密码行数)
- 文件号1 = 打开文件 (取运行目录 () + “\账号.txt”, , )
- 文件号2 = 打开文件 (取运行目录 () + “\密码.txt”, , )
- .计次循环首 (账号行数, i)
- 超级列表框1.插入表项 (i, “”, , , , )
- i = i - 1
- 超级列表框1.置标题 (i, 0, 读入一行 (文件号1))
- .计次循环尾 ()
- i = 0
- .计次循环首 (密码行数, i)
- i = i - 1
- 超级列表框1.置标题 (i, 1, 读入一行 (文件号2))
- .计次循环尾 ()
- 按钮3.禁止 = 真
- .子程序 _时钟1_周期事件
- .局部变量 填表, 网页填表
- .局部变量 数据, 文本型
- .局部变量 判断, 文本型
- .局部变量 标题, 文本型
- .局部变量 内容, 文本型
- .局部变量 i, 整数型
- .局部变量 数据判断, 文本型
- .局部变量 a, 整数型
- 数据 = 编码_utf8到gb2312 (到文本 (HTTP读文件 (超文本浏览框1.地址)))
- .判断开始 (寻找文本 (数据, “我的钱包”, , 假) > 5)
- 编辑框5.加入文本 (“登录成功” + #换行符)
- 时钟1.时钟周期 = 0
- 延迟 (2000)
- 超文本浏览框1.跳转 (“https://www.jianshu.com/writer”, , )
- 登录状态 = “成功”
- .默认
- .判断结束
- 延迟 (3000)
- .判断开始 (超文本浏览框1.是否正在下载 () = 真)
- 编辑框5.加入文本 (“文档还在下载”, #换行符)
- .默认
- 填表.初始化 (超文本浏览框1.取窗口句柄 ())
- 编辑框5.加入文本 (“文档载入完成”, #换行符)
- 延迟 (3000)
- a = 到整数 (读配置项 (取运行目录 () + “\excel.ini”, “配置项”, “记录”, ))
- 延迟 (1000)
- 延迟 (1000)
- .计次循环首 (到整数 (编辑框10.内容), i)
- Excel程序1.创建 ()
- Excel工作簿1.置程序 (Excel程序1)
- Excel工作簿1.激活工作簿 ()
- .判断开始 (Excel工作簿1.打开 (编辑框9.内容) = 真)
- 编辑框5.内容 = “excel打开成功”
- Excel工作簿1.首单元格 = “B” + 到文本 (a)
- 编辑框6.内容 = Excel工作簿1.内容
- Excel工作簿1.首单元格 = “C” + 到文本 (a)
- 编辑框7.内容 = Excel工作簿1.内容
- .默认
- 编辑框5.内容 = “excel打开失败”
- .判断结束
- .计次循环尾 ()
- 填表.DIV_点击 (“_1GsW5”)
- 延迟 (2000)
- .判断开始 (置剪辑板文本 (编辑框6.内容) = 真)
- 编辑框5.内容 = “复制标题成功”
- 填表.网页_粘贴 ()
- 延迟 (3000)
- .判断开始 (置剪辑板文本 (编辑框7.内容) = 真)
- 编辑框5.内容 = “复制内容成功”
- 填表.DIV_置焦点 (“kalamu-area”)
- 编辑框7.加入文本 (#换行符 + 读配置项 (取运行目录 () + “\预设广告”, “预设广告”, “广告”, ))
- 延迟 (2000)
- 填表.网页_粘贴 ()
- 延迟 (3000)
- .判断开始 (填表.链接_点击 (“2”) = 真)
- 编辑框5.内容 = “发布按钮点击成功”
- 延迟 (3000)
- 判断 = 填表.DIV_取内容 (“36”)
- 延迟 (2000)
- .判断开始 (寻找文本 (判断, “微信”, , 假) > 0)
- 编辑框5.内容 = “需要绑定微信账号”
- 信息框 (“需要绑定微信账号”, 0, , )
- 记录 = 0
- .默认
- 记录 = 记录 + 1
- 延迟 (3000)
- 数据判断 = 填表.网页_取文本 ()
- .判断开始 (寻找文本 (数据判断, “发布成功”, , 假) > 1)
- 编辑框5.内容 = “发布成功”
- a = a + 1
- 写配置项 (取运行目录 () + “\excel.ini”, “配置项”, “记录”, 到文本 (a))
- 超文本浏览框1.跳转 (“https://www.jianshu.com/”, , )
- 延迟 (3000)
- .判断开始 (超文本浏览框1.是否正在下载 () = 真)
- 时钟1.时钟周期 = 5000
- 编辑框5.内容 = “开始执行新循环”
- .默认
- 延迟 (3000)
- 时钟1.时钟周期 = 5000
- 编辑框5.内容 = “开始执行新循环”
- .判断结束
- .默认
- 编辑框5.内容 = “发布异常请查看”
- 时钟1.时钟周期 = 0
- .判断结束
- .判断结束
- .默认
- .判断结束
- .默认
- .判断结束
- .默认
- 编辑框5.内容 = “复制失败”
- .判断结束
- .判断结束
- .子程序 _单选框1_被单击
- 时钟1.时钟周期 = 5000
- 编辑框5.内容 = “开始任务”
- .子程序 _单选框2_被单击
- 时钟1.时钟周期 = 0
- 编辑框5.内容 = “结束任务”
- .子程序 _按钮5_被单击
- .判断开始 (写配置项 (取运行目录 () + “\预设广告”, “预设广告”, “广告”, 编辑框8.内容) = 真)
- 编辑框5.内容 = “预设广告设置成功”
- .默认
- 编辑框5.内容 = “预设广告设置失败”
- .判断结束
- .子程序 __启动窗口_创建完毕
- 行数 = 0
- .判断开始 (文件是否存在 (取运行目录 () + “\账号.txt”) = 真)
- .判断开始 (文件是否存在 (取运行目录 () + “\密码.txt”))
- .默认
- 写到文件 (取运行目录 () + “\密码.txt”, 到字节集 (“”))
- .判断结束
- .默认
- 写到文件 (取运行目录 () + “\账号.txt”, 到字节集 (“”))
- .判断结束
- .判断开始 (文件是否存在 (取运行目录 () + “\excel.ini”) = 真)
- .默认
- 写配置项 (取运行目录 () + “\excel.ini”, “配置项”, “记录”, “0”)
- .判断结束
- .子程序 _按钮2_被单击
- 编辑框1.内容 = 超级列表框1.取标题 (行数, 0)
- 编辑框2.内容 = 超级列表框1.取标题 (行数, 1)
- 行数 = 行数 + 1
- .判断开始 (行数 = 超级列表框1.取表项数 ())
- 行数 = 0
- .默认
- .判断结束
- .子程序 _编辑框9_内容被改变
- .局部变量 excel, Excel工作簿
- .子程序 _按钮6_被单击
- 通用对话框1.打开 ()
- 编辑框9.内容 = 通用对话框1.文件名
- .子程序 _按钮7_被单击
- 超文本浏览框1.跳转 (“https://www.jianshu.com/”, , )
复制代码
|