- #import "dm.dmsoft" dm
- 空间 自动喊话
- int hwnd
- int c //开启程序个数
- int[] d//窗口句柄
- int[] n//线程句柄
- int[] p//进程句柄
- 整型 线程句柄
- 功能 逻辑型 判断输入(字符型 返回值)//判断输入的是否数字
- 整型 长度,序号,判断
- 序号=0
- 长度=字符串.长度(返回值)
- 循环(序号<长度)
- 判断=字符串.返回字符(返回值,序号)
- 如果( !(判断 >=48 && 判断<= 57))
- 返回 假
- 如果结束
- 序号=序号+1
- 循环结束
- 返回 真
- 功能结束
- 功能 整型 换房间(整型 下标)
- 整型[] 坐标=整型[100]//房间坐标
- 坐标[1]=280
- 坐标[2]=301
- 坐标[3]=343
- 坐标[4]=364
- 坐标[5]=385
- 坐标[6]=406
- 坐标[7]=427
- 坐标[8]=448
- 坐标[9]=469
- 坐标[10]=490
- 坐标[11]=511
- 坐标[12]=532
- 坐标[13]=553
- 坐标[14]=574
- 坐标[15]=595
- 坐标[16]=616
- 坐标[17]=637
- 坐标[18]=658
- 坐标[19]=679
- 坐标[20]=700
- 整型 y=坐标[下标]
- dm.MoveTo (415,y)//点击进入房间
- 辅助.等待(500)
- dm.LeftDoubleClick()
- 辅助.等待(1000)
- 循环(真)
- 字符型 确定=dm.GetColor(641,527)//房间满
- 整型 坐标点取色=转换.字符型转整型(确定,1)
- //辅助.消息框(转换.整型转字符型(坐标点取色))
- 如果(坐标点取色==16771709)
- 辅助.等待(2000)
- dm.KeyPress(13)
- 辅助.等待(500)
- y=坐标[下标+1]
- dm.MoveTo (415,y)//点击进入下一个房间
- 辅助.等待(500)
- dm.LeftDoubleClick()
- 下标=下标-1
- 否则
- 跳出
- 如果结束
- 循环结束
- 辅助.等待(3000)
- 返回 0
- 功能结束
- 功能 整型 开始喊话()
- 字符型 喊话内容=编辑框.获得文本("编辑框0")
- 整型 长度=字符串.长度(喊话内容)
- 如果(长度==0)
- 辅助.消息框("喊话内容不能为空!")
- 返回 0
- 如果结束
- 如果(!(自动喊话.判断输入(编辑框.获得文本("编辑框1"))))
- 辅助.消息框("“间隔”输入的不是一个有效的字符,请重新输入纯数字!")
- 返回 0
- 如果结束
- 整型 间隔=转换.字符型转整型(编辑框.获得文本("编辑框1"),0)
- 如果(!(自动喊话.判断输入(编辑框.获得文本("编辑框2"))))
- 辅助.消息框("“次数”输入的不是一个有效的字符,请重新输入纯数字!")
- 返回 0
- 如果结束
- 整型 次数=转换.字符型转整型(编辑框.获得文本("编辑框2"),0)
- 如果(!(自动喊话.判断输入(编辑框.获得文本("编辑框3"))))
- 辅助.消息框("“房间”数输入的不是一个有效的字符,请重新输入纯数字!")
- 返回 0
- 如果结束
- 整型 房间数=转换.字符型转整型(编辑框.获得文本("编辑框3"),0)
- 如果(房间数<6)
- 辅助.消息框("“房间数”不能小于6,请重新输入!")
- 返回 0
- 如果结束
- 逻辑型 自动换房=复选框.获得状态("复选框0")
- 辅助.写入剪切板(喊话内容)
- 整型 b=0
- 循环(真)
- 整型 a=0
- b=b+1
- 如果(b>房间数-5)
- b=1
- 如果结束
- 自动喊话.换房间(b)
- 循环(次数>a)
- a=a+1
- 字符型 确定=dm.GetColor(935,767)//退出准备
- 整型 坐标点取色=转换.字符型转整型(确定,1)
- 如果(坐标点取色==10603709)
- 辅助.等待(1000)
- dm.MoveTo (935,767)
- 辅助.等待(500)
- dm.LeftClick()
- 辅助.等待(500)
- 跳出
- 如果结束
- 辅助.等待(间隔*800)//开始喊话
- dm.KeyDown (17)
- 辅助.等待(50)
- dm.KeyPress(86)
- 辅助.等待(50)
- dm.KeyUp(17)
- 辅助.等待(50)
- dm.KeyDown (13)
- 辅助.等待(50)
- dm.KeyUp(13)
- 辅助.等待(50)
- 循环结束
- dm.MoveTo (970,815)//点击退出
- 辅助.等待(1000)
- dm.LeftClick()
- 循环结束
- 返回 0
- 功能结束
- 功能 逻辑型 退出_点击()
- 线程.关闭(线程句柄)
- //辅助.等待(2000)
- 辅助.退出()
- 返回 真
- 功能结束
- 功能 逻辑型 初始化()
- 控件.可见("定时器0",假)
- 返回 真
- 功能结束
- 功能 逻辑型 销毁()
- 线程.关闭(线程句柄)
- 辅助.退出()
- 返回 真
- 功能结束
- 功能 逻辑型 开始1_热键()
- 线程句柄=线程.开启("自动喊话.开始喊话")
- 返回 真
- 功能结束
- 功能 逻辑型 暂停2_热键()
- 线程.暂停(线程句柄)
- 返回 真
- 功能结束
- 功能 逻辑型 恢复_热键()
- 线程.恢复(线程句柄)
- 返回 真
- 功能结束
- 功能 逻辑型 退出3_热键()
- 线程.关闭(线程句柄)
- 辅助.退出()
- 返回 真
- 功能结束
- 功能 逻辑型 按钮1_点击()
- 字符型 喊话内容=辅助.读配置("配置","喊话内容","d:\\zdhh.ini")
- 字符型 间隔=辅助.读配置("配置","间隔","d:\\zdhh.ini")
- 字符型 次数=辅助.读配置("配置","次数","d:\\zdhh.ini")
- 字符型 房间数=辅助.读配置("配置","房间数","d:\\zdhh.ini")
- 编辑框.设置文本("编辑框0",喊话内容)
- 编辑框.设置文本("编辑框1",间隔)
- 编辑框.设置文本("编辑框2",次数)
- 编辑框.设置文本("编辑框3",房间数)
- 返回 真
- 功能结束
- 功能 逻辑型 按钮0_点击()
- //这里添加你要执行的代码
- 辅助.写配置("配置","喊话内容",编辑框.获得文本("编辑框0"),"d:\\zdhh.ini")
- 辅助.写配置("配置","间隔",编辑框.获得文本("编辑框1"),"d:\\zdhh.ini")
- 辅助.写配置("配置","次数",编辑框.获得文本("编辑框2"),"d:\\zdhh.ini")
- 辅助.写配置("配置","房间数",编辑框.获得文本("编辑框3"),"d:\\zdhh.ini")
- 返回 真
- 功能结束
- 功能 逻辑型 定时器0_时钟()//限时使用
- //这里添加你要执行的代码
- 整型 进程句柄=进程.获取进程句柄("自动喊话")
- 辅助.等待(30000)
- 进程.关闭进程(进程句柄)
- 返回 真
- 功能结束
- 空间结束
复制代码
这是以前用2.06版TC写的一个前台的对战平台换房间喊话脚本,你可以参考修改 |