文件_删除 (取运行目录 () ＋ “\cookies.dat”)
编辑框_日志.加入文本 (局_目录_数组 [局_次数] ＋ #换行符)
局_子账号 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “子账号”, )
局_账号 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “账号”, )
局_密码 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “密码”, )
局_每日篇数 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “每日篇数”, )
局_已传篇数 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “已传篇数”, )
局_分类标识 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “分类标识”, )
编辑框_日志.加入文本 (局_分类标识 ＋ #换行符)
局_文章标识 ＝ 读配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “文章标识”, )
局_JS文章管理 ＝ 文本_替换 (#常_文章, , , , “getElementsByClassName(” ＋ #引号 ＋ “menu_item” ＋ #引号 ＋ “)[4]”, “getElementsByClassName(” ＋ #引号 ＋ “menu_item” ＋ #引号 ＋ “)[” ＋ 局_文章标识 ＋ “]”, , , , , , , , )
调试输出 (局_JS文章管理)
编辑框_日志.加入文本 (“日志:读取完毕，准备上传” ＋ #换行符)
子程序_上传操作 (局_账号, 局_密码, 局_JS文章管理, 局_子账号)
程序_延时 (1000, )
局_窗口句柄 ＝ 取窗口句柄 ()
窗口_枚举所有子窗口 (局_窗口句柄, 局_子窗口句柄_数组, “wkeWebWindow”)
调试输出 (局_子窗口句柄_数组 [1])
编辑框_日志.加入文本 (“日志:取窗口句柄” ＋ 到文本 (局_子窗口句柄_数组 [1]) ＋ #换行符)
Excel程序1.创建 ()
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.激活工作簿 ()
Excel工作簿1.打开 (局_目录_数组 [局_次数] ＋ “\1.xls”)
编辑框_日志.加入文本 (“日志:打开XLS” ＋ #换行符)
.计次循环首 (到整数 (局_每日篇数), 局_循环次数)
编辑框_日志.加入文本 (“日志:上传文章-” ＋ 到文本 (局_循环次数) ＋ #换行符)
子程序_上传文章 (到文本 (局_循环次数), 局_子窗口句柄_数组 [1], 局_已传篇数, 局_分类标识)
程序_延时 (1500, )
.计次循环尾 ()
写配置项 (局_目录_数组 [局_次数] ＋ “\1.ini”, “信息”, “已传篇数”, 到文本 (到整数 (局_已传篇数) ＋ 到整数 (局_每日篇数)))
上一篇 ORACLE数据库查询报表软件