- 论坛徽章:
- 0
|
require 'watir'
#author:cucme [email]duanjigang1983@126.com[/email] 2008-06-21
#定义目的站点
aim_site = "http://bbs.chinaunix.net/forumdisplay.php?fid=31"
#打开IE浏览器
ie = Watir::IE.new
puts "Step 1: go to chinaunix.net"
#跳转到站点
ie.goto(aim_site)
puts " "
#输入用户名
ie.text_field(:name, "username").set("用户名")
#输入密码
ie.text_field(:name, "password").set("密码")
#点击确定按钮
ie.button(:name, "loginsubmit").click
#登录后再次跳转到清茶斋
ie.goto(aim_site)
#打开士兵突击文件
file=File.new("D:\\士兵突击.txt","r")
str=""
counter=1;
#遍历读取每一行
while line=file.gets
str += line;
#如果读够了8000个字节,就发贴,当然添加上了字体大小和颜色
if (str.length >= 8000)
strData= "[color=DarkSlateGray][size=4]" + str + "[/size][/color]"
ie.link(:text, "士兵突击").click
#在输入框中恢复帖子,没想到watir是一个一个把字敲进去的,很慢,不过别人手动快多了
ie.text_field(:id, "message").set(strData)
#点击回复按钮,提交
ie.button(:name, "replysubmit").click
puts strData
counter=counter+1
str = "";
#由于论坛防止灌水,两次发贴之间时间不能小于30秒,不过输入文字的过程已经很久了,所以在此等5秒
sleep(5)
#再次回到清茶斋
ie.goto(aim_site)
puts "#{counter}"
end
end
file.close()
#ie.link(:text, "退出").click
#ie.close()
puts "执行完毕"
[[i] 本帖最后由 贺兰云天 于 2008-6-25 22:06 编辑 [/i]] |
|