教你开发列举网自动发帖软件！学习吧

时间：2020-03-10 23:40:29 阅读：122 评论：0 收藏：0 [点我收藏+]

又要来给大家分享编程技术啦！今天给大家提供的是一款用易语言开发列举网发帖的工具！

应用工具：

1、易语言

2、VIP模块

3、超文本浏览框
程序界面做出来大概是这个样子的：
技术图片
还是老样子，直接分享代码大家下去了自己，研究，毕竟这里不能上传源码和程序，没办法，只能给大家发代码哈！一些开发的思路和技术点会跟大家讲到！

代码段：

.版本 2
.支持库 eAPI
.支持库 spec
.支持库 eExcel2000
.支持库 HtmlView

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

打开指定网址 (“http://www.xkrj5.com”)

.子程序 发布信息, 逻辑型
.局部变量 填表, 网页填表
.局部变量 对象1, 对象
.局部变量 zz, 正则表达式类
.局部变量 文本, 文本型

填表.初始化 (超文本浏览框1.取窗口句柄 ())
延迟 (3000)
填表.组合框_置现行选中项 (“p8_fenlei_zone”, 2)
延迟 (1000)

编辑框2.内容 ＝ 文本_取出文本中汉字 (编辑框2.内容)
填表.文本框_写内容 (“atc_title”, 编辑框2.内容)

填表.组合框_置现行选中项 (“atc_leibie”, 8)
填表.文本框_写内容 (“atc_dizhi”, “未知”)
延时 (2000)
填表.初始化 (超文本浏览框1.取窗口句柄 ())
填表.文本框_写内容 (“postdb[content]”, “19951220gjx”)
对象1 ＝ 填表.网页_取元素对象 (“textarea”, “id==atc_content”)

填表.网页_写元素内容 (对象1, 内容)

延迟 (2000)

.判断开始 (填表.按钮_点击 (“提交发布”) ＝ 真)
    返回 (真)
.默认
    返回 (假)
.判断结束

.子程序 _按钮2_被单击
.局部变量 y, 整数型
.局部变量 次数, 整数型

.计次循环首 (到整数 (编辑框5.内容), y)

    Excel程序1.创建 ()
    Excel工作簿1.置程序 (Excel程序1)
    Excel工作簿1.激活工作簿 ()
    Excel工作簿1.打开 (编辑框1.内容)
    次数 ＝ 到整数 (编辑框4.内容) ＋ y
    Excel工作簿1.首单元格 ＝ “B” ＋ 到文本 (次数)
    编辑框2.内容 ＝ Excel工作簿1.内容
    Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (次数)
    内容 ＝ Excel工作簿1.内容
    编辑框3.内容 ＝ 内容
    编辑框3.加入文本 (#换行符 ＋ “读取成功！延迟执行2秒钟”)
    延迟 (2000)

    .判断开始 (发布信息 () ＝ 真)
        延迟 (2000)
        编辑框3.加入文本 (#换行符 ＋ “成功的选择b” ＋ 到文本 (次数))
        超文本浏览框1.跳转 (“http://bj.lieju.com/post/111”, , )
    .默认
        编辑框3.加入文本 (#换行符 ＋ “失败的选择c” ＋ 到文本 (次数))

    .判断结束

.计次循环尾 ()
信息框 (“发布完成.发布到：” ＋ 编辑框2.内容, 0, , )
写到文件 (取当前目录 () ＋ “/发布状态.txt”, 到字节集 (编辑框2.内容))

.子程序 _按钮3_被单击

通用对话框1.打开 ()
编辑框1.内容 ＝ 通用对话框1.文件名

.子程序 _按钮1_被单击
.局部变量 填表, 网页填表

填表.初始化 (超文本浏览框1.取窗口句柄 ())
填表.文本框_写内容 (“username”, 编辑框6.内容)
填表.文本框_写内容 (“password”, 编辑框7.内容)
延迟 (1000)
填表.按钮_点击 (“Submit3”)
延迟 (3000)
超文本浏览框1.跳转 (“http://bj.lieju.com/post/111”, , )

开发的思路和步骤：

1、打开列举网网址
技术图片