TC官方合作论坛

标题: 谁能解释下 [打印本页]

---

作者: ilybenqiu    时间: 2012-3-10 21:41
标题: 谁能解释下
空间 批量登陆
//定义默认空间
整型 线程1,线程运行1,线程运行2
字符型 路径
//**********************封装函数
功能 字符型 路径(字符型 A)
字符型 分隔符
分隔符=字符串.添加字符("",92)
字符型[] 返回串
整型 位置
逻辑型 是否成功=字符串.分割(A,分隔符,返回串)
整型 c1,c2,c3,i=0
数组.大小(返回串,c1,c2,c3)
如果(是否成功)      
    路径=返回串
循环(i < c1-1)
   路径=字符串.添加字符(路径,92)
   路径=字符串.添加字符(路径,92)
   路径=路径+返回串[i+1]
    i=i + 1
循环结束
如果结束
返回 路径
功能结束
//****************封装结束
功能 逻辑型 线程运行1()

字符型 内容
内容=浏览框.获得("浏览框0")
内容=批量登陆.路径(内容)
字符型 内容1=文件.读文件("d:\\批量登陆.txt")
字符型[] 返回串   
字符型 分隔符=":"
逻辑型 是否成功=字符串.分割(内容1,分隔符,返回串)
整型 c1,c2,c3,i=1
数组.大小(返回串,c1,c2,c3)               
        整型 句柄=转换.字符型转整型(编辑框.获得文本("编辑框2")  ,0)
                循环(i < c1-1)
   辅助.等待(500)
             //***********以下是为了演示所写，可以按照你的需要自已改
             //下面的代码只不过是把读出来的字符输出到窗口你可以根据自已的要求改写代码
                    窗口.发送字符串(句柄,返回串)  
                   辅助.等待(500)
                   窗口.发送字符串(句柄,":")  
                    辅助.等待(500)
  i=i+1
窗口.发送字符串(句柄,返回串)  
i=i+1
//窗口.关闭(句柄)  
辅助.等待(500)   
//******************************  可以按你的需求修改以上代码
循环结束
辅助.消息框("完毕")
返回 真
功能结束
功能 逻辑型 开始_点击()
//这里添加你要执行的代码
线程1=线程.开启("批量登陆.线程运行1")
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
辅助.退出()

返回 真
//函数返回语句
功能结束
功能 逻辑型 按钮0_点击()
//这里添加你要执行的代码
字符型 帐号,密码,帐密
整型 文件句柄
帐号=编辑框.获得文本("编辑框0")
密码=编辑框.获得文本("编辑框1")
帐密=帐号+":"+密码+":"
文件句柄=文件.打开("d:\\批量登陆.txt")
文件.设置游标位置(文件句柄,"结束")  
文件.写一行(文件句柄,帐密)
文件.关闭(文件句柄)  
编辑框.设置文本("编辑框0","")
编辑框.设置文本("编辑框1","")      
返回 真
功能结束
功能 逻辑型 按钮1_点击()
//这里添加你要执行的代码

字符型 内容1=文件.读文件("d:\\批量登陆.txt")
                        
辅助.消息框(内容1)

字符型[] 返回串   
字符型 分隔符=":"
逻辑型 是否成功=字符串.分割(内容1,分隔符,返回串)
整型 c1,c2,c3,i=1
数组.大小(返回串,c1,c2,c3)
辅助.消息框(转换.整型转字符型(c1))
如果(是否成功)      
循环(i < c1)
    辅助.消息框(返回串)
    i=i + 1
循环结束
如果结束
//***************************
返回 真
功能结束
空间结束
//空间结束语句

---

作者: Soy_meng    时间: 2012-3-10 22:09
代码转载请注明出处

---

作者: cylhb    时间: 2012-3-11 00:46
没明白，解释什么，完全没说清楚

---

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

Powered by Discuz! X3.1