|
|
源码
空间 基础喊话再升级版
//定义默认空间
整型 线程句柄
功能 整型 喊话内容()
循环(真)
整型 i=1
循环(真)
字符型 喊话内容 = 编辑框.获得文本("编辑框0")
辅助.等待(1500)
键盘.按键(13,1)
辅助.等待(1500)
键盘.发送字符串(喊话内容)
辅助.等待(2000)
键盘.按键(13,1)
如果(i==1)
跳出 //判断满足条件者跳出循环
如果结束
i=i+1
循环结束
循环(真)
字符型 喊话内容 = 编辑框.获得文本("编辑框1")
辅助.等待(1500)
键盘.按键(13,1)
辅助.等待(1500)
键盘.发送字符串(喊话内容)
辅助.等待(2000)
键盘.按键(13,1)
如果(i==1)
跳出 //判断满足条件者跳出循环
如果结束
i=i+1
循环结束
循环(真)
字符型 喊话内容 = 编辑框.获得文本("编辑框2")
辅助.等待(1500)
键盘.按键(13,1)
辅助.等待(1500)
键盘.发送字符串(喊话内容)
辅助.等待(2000)
键盘.按键(13,1)
如果(i==1)
跳出 //判断满足条件者跳出循环
如果结束
循环结束
循环(真)
字符型 喊话内容 = 编辑框.获得文本("编辑框3")
辅助.等待(1500)
键盘.按键(13,1)
辅助.等待(1500)
键盘.发送字符串(喊话内容)
辅助.等待(2000)
键盘.按键(13,1)
如果(i==1)
跳出 //判断满足条件者跳出循环
如果结束
i=i+1
循环结束
循环结束
返回 0
功能结束
功能 逻辑型 按钮1_点击()
字符型 路径=系统.获取程序路径()
辅助.写配置("数据","编写1",编辑框.获得文本("编辑框0"),".\\Config.ini")
辅助.写配置("数据","编写2",编辑框.获得文本("编辑框1"),".\\Config.ini")
辅助.写配置("数据","编写3",编辑框.获得文本("编辑框2"),".\\Config.ini")
辅助.写配置("数据","编写4",编辑框.获得文本("编辑框3"),".\\Config.ini")
返回 (真)
功能结束
功能 逻辑型 初始化()
字符型 路径=系统.获取程序路径()
字符型 内容=辅助.读配置("数据","编写0",路径+"\\Config.ini")
内容=辅助.读配置("数据","编写1",路径+"\\Config.ini")
内容=辅助.读配置("数据","编写2",路径+"\\Config.ini")
内容=辅助.读配置("数据","编写3",路径+"\\Config.ini")
编辑框.设置文本("编辑框0","内容")
编辑框.设置文本("编辑框1","内容")
编辑框.设置文本("编辑框2","内容")
编辑框.设置文本("编辑框3","内容")
返回 (真)
功能结束
功能 逻辑型 开始_点击()
辅助.等待(3000)
线程句柄=线程.开启("基础喊话再升级版.喊话内容","")
返回 真
//函数返回语句
功能结束
功能 逻辑型 退出_点击()
//这里添加你要执行的代码
线程.关闭(线程句柄)
辅助.退出()
返回 真
//函数返回语句
功能结束
空间结束
//空间结束语句
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
|
/2 
发表于 2012-12-14 17:14:28
收藏
支持
反对
楼主
发表于 2012-12-14 17:27:33
