又要来给大家分享编程技术啦!今天给大家提供的是一款用易语言开发列举网发帖的工具!
应用工具:
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、打开列举网网址
2、通过填表功能,自动置入账号密码,然后进行登录。
【教你开发列举网自动发帖软件!学习吧】3、从外部EXCEL文件读取发帖内容,再利用计次循环命令读取表内数据,再把数据通过填表模块写到网页里面,自动提交发布。
其实整个代码操作起来就这么简单,还不到50行代码就能实现列举网的批量发布信息的功能!大家可以照猫画虎的操作一下,直接把代码复制到你的程序里面即可,这太简答了。