|
|
9#
楼主 |
发表于 2013-2-15 14:44:50
|
只看该作者
回复 8楼tired的帖子
空间 自动喊话
//默认空间
//声明全局变量,需要跨函数调用的变量就声明为全局变量
变量 线程句柄,间隔,内容一,内容二,内容三
//自定义函数
功能 热键0_热键()//热键0的热键事件函数,按下设置好的热键时,会调用该函数
ts=com("ts.tssoft")
hwnd = ts.GetMousePointWindow()
ret=ts.BindWindow(hwnd,"dx","dx","dx",1)
线程句柄=线程.开启("自动喊话.喊话","")
功能结束
功能 热键0_失去焦点()//热键0的失去焦点事件,当光标离开热键0时调用该函数
热键.销毁("热键0")//销毁之前的热键键值
热键.注册("热键0")//注册当前的热键键值
功能结束
功能 热键1_热键()//热键1的热键事件函数
线程.关闭(线程句柄)//退出脚本前关闭线程
功能结束
功能 热键1_失去焦点()//热键1的失去焦点事件,当光标离开热键0时调用该函数
热键.销毁("热键1")//销毁之前的热键键值
热键.注册("热键1")//注册当前的热键键值
线程.关闭(线程句柄)//退出脚本前关闭线程
功能结束
功能 普通模拟()
键盘.按键(13,1)//普通模式模拟键盘按键回车键,激活聊天栏
循环(真)//循环条件为常量"真",死循环的常规设置方法
键盘.发送字符串(内容一)//普通模式模拟键盘发送字符串到聊天栏,内容为变量"内容一"的值
键盘.按键(13,1)//普通模式模拟键盘按键回车键,把聊天内容发送出去
辅助.等待(间隔*1000)
键盘.发送字符串(内容二)
键盘.按键(13,1)
辅助.等待(间隔*1000)
键盘.发送字符串(内容三)
辅助.等待(间隔*1000)
键盘.按键(13,1)
辅助.等待(间隔*1000)
循环结束
功能结束
//自定义函数
功能 超级模拟()
超级键盘.按键(13,1)//超级模式模拟键盘按键回车键,激活聊天栏
循环(真)//循环条件为常量"真",死循环的常规设置方法
超级键盘.发送字符串(内容一)//超级模式模拟键盘发送字符串到聊天栏,内容为变量"内容一"的值
ts.KeyPressChar("enter")
辅助.等待(间隔*1000)//延时,1000毫秒等于1秒,所以这里用"间隔"变量里的值乘以1000做为延时的时间
超级键盘.发送字符串(内容二)
//ts.KeyPressChar("enter")
辅助.等待(间隔*1000)
超级键盘.发送字符串(内容三)
//ts.KeyPressChar("enter")
辅助.等待(间隔*1000)
循环结束
功能结束
功能 喊话()
辅助.设置托盘("我的托盘",假)
内容一=编辑框.获得文本("编辑框0")//获得界面控件"编辑框0"的内容并赋值给变量"内容一"
内容二=编辑框.获得文本("编辑框1")
内容三=编辑框.获得文本("编辑框2")
间隔=编辑框.获得文本("编辑框3")
如果(单选框.获得状态("单选框0"))//判断界面控件"单选框0"是否选中,如果选中则执行以下代码
线程句柄=线程.开启("自动喊话.普通模拟","")//用线程方法调用函数"普通模拟"
否则//如果没有选中,则执行以下代码
线程句柄=线程.开启("自动喊话.超级模拟","")//用线程方法调用函数"超级模拟"
如果结束
控件.有效("开始",假)//把"开始"按钮设置为无效,避免重复开启线程
功能结束
空间结束
//空间结束语句 |
|
/2 
发表于 2013-2-15 14:27:21
收藏
支持
反对
