希望 能 帮到你 条件 "TC最新主题回帖":
web内容=网络.url读内容("http://bbs.tyuyan.com/")
web内容=字符串.移除(web内容,字符串.查找字符串(web内容,"<span>最新主题</span>"),真)
序号=数组[10]
标题=数组[10]
遍历(i=0;i<10;i++)
序号=字符串.截取(字符串.移除(web内容,字符串.查找字符串(web内容,"showtopic")+9,真),0,11) //网址
网页.转到("浏览器0","http://bbs.tyuyan.com/showtopic"&序号)
文字位数=字符串.查找字符串(web内容,"title=")//标题
web内容=字符串.移除(web内容,文字位数+7,真)
位数=字符串.查找字符串(web内容,">")
标题=字符串.截取(web内容,0,位数-1)
编辑框.设置文本("编辑框2",标题,"签到回帖")
辅助.等待(7000)
返回结果=辅助.对话框("是否回帖","网页元素",3,真)
循环(真)
是否成功=网页.加载完成("浏览器0")
辅助.等待(50)
如果(是否成功)
如果(返回结果==7)
回帖内容=列表框.得到选中文本("列表框1","签到回帖")
网页.输入元素文本("浏览器0",回帖内容,"id:quickpostmessage")
辅助.等待(70)
网页.点击元素("浏览器0","tag:SPAN&txt:发表回复")
跳出
如果结束
如果(返回结果==4)
跳出
如果结束
如果(返回结果==1)
线程.关闭(签到线程)
如果结束
如果结束
循环结束
遍历结束 |