今天帮朋友写个论坛发帖带导入TXT文本里的内容,由于首次写配置,出了很多次错误,终于成功了!!!!!!!!!!!先在开源-------------------如果对你有帮助-------------------请记得给我加分哦!!!!!!!!!没有评价+++++++++++++++我会没有动力滴+++++++++++++
7999
空间 a
线程句柄
功能 开始_点击()
线程句柄=线程.开启("a.读列表框","")
功能结束
功能 读列表框()
个数=列表框.得到个数("列表框0")
序号=列表框.得到选项("列表框0")
循环(真)
遍历(i=0;i<5;i++)
辅助.等待(5000)
内容=列表框.获得文本("列表框0",i)
网页.转到("浏览器0",内容)
网页.加载完成("浏览器0")
辅助.等待(500)
网页.输入元素文本("浏览器0","TCabcd","tag:INPUT&name:title&type:text")
网页.输入元素文本("浏览器0","TCdsagbf","tag:INPUT&name:name")
网页.输入元素文本("浏览器0","http://www.tyuyan.com","name:url")
网页.输入元素文本("浏览器0","123456","name:del_pass&type:text")
网页.输入元素文本("浏览器0","TCfgsfdjkfhhdgf","name:comment&type:textarea")
辅助.等待(500)
网页.点击元素("浏览器0","tag:INPUT&type:submit&value:書込み&index:7")
遍历结束
循环结束
返回 真
功能结束
//退出按钮_点击操作
功能 退出_点击()
线程.关闭(线程句柄)
辅助.退出()
功能结束
功能 浏览框0_选择改变()
文本,数组空间
i,u
文本数组=array[200]
文本=文件.读文件(浏览框.获得("浏览框0"))
字符串.分割(文本,"\n",文本数组)
数组空间.大小(文本数组,u)
循环(i<u)
列表框.增加文本("列表框0",文本数组)
i=i+1
循环结束
返回 真
功能结束
功能 按钮1_点击()
列表框.清空("列表框0")
功能结束
功能 按钮0_点击()
序号=列表框.得到选项("列表框0")
列表框.删除文本("列表框0",序号)
功能结束
空间结束
|
/2 
发表于 2013-3-5 03:19:57
