手把手教你开发列举网自动发帖软件！神器哈

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

应用工具：

1、易语言

2、 VIP模块

3、超文本浏览框

程序界面做出来大概是这个样子的：

还是老样子，直接分享代码大家下去了自己，研究，如果直接下载源码的话，我们已经上传好csdn站了

https://download.csdn.net/download/qq_15159657/12238463（此程序源码）

大家可以点击直接下载！

代码段：

.版本 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、打开列举网网址

 

2、通过填表功能，自动置入账号密码，然后进行登录。

3、从外部EXCEL文件读取发帖内容，再利用计次循环命令读取表内数据，再把数据通过填表模块写到网页里面，自动提交发布。

 其实整个代码操作起来就这么简单，还不到50行代码就能实现列举网的批量发布信息的功能！大家可以照猫画虎的操作一下，直接把代码复制到你的程序里面即可，这太简答了。