TC官方合作论坛

标题: 导入文本+发帖+源码+双击打开=有需要的朋友下载.学习 [打印本页]

作者: ma3yu 时间: 2013-3-5 03:19
标题: 导入文本+发帖+源码+双击打开=有需要的朋友下载.学习
[attach]7999[/attach][attach]7999[/attach]今天帮朋友写个论坛发帖带导入TXT文本里的内容,由于首次写配置,出了很多次错误,终于成功了!!!!!!!!!!!先在开源-------------------如果对你有帮助-------------------请记得给我加分哦!!!!!!!!!没有评价+++++++++++++++我会没有动力滴+++++++++++++

[attach]8000[/attach]
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",序号)
功能结束
空间结束

作者: zgzjwzlx 时间: 2013-3-5 04:07

作者: honge10000 时间: 2013-3-5 08:09
路过学习..............

作者: Sky_Pro 时间: 2013-3-5 08:14
支持！！！

作者: zhaowujiang 时间: 2013-3-5 08:34
回复 1楼ma3yu的帖子

谢谢！分享！

作者: z0230226 时间: 2013-3-5 08:35
11111111

作者: 幼园留级老油条 时间: 2013-3-5 09:21
放多是方式的

作者: a8461959 时间: 2013-3-5 09:45
hhhhhh

作者: armlin 时间: 2013-3-5 16:40
很好不错

作者: zhmap 时间: 2013-3-5 17:32
支持，学习

作者: myf526cn 时间: 2013-3-7 13:47
感谢分享，好资源

作者: 中华· 时间: 2013-3-7 19:31
好好学习下

作者: goodbest87 时间: 2013-3-7 19:38

来看看

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)