|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
空间 自动
dm=com("dm.dmsoft")
变量 账号临界句柄
字符型 窗口名
功能 导入()
变量 主窗口句柄数据=数组[]
变量 主窗口下标
变量 子窗口句柄字符串
变量 需操作窗口句柄字符串
变量 子窗口句柄数组=数组[]
变量 传参数组=数组[]
字符串.分割(需操作窗口句柄字符串,",",传参数组)
数组空间.大小(传参数组,主窗口下标)
遍历(i=0;i<主窗口下标;i++)
表格.设置内容("表格0",i+1,0,i+1)
表格.设置内容("表格0",i+1,4,"启动中!")
线程句柄=线程.开启("自动.文本操作",传参数组)
遍历结束
功能结束
功能 导入文件()
账号数组=数组[]
数组大小
账号文本=文件.读文件(浏览框.获得("浏览框0"))
调试输出(账号文本)
字符串.分割(账号文本,"\r\n",账号数组)
调试输出(账号数组[0])
数组空间.大小(账号数组,数组大小)
列表框.清空("列表框0")
遍历(i=0;i<数组大小;i++)
列表框.增加文本("列表框0",账号数组)
遍历结束
功能结束
功能 获取无使用账号()
账号文本
线程.进入临界区(账号临界句柄)
遍历(i=0;i<列表框.得到个数("列表框0");i++)
账号文本=列表框.获得文本("列表框0",i)
是否找到=字符串.查找字符串(账号文本,"已使用")
如果(是否找到==-1)
列表框.删除文本("列表框0",i)
列表框.插入文本("列表框0",账号文本&"|已使用",i)
跳出
否则
账号文本=null
如果结束
遍历结束
线程.离开临界区(账号临界句柄)
返回 账号文本
功能结束
功能 文本操作(传入参数)
变量 传入数组
变量 x,y
变量 窗口句柄
变量 子窗口句柄数组=数组[]
变量 子窗口句柄字符串
变量 账号数组=数组[]
字符串.分割(传入参数,"|",传入数组)
窗口句柄=传入数组[0]
序号=传入数组[1]
临时文本=自动.获取无使用账号()
如果(临时文本==null)
表格.设置内容("表格0",序号+1,3,"账号已用完")
返回 (0)
否则
字符串.分割(临时文本,",",账号数组)
表格.设置内容("表格0",序号+1,0,账号数组[0])
表格.设置内容("表格0",序号+1,1,账号数组[1])
如果结束
功能结束
功能 开始_点击()
线程.开启("自动.导入","")
功能结束
功能 退出_点击()
线程.关闭("自动.导入","")
辅助.退出()
功能结束
功能 按钮0_点击()
线程.开启("自动.导入文件","")
功能结束
空间结束
|
|