又要来给大家分享编程技术啦！今天给大家提供的是一款用易语言开发列举网发帖的工具！
应用工具：
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行代码就能实现列举网的批量发布信息的功能！大家可以照猫画虎的操作一下，直接把代码复制到你的程序里面即可，这太简答了。
|
|
